• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:月が変わっても20日までを範囲指定したい)

月が変わっても20日までを範囲指定したい

このQ&Aのポイント
  • windows10、microsoft365使用の超初心者です。セルB27~B57(31行)に他シートから関数を貼り付けています。セルB27~セルB57には、毎月21日~翌月20日までのが日付が表示されます。やりたいことは、その期間の範囲指定をしたいです。
  • 今のやり方では、大の月はうまくいきますが、2月や30日までしかない月では翌月の21日まで指定してしまいます。そこで、以下のVBAコードを使用して月が変わっても必ず20日までを範囲指定する方法をご紹介します。
  • VBAコードを使用して、Day関数を使って現在の月の最終日を取得し、Resizeメソッドを使ってセルの範囲を指定します。これにより、月が変わっても必ず20日までの範囲が指定されます。

質問者が選んだベストアンサー

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率66% (1719/2589)
回答No.1

Range("B27").Resize(Day(DateSerial(Year(Range("b27").Value), Month(Range("b27").Value) + 1, 0)), 58).Select というのではなくてですか。

aitaine
質問者

お礼

ありがとうございました。完璧にできました。

関連するQ&A