Hỏi về Code thực thi lệnh có điều kiện. (1 người xem)

[khamha]

Mình có một đoạn Code gọi Form:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4:$C$4" Then
Call UserForm1.Show
End If
End Sub

Nhưng mình muốn nó chỉ chạy (gọi Form) khi tại ô D4 có dữ liệu là số.
Trong trường hợp ô D4 để trống hay chữ hoặc ký tự thì sẽ ko thực thi lệnh & báo lỗi.
Các bạn xem File giúp mình nhé....Thank

 

[Ngoai Thanh]

Mình có một đoạn Code gọi Form:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4:$C$4" Then
Call UserForm1.Show
End If
End Sub

Nhưng mình muốn nó chỉ chạy (gọi Form) khi tại ô D4 có dữ liệu là số.
Trong trường hợp ô D4 để trống hay chữ hoặc ký tự thì sẽ ko thực thi lệnh & báo lỗi.
Các bạn xem File giúp mình nhé....Thank

Không biết đúng ý bạn không nữa ?

 

[Hau151978]

Mình có một đoạn Code gọi Form:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4:$C$4" Then
Call UserForm1.Show
End If
End Sub

Nhưng mình muốn nó chỉ chạy (gọi Form) khi tại ô D4 có dữ liệu là số.
Trong trường hợp ô D4 để trống hay chữ hoặc ký tự thì sẽ ko thực thi lệnh & báo lỗi.
Các bạn xem File giúp mình nhé....Thank

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$4:$C$4" Then
        If IsNumeric([D4]) And ([D4] <> "") Then
            Call UserForm1.Show
        Else
            MsgBox ("Enter a number to cell D4")
        End If
    End If
End Sub

 

[giola]

tham khảo thêm phương án khác, cho đa dạng

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$4:$C$4" Then
        If Not IsNumeric([D4]) Or IsEmpty([D4]) Then MsgBox "Error, Nhap so vao [D4]": Exit Sub
        Call UserForm1.Show
    End If
End Sub

 

[khamha]

Không biết đúng ý bạn không nữa ?

Nó bị lỗi khi ta nhập dữ liệu tại D4 là chữ...

 

[Ngoai Thanh]

Đúng rồi, minh chủ quan, nhưng thấy các bạn khác đã giúp bạn nên không sửa nữa .