จะสรุปค่าจากกล่องข้อความได้อย่างไร?

สมมติว่าคุณมีกล่องข้อความสามกล่องซึ่งคุณต้องการรวมค่าใน Textbox1 และ Textbox2 และคำนวณผลลัพธ์โดยอัตโนมัติใน Textbox3 ดังภาพหน้าจอต่อไปนี้ คุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?

สรุปค่าจากกล่องข้อความด้วยรหัส VBA

สรุปค่าจากกล่องข้อความด้วยรหัส VBA

ในการสรุปค่าจากกล่องข้อความสองกล่องและรับผลลัพธ์ลงในกล่องข้อความที่สามรหัส VBA ต่อไปนี้อาจช่วยคุณได้

1. ขั้นแรกคุณควรแทรกกล่องข้อความสามช่องคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control)จากนั้นวาดกล่องข้อความและทำสำเนาสองชุดดูภาพหน้าจอ:

2. หลังจากใส่กล่องข้อความแล้วให้คลิกขวาที่แท็บแผ่นงานซึ่งมีกล่องข้อความที่คุณต้องการใช้แล้วคลิก ดูรหัส จากเมนูบริบทเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโมดูลเปล่า:

รหัส VBA: สรุปค่าจากกล่องข้อความ:

Private Sub Sum_Click()
    TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub

3. จากนั้นพิมพ์ค่าลงใน Textbox1 และ Textbox2 จากนั้นกด F5 คีย์หรือ วิ่ง ปุ่มเพื่อรันโค้ดผลลัพธ์ที่คำนวณจะแสดงใน Textbox3 ทันทีดูภาพหน้าจอ: