Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range("C10:J203").Address Then
If Range("C10:J203").Value = "#N/A" Then
MsgBox "เกิดข้อผิดพลาด"
End If
End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range("A9:C20").Address Then
If Range("A9:C20").Value = "#N/A" Then
MsgBox "ผิดพลาด"
End If
End If
End Sub

Code: Select all

If Not Intersect(Target, Range("A9:C20")) Is Nothing Then
    If Application.WorksheetFunction.IsNA(Target) Then
        MsgBox "à¡Ô´¢éͼԴ¾ÅÒ´"
    End If
End If

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo NotNA
 Set ena = Nothing
 For Each r In ActiveSheet.Range("A9:C20") 'UsedRange
 If r.Text = "#N/A" Then
 MsgBox "¢éÍÁÙżԴ¾ÅÒ´", vbCritical
 If ena Is Nothing Then
 Set ena = r
 Else
 Set ena = Union(ena, r)
 End If
 End If
 Next
 ena.Select
 Exit Sub
NotNA:
End Sub