□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
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:ゆう-Ｇ