Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27067 / 76732 ←次へ | 前へ→

【54989】Re:アクティブセルの移動について
発言  テト  - 08/4/9(水) 10:59 -

引用なし
パスワード
   全ての月が同様の形式で書かれているなら、こういうのはどう?

――――――――――――――――――――――――――――――
Dim rngMonth As Range
Dim rngDay As Range
Dim targetDate As Date

targetDate = Date

Set rngMonth = Range("A2,A9,A16").Find(Format(targetDate, "m"))

If Not rngMonth Is Nothing Then
  Set rngDay = _
    rngMonth.Offset(1).Resize(5, 7).Find(Format(targetDate, "d"))

  If Not rngDay Is Nothing Then
    rngDay.Select
  End If
End If
――――――――――――――――――――――――――――――

※rngMonthの範囲は、各月のセル
 例)
  A2 → 4月
  A9 → 5月
  A16 → 6月
   ・
   ・
   ・

2 hits

【54971】アクティブセルの移動について まどぎわぞく 08/4/7(月) 22:43 質問
【54972】Re:アクティブセルの移動について ponpon 08/4/7(月) 23:30 発言
【54974】Re:アクティブセルの移動について テト 08/4/8(火) 9:53 発言
【54975】Re:アクティブセルの移動について テト 08/4/8(火) 9:59 発言
【54983】Re:アクティブセルの移動について まどぎわぞく 08/4/8(火) 22:23 質問
【54989】Re:アクティブセルの移動について テト 08/4/9(水) 10:59 発言

27067 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free