ผมทำ data validation สองส่วน

[sahavit]

ผมทำ data validation สองส่วนใน cell E1 และ E2 คือถ้าเลือก 23 ให้e2แสดงค่า a ออกมา

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'dim i as float

For i = 1 To 200

If Range("e1") = 23 Then Range("e2") = a
Else
If Range("e1") = 45 Then Range("e2") = b
Else
If Range("e1") = 67 Then Range("e2") = c
Next
End If
End Sub

มันเกิดerror ครับ

[snasui]

อักขระ a, b, c ต้องครอบด้วยฟันหนูด้วยครับ เป็น "a", "b", "c"

เช่น

Code: Select all

range("e2") = "a"

[sahavit]

มันขึ้นerror ว่า compile error :else without if ครับ

[snasui]

ลองปรับเป็นด้านล่างครับ

Code: Select all

Sub Macro1()
dim i as integer
For i = 1 To 200
   If Range("e1") = 23 Then Range("e2") = "a"
   If Range("e1") = 45 Then Range("e2") = "b"
   If Range("e1") = 67 Then Range("e2") = "c"  
Next
End Sub