คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
อาจารย์ครับ ผมอยากได้วิธีการทำ AutoValidation แบบใหม่ โดยไม่ต้องใช้สูตร และใช้ TextBox ดูที่นี่ http://www.snasui.com/viewtopic.php?f=3&t=936 ครับ ซึ่งจะมีข้อจำกัดในการคีย์ภาษาไทยครับ ขอบคุณครับ ผมมีไฟล์ตัวอย่างมาให้อาจารย์อธิบายหน่อยครับ เป็นความบังเอิญบางอย่างที่อยากให้อาจารย์ดูและคิดว่าน่าจะปรับไปใช้อะไรได้บ้าง
ไม่ใช่ความบังเอิญหรอกครับ เป็นการใช้คุณลักษณะของโปรแกรมในการเลือกค่าที่คีย์ตามลำดับกันมา เพื่อจะได้ไม่ต้องคีย์ค่าซ้ำCode: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$B$5" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$B$6" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$B$7" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$B$8" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$B$9" Then
Range("G1") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
End Sub