Excel Forum

Code: Select all

If Year(Range("D12")) < Year(Date) - 10 or Year(Range("D12")) > Year(Date) + 1 then
Msgbox "......" <-- กรอกคำบรรยายที่ต้องการ
Exit Sub
End If

Code: Select all

If (Year(Range("D12")) < Year(Date) - 10 Or Year(Range("D13")) < Year(Date) - 10) Or _
    (Year(Range("D12")) > Year(Date) + 1 Or Year(Range("D13")) > Year(Date) + 1) Then
   MsgBox "..."
       Exit Sub
    End If

Code: Select all

    If Sheets("Main").Range("D9") = "ลา" Then
        If (Year(Range("D12")) < Year(Date) - 10 Or Year(Range("D13")) < Year(Date) - 10) Or _
             (Year(Range("D12")) > Year(Date) + 1 Or Year(Range("D13")) > Year(Date) + 1) Then
                MsgBox "..."
                Exit Sub
        End If
    End If

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$5" Then
    Call ChangeCellValue
End If
Application.EnableEvents = True
End Sub

Code: Select all

Sub ChangeCellValue()
With Sheets("Main")
    .Range("D6") = ""
    .Range("D7") = ""
End With
End Sub