동일한 행의 해당 범위가 비어 있지 않은 경우 셀을 강조 표시하는 VBA

열 D에서 DX (Qty)에 값이있는 경우 파일의 열 B에 음식 이름을 적용하려고합니다.

합리적인 이유는 파일에 새 음식 요청이 접수되어 사용자가 일시적으로 음식 이름을 입력 한 다음 수량을 입력 할 수 있기 때문입니다. 이는 실수로 값을 입력하지 않거나 추가 한 새 항목의 정보를 전달하는 것을 잊지 않도록하기위한 것입니다.

D6에서 DX98까지의 모든 시트를 확인할 수있는 버튼을 추가 할 수 있습니까? 수량이 발견되어 C의 해당 셀이 비어 있으면 C가 빨간색으로 표시되고 단순한 MsgBox는 파일.

내가 작업하고있는 파일은 다음과 같습니다. http://s000.tinyupload.com/?file_id=00523976624440052148

매크로 / Visual Basic을 열고 시트를 두 번 클릭하고 오른쪽에이 코드를 삽입하십시오.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wkb As Workbook
Dim wks As Worksheet
Dim wksRange As Range
Set wkb = ThisWorkbook
Set wks = ActiveSheet
For i = 6 To 98 ' rows to be sweeped
    Set wksRange = wks.Range(Cells(i, 4), Cells(i, 127)) ' check from column 4 (D) to 127(DW)
    'Paint grey cells on columns A to C
    color_cell_a = Cells(i, 1).Interior.Color
    Cells(i, 2).Interior.Color = color_cell_a
    Cells(i, 3).Interior.Color = color_cell_a
    'If on the row there are values
    If WorksheetFunction.CountA(wksRange) <> 0 Then
        itemName = Cells(i, 2)
        itemPrice = Cells(i, 3)
        'Change color on column B
        If itemName = "" Then
            Cells(i, 2).Interior.Color = RGB(184, 0, 0)
        End If
        'Change color on column C
        If itemPrice = "" Then
            Cells(i, 3).Interior.Color = RGB(184, 0, 0)
        End If
    End If
Next i
End Sub

그것은 지역 덮음을 검사합니다. D6:DW98 행에 값이없는 경우 상품명 과 단가 , 당신이 그들에 무엇이든 적을 때까지 그 세포에 빨간색으로 표시됩니다.

이 코드는 사용자 정의하려는 경우 매우 쉽게 수정할 수 있습니다.