戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 

このトピック参照回数 :
Re[8]: 8月なら7月表示

    [195899] Re[8]: 8月なら7月表示-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ よしみ -(2023/08/23(09:14))
    □U R L/
      そうでした、すいません。最初はピンとこなかったのですがなんとかできました。
      ありがとうございました。
      
      今月末に実行するなら
      
      mydateA = DateSerial(Year(Date), Month(Date), 1)
      mydateB = DateSerial(Year(Date), Month(Date) + 1, 0)
      
      次の月に、前月分を実行するなら
      
      mydateA = DateSerial(Year(Date), Month(Date) - 1, 1)
      mydateB = DateSerial(Year(Date), Month(Date), 0)


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195898] Re[7]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/08/21(14:33))
    □U R L/

      0は1から1引いた数字です。

      年月日の「日」の部分が0ということは
      1日の一日前、つまり前月の末日という
      ことになります。




    [195897] Re[6]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/08/21(14:22))
    □U R L/
      既に⬆️でヒントは差し上げています。
      
      >DateSerial(2023,1,0)
      >は2022/12/31になります。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195896] Re[5]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ よしみ -(2023/08/21(14:14))
    □U R L/

      すいません!追加質問させてください。
      末日の場合、どのようになりますでしょうか?

      8月1日〜9月末日としたばあいの例で教えていただきたいです。
      末日とすることでややこしいのであれば、30日でもOKですが、月によってバラバラなのでやりやすいほうで大丈夫です。
      よろしくお願いします。




    [195895] Re[4]: 8月なら7月表示-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ よしみ -(2023/08/21(09:49))
    □U R L/

      おにいさま、ありがとうございました!





    [195872] Re[3]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/08/17(17:20))
    □U R L/

      参考HPです。

      ht tps://excel-ubara.com/excelvba8/
      ↑の
      日付時刻:マクロVBA関数




    [195871] Re[2]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/08/17(14:34))
    □U R L/
      サンプルコードです。
      
      Sub test()
       Dim mydateA As Date
       Dim mydateB As Date
        mydateA = DateSerial(Year(Date), Month(Date) - 1, 16)
        mydateB = DateSerial(Year(Date), Month(Date), 15)
        MsgBox Format(mydateA, "ggge年m月d日〜") & Format(mydateB, "ggge年m月d日")
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195870] Re[1]: 8月なら7月表示-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/08/17(14:24))
    □U R L/
      DateSerial 関数が便利です。
      
      ht tps://support.microsoft.com/ja-jp/office/dateserial-%E9%96%A2%E6%95%B0-a0128476-83a0-407c-831a-93f2b046f503
      
      DateSerial(年,月,日)
      
      今日の日付は
      Date
      で取得できます。
      
      DateSerial(年,月-1,日)
      
      で一か月前の日付を出せます。
      
      DateSerial(2023,1-1,1)
      は2022/12/1になります。
      
      DateSerial(2023,1,0)
      は2022/12/31になります。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195869] 8月なら7月表示-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ よしみ -(2023/08/17(13:49))
    □U R L/
      Format(Date, "ggge""年""m""月""""16日〜""ggge""年""m""月""""15日""")
      
      令和5年7月16日〜8月15日表示にするにはどのようにすればよいでしょうか?
      -1をどこかに入れてもダメでした・・・
      
      よろしくお願いします。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]

- Child Forum -
Edit:ゆう-G