คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ต้องใช้ Userform ใน VBE แล้วเขียน Code กำหนดการทำงานให้แต่ละ Control ครับ ลองแกะ Code จาก Add-ins ของ John Walkenbach ตาม Link นี้ครับ http://j-walk.com/ss/excel/files/toolbarcalc.htm
การทำเครื่องคิดเลขสำหรับมือใหม่ผมคิดว่าไม่ง่ายครับ Code ตามด้านล่างผมเขียนขึ้นง่าย ๆ เพื่อให้เห็นว่าการคลิกเลขหลายตัวแล้วให้แสดงผลด้วยกันเป็นอย่างไร หากต้องการทำเครื่องคิดเลขจริง ๆ ให้ศึกษาจาก Link ที่ผมส่งไปให้ครับ
Code: Select all
Dim s As String
Private Sub CmB0_Click()
s = TextB111.Text & 0
TextB111 = s
End Sub
Private Sub CmB1_Click()
s = TextB111.Text & 1
TextB111 = s
End Sub
Private Sub CmB2_Click()
s = TextB111.Text & 2
TextB111 = s
End Sub
Private Sub CmB3_Click()
s = TextB111.Text & 3
TextB111 = s
End Sub
Private Sub CmB4_Click()
s = TextB111.Text & 4
TextB111 = s
End Sub
Private Sub CmB5_Click()
s = TextB111.Text & 5
TextB111 = s
End Sub
Private Sub CmB6_Click()
s = TextB111.Text & 6
TextB111 = s
End Sub
Private Sub CmB7_Click()
s = TextB111.Text & 7
TextB111 = s
End Sub
Private Sub CmB8_Click()
s = TextB111.Text & 8
TextB111 = s
End Sub
Private Sub CmB9_Click()
s = TextB111.Text & 9
TextB111 = s
End Sub
Private Sub UserForm_Click()
TextB111 = ""
End Sub