Excel vba-對象'_Global'的方法'Range'失敗。 錯誤

Question

我是excel VBA的新手，在此項目中，我想如果單元格B4不為空且單元格C4為空，則應突出顯示C4。 同樣，代碼應循環到B16單元。 工作表名稱為“ AMA79”。 我收到對象“ _Global”的方法“范圍”失敗。 使用此代碼時出錯。 您能否讓我知道應該采取什么措施來糾正此問題？

Dim i As Integer
Dim rng As Range
Set rng = Range("B4:B16")

For i = 4 To 16
With ThisWorkbook.Worksheets("AMA79")
If Range(B, i).Value <> "" And Range(D, i).Value = "" Then
Range(c, i).Interior.Color = vbYellow
End If
End With
Next i

Answer 1

試試這個： 編輯：

   Sub test()

Dim i As Integer
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook
Set ws = wb.Sheets("AMA79")

For i = 4 To 16

If ws.Range("B" & i).Value <> "" And ws.Range("D" & i).Value = "" Then

ws.Range("C" & i).Interior.Color = vbYellow
ws.Range("B29").Value = "Please validate the cells highlighted"

End If

Next i

End Sub