การเพิ่ม VBA CommandButton ด้วยรหัสที่เกี่ยวข้อง

การเพิ่ม VBA CommandButton ด้วยรหัสที่เกี่ยวข้อง ไม่ใช่งานที่ซับซ้อน เพียงแค่ต้องการความรู้เล็กน้อยเกี่ยวกับ Excel และมาโคร ด้วย VBA ปุ่มสามารถเรียกใช้แมโครแสดงข้อความและทำงานอื่น ๆ ได้ ใช้ VBA inorder เพื่อเพิ่มฟังก์ชันการทำงานให้กับแผ่นงาน Excel โดยไม่ต้องมีความรู้ในรายละเอียดทางเทคนิคของ คุณสมบัติ VBA CommandButton หรือฟังก์ชั่นเช่น คลิก VBA CommandButton คัดลอกรหัสไปยังโมดูลที่เกี่ยวข้องและยืนยันว่าปุ่มทำงาน หนึ่งสามารถเพิ่มฟังก์ชันการทำงานของแผ่นงานโดย การเพิ่ม VBA CommandButton ด้วยรหัสของ มัน ซอฟต์แวร์ Office มีการพัฒนาอย่างชัดเจนมากขึ้นกว่าเดิม

วางโค้ดสองส่วนนี้ลงในโมดูลทั่วไป (ตัวอย่างเช่น Module1)

 ย่อย CreateButton () Dim Obj เป็นรหัส Dim วัตถุเป็นแผ่นสตริง ("Sheet1") เลือก 'สร้างปุ่ม Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = เท็จ, ซ้าย: = 200, สูงสุด: = 100, ความกว้าง: = 100, ความสูง: = 35) Obj.Name = "TestButton" 'buttonn text ActiveSheet.OLEObjects (1) .Object.Caption = "ปุ่มทดสอบ"' macro text Code = "Sub ButtonTest_Click ()" & vbCrLf Code = รหัส & "Call Tester" & vbCrLf Code = รหัส & "End Sub" 'เพิ่มมาโครที่ส่วนท้ายของโมดูลชีตด้วย ActiveWorkbook.VBProject.VBProject.VBProject.Name ) .CodeModule .insertlines .CountOfLines + 1, รหัสสิ้นสุดด้วย End Sub Sub Tester () MsgBox "คุณได้คลิกที่ปุ่มทดสอบ" End Sub

ดาวน์โหลด: