Page 1 of 1

รบกวนขอความรู้โค๊ดที่อ้างถึงตัวแปรที่เปลี่ยนแปลงได้หลายค่า

Posted: Sun Sep 07, 2014 8:40 pm
by akekorn
คือผมมีปัญหาอยากทราบว่า หากต้องการอ้างอิงข้อมูลในเซลโดยใช้ VBA เพราะในเซล อาจเป็นไปได้หลายค่า เช่น เซล A1

อาจมีค่า 2a,2e,2d,3a,4b,6a อย่างใดอย่างนึงซึ่งมีค่ามากกว่าที่ยกตัวอย่างครับ
ทีนี้เวลาผมต้องเขียนโค๊ด ผมต้องทำทีละ case คือ

if range("a1").value = "2a" or range("a1").value = "2b" or range("a1").value = "2d" or range("a1").value = "2f" then
มันต้องอ้างเยอะยาวไป
ผมอยากทราบว่ามีวิธีิเขียนโค๊ดแบบไหนที่อ้างได้สั้นกว่านี้ อย่างเวลาเขียน foxpro ผมจะใช้
if inlist(range("a1"),"2a","2b","2c","2d")
อะไรทำนองนี้ครับ

รบกวนเพื่อนสมาชิกอนุเคราห์ด้วยครับผม

ขอบคุณครับ

Re: รบกวนขอความรู้โค๊ดที่อ้างถึงตัวแปรที่เปลี่ยนแปลงได้หลายค

Posted: Sun Sep 07, 2014 9:03 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

Select Case Range("a1").Value
    Case "2a", "2b", "2d", "3a", "4b", "6a"
        MsgBox "Found"
    Case Else
        MsgBox "Not found"
End Select

Re: รบกวนขอความรู้โค๊ดที่อ้างถึงตัวแปรที่เปลี่ยนแปลงได้หลายค

Posted: Sun Sep 07, 2014 9:05 pm
by akekorn
ขอบคุณครับ