Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69949 / 76807

←次へ　｜　前へ→


	【11373】Re:WITHステートメント

りん

- 04/3/7(日) 13:15 -


	引用なし

	パスワード

liee_chang さん、こんにちわ。

>シートのｾﾙが空欄だったらある範囲の色と保護をはずす。これをトナリのシートにも繰り返すというロジックにしたいのです。
　　　　　　　　↓ここでは指定していても、
>　　Do While Worksheets(r + 1).Cells(18, 4).Value = ""
　　　↓ここでシートを指定していないので常に表示中のシートが対象で範囲選択
>　　　　Range("D18:O19,D25:O28").Select
>　　　　　　

Sub Test()
　 Dim ws As Worksheet
　 For Each ws In ActiveWorkbook.Worksheets
　　　With ws 'WorksheetオブジェクトでWith
　　　　 If .Cells(18, 4).Value = "" Then
　　　　　　With .Range("D18:O19,D25:O28")　'RangeオブジェクトでWith
　　　　　　　 .Interior.ColorIndex = 8
　　　　　　　 .Locked = False
　　　　　　　 .FormulaHidden = False
　　　　　　End With
　　　　 End If
　　　End With
　 Next
End Sub

こんな感じです。

0 hits

▼

【11337】WITHステートメント liee_chang 04/3/5(金) 17:39