kiểm tra đoạn code sau sai ở đâu (1 người xem)

[hungpecc1]

Sub test()
Dim t As String
t = Range("A1").Value
If t <> " " Then
Range("A2").Value = 2
Else
Range("A2").Value = 3
End If
End Sub

code trên em làm mà hổng có chạy nếu A1 = 1 thì A2 vẫn = 2 !

Các pác giúp em với ! thanks nhiều ^^

 

[thanhlanh]

Mình chưa chạy thử nhưng thấy bạn khai báo kiểu của biến t không ổn, bạn thử Dim t as Long thử xem

 

[dhn46]

Sub test()
Dim t As String
t = Range("A1").Value
If t <> " " Then
Range("A2").Value = 2
Else
Range("A2").Value = 3
End If
End Sub

code trên em làm mà hổng có chạy nếu A1 = 1 thì A2 vẫn = 2 !

Các pác giúp em với ! thanks nhiều ^^

Box công thức thì làm sao có code VBA được

A1 trống là " " hay ""

 

[hungpecc1]

A1 là ô trống , ý của em là

nếu A 1 trống thì A 2 = 2, còn nếu A1 có ký tự thì A2 =3

Sub test()
Dim t As String
t = Range("A1").Value
If t <> "" Then
Range("A2").Value = 2
Else
Range("A2").Value = 3
End If
End Sub

 

[ndu96081631]

A1 là ô trống , ý của em là



Sub test()
Dim t As String
t = Range("A1").Value
If t <> "" Then
Range("A2").Value = 2
Else
Range("A2").Value = 3
End If
End Sub

Thế thì phải vầy chứ:

Sub test()
Dim t As String
t = Range("A1").Value
If t [COLOR=#ff0000][B]=[/B][/COLOR] "" Then
Range("A2").Value = 2
Else
Range("A2").Value = 3
End If
End Sub

Dấu = chứ sao lại dấu <>

 

[dhn46]

Thứ 1: Bạn Post bài sai box, phải lưu ý chuyện này vì nội quy GPE đã quy định
Thứ 2: Bạn dùng " " (có dấu cách giữa 2 dấu nháy) để thể hiện A1 trống => sai phải dùng "" (Không có cách giữa 2 dấu nháy)

 

[hungpecc1]

ok, lần sau mình tuân thủ nội quy diễn đàn !

^^ cảm ơn GPE