|
▼ribbon さん:
>セルの範囲指定について教えてください。
>シートに毎月の日付を書き込み、土日祝日であれば対象のセルに色をつけたいのです。
>
>For hiduke = 1 To 月末
> Cells(5, 2 + hiduke) = 日付 'シートに日付入れる
>
> If Format(日付, "w") = 1 Or Format(日付, "w") = 7 Then’___質問1
> '網掛け色つけ処理を行う
> Range("?5:?26").Select '____質問2
> Selection.Interior.ColorIndex = 6
> end if
> 月末 = 月末 + 1
>Next
>
>【質問】
>1.日付が土日だった場合の判断を行うことは分かりましたが、祝祭日を取得する方法が分からずに悩んでいます。
>
>2.選択する行は5行〜26行目までと固定ですが、?の値が毎回可変なのでどのようにしたら良いか困っています。
これで選択できると思いますので試してみてください
Range(Cells(5, 2 + hiduke), Cells(26, 2 + hiduke)).Select
>どなたか教えてください。
>宜しくお願いします。
|
|