ทำฟอร์มเครื่องคิดเลข

[yodpao.b]

ช่วยแนะนำการทำฟอร์มเครื่องคิดเลขด้วยครับ

[snasui]

ต้องใช้ Userform ใน VBE แล้วเขียน Code กำหนดการทำงานให้แต่ละ Control ครับ

สำหรับคำแนะนำ คือให้สร้าง Userform และ Control ขึ้นมาก่อน เขียน Code กำกับแต่ละ Control ตามที่ต้องการ ติดขัดตรงไหนค่อยมาถามตอบกันต่อครับ

ดูตัวอย่างที่นี่ครับ Userform และ Control

[yodpao.b]

มือใหม่จริง จริงครับหลบกวนด้วย

สิ่งที่ได้มา ไม่เข้าใจจริงครับ

คำถาม ต้องการคลิกที่ปุ่มตัวเลขแล้วให้แสดงที่ช่อง สีเหลือง !
สิ่งที่ผมทำได้ในตอนนี้คือ สมมุติต้องการได้ค่า 12 แต่เวลาทำคลิก 1 ฟอร์มแสดงค่า 1
แต่พอคลิก 2 ฟอร์มแสดงค่า 2 ซึ่งจุดประสงค์ต้องการให้แสดงค่า 12

ฟอร์มอยู่ในไฟล์ excle ครับกรุณาด้วยครับ

[snasui]

ลองแกะ Code จาก Add-ins ของ John Walkenbach ตาม Link นี้ครับ http://j-walk.com/ss/excel/files/toolbarcalc.htm

[yodpao.b]

ช่วยส่ง Code ให้หน่อยครับอาจารย์
ต้องการคลิกที่ปุ่มตัวเลขแล้วให้แสดงที่ช่อง สีเหลือง

[snasui]

การทำเครื่องคิดเลขสำหรับมือใหม่ผมคิดว่าไม่ง่ายครับ 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

[yodpao.b]

เพิ่มกลับจากการปฎิบัติงานที่ต่างจังหวัดครับ
ขอบคุณครับแบบนี้ละที่ผมต้องการ