ไปยังเนื้อหาหลัก

 วิธีเรียกใช้แมโครตามค่าเซลล์ใน Excel

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-11-08

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

เรียกใช้หรือทริกเกอร์มาโครหากค่าของเซลล์มากกว่าหรือน้อยกว่าค่าเฉพาะด้วยรหัส VBA

เรียกใช้หรือทริกเกอร์มาโครหากค่าของเซลล์เท่ากับข้อความที่ระบุด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา เรียกใช้หรือทริกเกอร์มาโครหากค่าของเซลล์มากกว่าหรือน้อยกว่าค่าเฉพาะด้วยรหัส VBA

ตัวอย่างเช่นถ้าค่าในเซลล์ A1 อยู่ระหว่าง 10 ถึง 50 ให้เรียกใช้ macro1 และถ้าค่ามากกว่า 50 ให้เรียกใช้ macro2 หากต้องการแก้ไขงานนี้ใน Excel โปรดใช้รหัส VBA ต่อไปนี้

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

รหัส VBA: เรียกใช้แมโครหากค่าของเซลล์มากกว่าหรือน้อยกว่า:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        Select Case Target.Value
        Case 10 To 50: Macro1
        Case Is > 50: Macro2
        End Select
    End If
End Sub

คลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัส จากนั้นวางรหัสลงในโมดูล 1

หมายเหตุ: ในโค้ดด้านบน:

A1 คือเซลล์ที่มีค่าเฉพาะที่คุณต้องการเรียกใช้แมโครตาม;

กรณีที่ 10 ถึง 50: มาโคร 1: หมายความว่าถ้าค่าอยู่ระหว่าง 10 ถึง 50 ให้เรียกใช้ Macro1

กรณีคือ> 50: มาโคร 2: หมายความว่าถ้าค่ามากกว่า 50 ให้เรียกใช้ Macro2

โปรดเปลี่ยนชื่อมาโครและเกณฑ์เหล่านี้ตามความต้องการของคุณและคุณยังสามารถเพิ่มเกณฑ์เพิ่มเติมได้ตาม กรณี ต้นฉบับ

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อค่าที่คุณป้อนอยู่ระหว่าง 10 ถึง 50 ในเซลล์ A1 ระบบจะเรียกใช้ Macro1 หากค่าที่ป้อนมากกว่า 50 Macro2 จะดำเนินการ

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

  • การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
  • สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
  • การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
  • การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
  • การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

ลูกศรสีฟ้าฟองขวา เรียกใช้หรือทริกเกอร์มาโครหากค่าของเซลล์เท่ากับข้อความที่ระบุด้วยรหัส VBA

หากคุณต้องการเรียกใช้มาโครตามข้อความที่ระบุในเซลล์ตัวอย่างเช่นเพื่อเรียกใช้ macro1 หากป้อนข้อความ "ลบ" และเรียกใช้ macro2 หากพิมพ์ข้อความ "แทรก" รหัสต่อไปนี้สามารถช่วยคุณได้

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

รหัส VBA: เรียกใช้แมโครหากค่าของเซลล์เป็นข้อความเฉพาะ

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
 Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub 

คลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัส จากนั้นวางรหัสลงในโมดูล 2

หมายเหตุ: ในโค้ดด้านบน“ลบ"และ"สิ่งที่ใส่เข้าไป” คือข้อความในเซลล์ที่คุณต้องการเรียกใช้มาโครตามและ Macro1 และ Macro2 คือมาโครที่คุณต้องการเรียกใช้ตามข้อความ โปรดเปลี่ยนตามความต้องการของคุณ

2. จากนั้นบันทึกรหัสนี้และปิดหน้าต่างตอนนี้เมื่อคุณป้อนข้อความ“ ลบ” ในเซลล์ A1 มาโคร1จะถูกเรียกใช้หากป้อนข้อความ“ แทรก” มาโคร2จะถูกเรียกใช้


บทความที่เกี่ยวข้อง:

วิธีเรียกใช้แมโครเมื่อค่าของเซลล์เปลี่ยนแปลงใน Excel

วิธีเรียกใช้มาโครโดยอัตโนมัติก่อนพิมพ์ใน Excel

วิธีเรียกใช้แมโครตามค่าที่เลือกจากรายการแบบหล่นลงใน Excel

วิธีเรียกใช้แมโครโดยคลิกไฮเปอร์ลิงก์ใน Excel

วิธีเรียกใช้แมโครเมื่อแผ่นงานถูกเลือกจากสมุดงาน

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!