ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
http://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