วันอาทิตย์ที่ 29 มกราคม พ.ศ. 2555

รับข้อมูลจากผู้ใช้ด้วย Inputbox

กล่องโต้ตอบกับผู้ใช้อีกแบบหนึ่ง ที่สามารถรับข้อมูลจากผู้ใช้ได้ด้วย นั่นก็คือ Input Box ลักษณะของ Input Box นี้จะเป็นกล่องโต้ตอบที่มีข้อความเพื่อบอกให้ผู้ใช้ทำอะไร หรือใส่อะไรลงในช่อง และ ช่องสำหรับให้ผู้ใช้กรอกข้อมูล ลักษณะดังภาพข้างล่าง

ซึ่งในภาพจะเห็นว่า มีข้อความให้ผู้ใช้กรอกชื่อตนเองใส่เข้าไปในช่อง นอกจากนี้ก็ยังมีปุ่ม อยู่ 2 คือ OK และ Cancel เพื่อแสดงการตอบรับหรือปฏิเสธกล่องโต้ตอบนี้

รูปแบบ

     inputbox("ข้อความที่ต้องการแสดงออกทางกล่องโต้ตอบ")


ตัวอย่าง
    ผมต้องการให้ผู้ใช้กรอกชื่อตนเองลงในช่องรับข้อมูล แล้วกดปุ่ม OK ลงในโปรแกรมย่อย (sub)ที่ชื่อว่า request ที่มีหนึ่งคำสั่งคือ inputbox อยู่ภายใน Code ของโปรแกรมสามารเขียนได้ดังนี้


Sub request()
    InputBox ("Please type your name in the box below and then click OK.")
End Sub

เมื่อทำการทดสอบการทำงานของโปรแกรม โดยการกดปุ่ม F5 จะได้ผลลัพท์ดังนี้


ซึ่งจะเห็นว่าในกล่องโต้ตอบแบบ Input box นี้ จะมีการแสดงข้อความของเราออกมาและมีช่องรับข้อมูลให้มาด้วย  แต่โดยทั่วไปกล่องโต้ตอบแบบ Input Box นี้มักจะต้องเกี่ยวข้องกับการนำข้อมูลในช่องรับข้อมูลที่ผู้ใช้กรอกเข้ามาไปประมวลผลต่อ ดังนั้นเราจะต้องเขียน Code เพื่อเก็บค่าที่ผู้ใช้กรอกเข้ามาไว้ด้วย โดยจะเก็บค่าดังกล่าวไว้ในรูปของตัวแปรใดตัวแปรหนึ่ง ตัวอย่างต่อไปนี้คือการนำค่าที่ผู้ใช้กรอกเข้ามาไปเก็บไว้ในตัวแปรที่ชื่อว่า UserName

Sub request()
    UserName = InputBox("Please type your name in the box below and then click OK.")
End Sub

แต่เพื่อต้องการตรวจสอบว่าตัวแปร UserName เก็บค่าที่ถูกต้องตามที่ผู้ใช้กรอกเข้ามาหรือไม่เราอาจทดสอบโดยการเพิ่มคำสั่งให้แสดงกล่องโต้ตอบที่มีข้อความเป็นค่าที่ผู้ใช้กรอกเข้ามาเพิ่มอีกหนึ่งคำสั่งดังนี้

Sub request()
    UserName = InputBox("Please type your name in the box below and then click OK.")
    MsgBox (UserName)
End Sub

เมื่อทำการทดสอบการทำงานของโปรแกรม โดยกดปุ่ม F5 แล้วป้อนคำว่า VBA เข้าไปในช่องรับข้อมูลแล้วกดปุ่ม OK จะพบว่ามีกล่องโต้ตอบแสดงข้อความ VBA ออกมา ซึ่งแสดงว่าตัวแปร UserName เก็บค่าที่เราป้อนเข้าไปถูกต้อง ผลลัพธ์ดังแสดงในภาพข้างล่าง




จะเห็นว่าการใช้งานกล่องโต้ตอบแบบ Input Box นั้นง่ายมาก 

ขอให้สนุกกับการใช้ Input Box นะครับ ^^

msgbox คำสั่งแรกใน Excel VBA

เริ่มเขียน VBA ครั้งแรกต้องนี่เลยครับ การแสดงข้อความโต้ตอบกับผู้ชมด้วยคำสั่ง  msgbox

รูปแบบ
       msgbox("ข้อความที่ต้องการโต้ตอบออกมา")

ตัวอย่าง 
ผมจะสร้างโปรแกรมย่อย (sub) ที่ชื่อว่า response ที่มีหนึ่งคำสั่งอยู่ภายใน โดยใช้คำสั่ง msgbox ให้แสดงข้อความโต้ตอบออกมาว่า I love you.


Sub response()
    MsgBox ("I love you.")
End Sub


หลังจากนั้น ก็ทดสอบการทำงานของโปรแกรม โดยการกดที่ปุ่ม  Run sub ที่มีหน้าตาคล้ายๆกับรูป
หรือ กดคีย์ลัด F5 แทนก็ได้ครับ แล้วโปรแกรมก็จะแสดงข้อความโต้ตอบออกมาลักษณะดังรูป (ภาพนี้ใช้ MS Excel 2007)




เมื่อทดลองเปลี่ยนข้อความจาก I love you. เป็น Thai Excel VBA  ตาม Code ข้างล่าง ก็จะได้ผลลัพท์เป็น


Sub response()
    MsgBox ("Thai Excel VBA Community.")       
End Sub


เห็นไม๊ครับว่า ง่ายนิดเดียวเอง ลองนำไปประยุกต์ใช้นะครับ

ขอให้มีความสุขกับ message box นะ ^^



ก้าวแรก กับ VBA ใน เอกเซล

VBA หรือ Visual Basic for Application นั้น เป็นอีกส่วนที่เสริมมากับ เอกเซล เพื่อให้ผู้ใช้งานในการคำนวณขั้นสูงได้ปรับแต่งการทำงานของโปรแกรมได้ด้วยตัวเอง ผู้ใช้ที่จะเข้ามาใช้บริการในส่วนนี้ก็มักจะเป็นกลุ่มที่มีนิสัย ชอบปรับแต่งอะไรด้วยตัวเอง (customize) ผมเองก็เช่นกันที่เวลาติดตั้งโปรแกรมอะไรๆเสร็จก็มักจะต้องเข้าเครื่องมือ Tool แล้วตามด้วย option หรือ customize ...^^

นอกจากนี้หากคุณคิดจะใช้งาน VBA คุณจะต้องเป็นคนที่ชอบการเขียนโปรแกรมหรือมีความสามารถในการเขียนโปรแกรมอยู่บ้างแล้ว เช่นเกี่ยวกับคำสั่ง If  แบบต่างๆ  , การวน Loop เป็นต้น พื้นฐานการเขียนโปรแกรมก็มาจากภาษา VB หรือ Visual Basic ซึ่งมีการปรับแต่งการทำงานและคำสั่งต่างๆ ให้เข้ากับการทำงานต่างๆของ เอกเซล และ นอกจากเอกเซลแล้ว โปรแกรมในตระกูล MS Office ทุกตัวก็มี VBA ฝังอยู่ด้วยเช่นกัน เพียงแต่ว่าไม่ค่อยเป็นที่รู้จัก หรือแม้แต่โปรแกรมนอกค่าย Microsoft อย่าง AutoCAD ของค่าย AutoDesk ก็ยังมีส่วนเสริม VBA เช่นกัน เห็นไหมล่ะครับว่า VBA นั้นเป็นที่นิยมแค่ใหน

การใช้งาน VBA ในแต่ละโปรแกรมนั้นก็ถือว่าเป็นขั้น Advance แล้วนะครับ หุหุ  น้อยคนจริงๆที่จะเปิดเข้าไป แต่ว่ายังมี Advance ของ Advance อีกนั่นก็คือ เราสามารถเชื่อมโยงการทำงานของ โปรแกรมต่างๆที่มี VBA อยู่ให้ทำงานจากโปรแกรมตัวเดียวกันได้ ฟังแล้วน่าทึ่งใช่ใหม่ละครับ ไว้วันหลังผมจะมาเขียนเล่าถึงตรงนี้ให้อีกที (ถ้าลืมอย่าลืมทวงนะ ^^)

การเข้าใช้งาน VBA
สำหรับ เอกเซลแต่ละเวอร์ชันก็มีการปรับปรุงหน้าตา หรือเมนู ต่างกันไปทำให้บางทีแทบหากันไม่เจอเลยทีเดียว 555 แต่คีย์ลัดสำหรับเข้าใช้งานจะเหมือนกันทุกเวอร์ชันก็คือ
Alt + F11 (กดปุ่ม Alt พร้อมกับปุ่ม F11)

หน้าตาทั่วไป
 ตอนนี้เอกเซลที่ผมใช้คือ เวอร์ชัน 2007 ก็เลย capture หน้าต่าง VBA หลังจากกดปุ่ม (Alt + F11) มาให้ดู หน้าตาทั่วไปก็ประกอบด้วย แถบเมนูด้านบนสุด ถัดลงมาก็เป็น แถบเครื่องมือ ถัดลงมาทางด้านล่างซ้ายก็เป็นหน้าต่างเล็กๆสองอันนั่นก็คือ Project window และ Property window และที่เห็นในภาพสีเทาๆใหญ่ๆด้านล่างขวาก็คือ พื้นที่ทำงานซึ่งได้แก่การเขียน code หรือการสร้าง user form 





แถบเมนู





แถบเครื่องมือ






หากต้องการเริ่มเขียนโปรแกรม ภาษา VBA ก็ไปที่เมนู Insert แล้วเลือก Module ก็จะปรากฏหน้าต่างย่อยที่อยู่ในหน้าต่างรวมหรือ workspace ขึ้นมาอีกอันซึ่งเริ่มเขียนโปรแกรมได้

หรือหากต้องการสร้างกล่องโต้ตอบขึ้นมาใช้เอง ก็เลือก Insert > User form