Excel VBA質問箱 IV

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

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


21356 / 76732 ←次へ | 前へ→

【60777】Re:Find関数の使い方について
発言  kanabun  - 09/3/13(金) 20:06 -

引用なし
パスワード
   ▼Porta さん:
追伸です。

>A6(2009/3/1)〜A2196(2015/2/28)まで、当年の3月1日から連続した日にち
>があります。

つまり、漏れない 連続した日付がセットしてあるということですね?
なら、Matchも必要ないです。
[A6]セルの日付から 求める日付までの差分( Datediff)だけOffset
すればよいのですから。

Sub Try1()
 Dim theDay As Date
 Dim ss As String
 
 ss = "検索したい年月日… 3/3のように半角入力してください " _
    & vbLf & "当年以外は2013/3/3のように年を入力してください"
 ss = InputBox(ss, "日付検索", CStr(Date))
 If StrPtr(ss) = 0& Then Exit Sub
 If Not IsDate(ss) Then
   MsgBox "入力値は有効な日付ではありません"
   Exit Sub
 End If
 theDay = CDate(ss)
 With [A6].Offset(DateDiff("d", [A6].Value, theDay))
   .Select
   MsgBox theDay & " 日へジャンプしました", , .Address(0, 0)
 End With
 
End Sub

1 hits

【60775】Find関数の使い方について Porta 09/3/13(金) 19:30 質問
【60776】Re:Find関数の使い方について kanabun 09/3/13(金) 19:37 発言
【60777】Re:Find関数の使い方について kanabun 09/3/13(金) 20:06 発言
【60778】Re:Find関数の使い方について Porta 09/3/13(金) 21:22 発言
【60779】Re:Find関数の使い方について kanabun 09/3/13(金) 21:39 発言
【60783】Re:Find関数の使い方について Porta 09/3/14(土) 9:50 質問
【60784】Re:Find関数の使い方について kanabun 09/3/14(土) 11:48 発言
【60789】Re:Find関数の使い方について Porta 09/3/14(土) 20:50 お礼

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