16:30:00
สูตร Excel วันนี้ ยังคงเป็นสูตรของ Excel ที่ต้องใช้ความสามารถของ VBA เข้ามาช่วยเช่นเคย นั่นคือ วิธีการเรียก ใช้ กล่องโต้ตอบ "การจัดรูปแบบเซลล์" ให้ปรากฏตัวขึ้นมา โดยในตัวอย่างนี้เราจะ กำหนดเงื่อนไขว่า ถ้าเราใช้เม้าส์คลิ้กที่เซลล์ A1 กล่องโต้ตอบ "การจัดรูปแบบเซลล์" ก็จะปรากฏตัวขึ้นมา อย่างนี้เป็นต้น
โดยปกติ ถ้าเราต้องการให้กล่อง การจัดรูปแบบเซลล์ ปรากฏตัว เราก็แค่คลิ้กขวาแล้วเลือกคลิ้กที่คำสั่ง จัดรูปแบบเซลล์ จากเมนููย่อย กล่องโต้ตอบ การจัดรูปแบบเซลล์ จึงจะปรากฏ
แต่ในตัวอย่างนี้ เราจะสั่งให้กล่อง จัดรูปแบบเซลล์ ปรากฏตัวขึ้นมา ภายในขั้นตอนเดียวเท่านั้น ตามเงื่อนไขที่ได้ บอกไปแล้ว
วิธีทำ
โดยปกติ ถ้าเราต้องการให้กล่อง การจัดรูปแบบเซลล์ ปรากฏตัว เราก็แค่คลิ้กขวาแล้วเลือกคลิ้กที่คำสั่ง จัดรูปแบบเซลล์ จากเมนููย่อย กล่องโต้ตอบ การจัดรูปแบบเซลล์ จึงจะปรากฏ
แต่ในตัวอย่างนี้ เราจะสั่งให้กล่อง จัดรูปแบบเซลล์ ปรากฏตัวขึ้นมา ภายในขั้นตอนเดียวเท่านั้น ตามเงื่อนไขที่ได้ บอกไปแล้ว
วิธีทำ
- เปิด Excel ขึ้นมา
- เลือกเซลล์ A1
- กด Alt + F11 แล้วใส่โค้ดต่อไปนี้เข้าไป
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Address = "$A$1") Then
Range("A1").Select
Application.Dialogs(xlDialogFormatNumber).Show
End If
End Sub - กด Alt + F11 เพื่อกลับไปที่ Excel
- ทดสอบการทำงาน
- ลองคลิ้กที่เซลล์ A1 ผลที่ได้จเป็นดังภาพด้านล่างนี้คับ
