Page 1 of 1

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

Posted: Tue Sep 04, 2012 12:29 pm
by 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 ครับ

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

Posted: Tue Sep 04, 2012 1:23 pm
by snasui
:D อักขระ a, b, c ต้องครอบด้วยฟันหนูด้วยครับ เป็น "a", "b", "c"

เช่น

Code: Select all

range("e2") = "a"

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

Posted: Tue Sep 04, 2012 2:35 pm
by sahavit
มันขึ้นerror ว่า compile error :else without if ครับ

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

Posted: Tue Sep 04, 2012 2:41 pm
by snasui
:D ลองปรับเป็นด้านล่างครับ

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