| |
こんにちは。かみちゃん です。
>そこでH15をブランクにしたところ、
>今度はCells(1,1)から処理が始まってしまってセル達一面が真っ赤に・・・。
>For to で開始セルを指定していたはずなのに、何故でしょうか。
SpecialCells
が単一セルになっているからだと思います。
k = FEAP
というコードがよくわからないのですが、以下のようにすればいかがですか？
（For〜Nextを使う必要はありません）
Sub 入力漏れチェック2()
Dim i As Integer
Dim j As Integer
Dim k As String
i = 15
j = 2
k = FEAP
On Error Resume Next
With Worksheets("Publication List")
Do While .Cells(i, 8) = k
.Cells(i, j).Interior.ColorIndex = xlColorIndexNone
.Cells(i, j).Resize(, 12).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
i = i + 1
Loop
End With
MsgBox ("赤いセル箇所を入力して下さい。")
End Sub
|
|
かみちゃん
- 09/11/23(月) 18:01 -
