- VBAなんでも質問スレ
808 ：デフォルトの名無しさん[sage]：2014/09/09(火) 14:51:37.26 ID:puhlfYKM - 自分だったら、
セルに値を予め埋めておいて(constの代わり)、下のようにして拾ってくるだけで済ませるけどね。
Select Case 曜日
Case "月"
開始 = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
終了 = ThisWorkbook.Worksheets(1).Cells(1, 3).Value
Case "火"
開始 = ThisWorkbook.Worksheets(1).Cells(2, 2).Value
終了 = ThisWorkbook.Worksheets(1).Cells(3, 3).Value
...
800のひとまで799のvlookupに噛み付いているけど、あれは検索項目がソートされているのが前提だから、
今回のように月、火、水、と曜日で並んでいるデータには向いてないんじゃないのかい？
曜日の並びが変わるのは見た目もメンテナンスもわるい。
そもそも799はVLOOKUPで済むような話だとVBAに起こさなくてもExcelシート内でやりたいこと解決してしまうってことでしょ。
|