| |
▼マナ さん：
>▼VBA初心者 さん：
>
>１）カレンダーなのに、日付検索で複数ヒットする可能性がありますか。
>Do〜Loopは必要ないのでは？
>ということです。
>
>２）シリアル値に変換する必要ありますか。
>というか、検索できますか？
>
>３）文法が間違っている
>>Range(myObj).Offset(1, 0).Activate
>>Q = Range(myObj).Offset(1, 0).Activate
>>Set Q = Worksheets("Sheet1").Cells(Z, 2).Value
>
>４）変数名がわかりにくいです（人のこと言えませんが…）
>
>
マナ様
お返事ありがとうございます。
上記内容に関して返答させていただきます。
1)カレンダーなのに、日付検索で複数ヒットする可能性がありますか。
Do〜Loopは必要ないのでは？ということです。
→エクセルのカレンダーのテンプレート(1月〜12月でsheetが分けられて表示されるもの)を使っています。sheetは行に5週分の日数、列に日曜〜土曜の曜日が入力されています。その中で、2019年1月のsheetは31日が木曜日なので、残りの金曜日と土曜日の枠には2月1,2日が入力されています。その中で全部のsheetを参照すると重複する箇所が出てくるのでDo〜Loopを使用してみました。
2)シリアル値に変換する必要ありますか。というか、検索できますか？
→自分が入力した日付をそのままカレンダーで検索することが出来なかった（私が無知だということが原因です・・・。）のでシリアル値なら検索できるかなと考え、一度日付を変更して検索するという手段をとりました。
検索は出来ていると思います。
3)文法の指摘、ありがとうございます。
4)大変申し訳ありません。自分だけが今何をやっているのか理解できるようにつけていたので、混乱させてしまいました。
|
|
VBA初心者
- 19/2/1(金) 10:05 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
