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

วิธีคัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่ใน Excel

ในบางกรณีคุณอาจต้องคัดลอกค่าที่เลือกจาก Combo Box ไปยังเซลล์ที่ใช้งานอยู่ โดยปกติคุณต้องเข้าไปใน Combo Box คัดลอกและวางลงในเซลล์ที่ใช้งานอยู่ด้วยตนเอง บทความนี้แนะนำวิธีการที่สะดวกในการอัปเดตเซลล์ที่ใช้งานโดยอัตโนมัติในขณะที่เลือกค่าใน Combo Box

คัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่ด้วยรหัส VBA

VBA 1: คัดลอกค่ากล่องคำสั่งผสมไปยังเซลล์ที่ใช้งานอยู่ผ่านคำสั่ง
VBA 2: คัดลอกค่ากล่องคำสั่งผสมอัตโนมัติไปยังเซลล์ที่ใช้งานอยู่


คัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่ด้วยรหัส VBA

รหัส VBA ด้านล่างสามารถช่วยคุณคัดลอกค่ากล่องคำสั่งผสมไปยังเซลล์ที่ใช้งานได้โดยอัตโนมัติ กรุณาดำเนินการดังนี้

VBA 1: คัดลอกค่ากล่องคำสั่งผสมไปยังเซลล์ที่ใช้งานอยู่ผ่านปุ่มคำสั่ง

1. ประการแรกคุณต้องแทรกปุ่มคำสั่งลงในแผ่นงานตามภาพด้านล่างที่แสดง

2. คลิกขวาที่ปุ่มคำสั่งจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

3. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน แทนที่รหัสเดิมในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: คัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

หมายเหตุ: ในโค้ด CommandButton1 คือชื่อของปุ่มคำสั่งที่แทรกและ ComboBox1 คือชื่อของ Combo Box ที่คุณจะคัดลอกค่ามา โปรดเปลี่ยนตามที่คุณต้องการ

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไปเมื่อคุณต้องการคัดลอกค่ากล่องคำสั่งผสมไปยังเซลล์ที่ใช้งานอยู่โปรดเลือกเซลล์จากนั้นคลิกปุ่มคำสั่งเพื่อดำเนินการให้เสร็จ

VBA 2: คัดลอกค่ากล่องคำสั่งผสมอัตโนมัติไปยังเซลล์ที่ใช้งานอยู่

โค้ด VBA ด้านล่างนี้สามารถช่วยคุณอัปเดตเซลล์ที่ใช้งานอยู่โดยอัตโนมัติในขณะที่เลือกค่าใน Combo Box คุณสามารถทำได้ดังนี้

1 ตรวจดูให้แน่ใจว่า โหมดการออกแบบ เปิดอยู่ภายใต้ไฟล์ ผู้พัฒนา แถบ

2. คลิกขวาที่ Combo Box ที่คุณจะคัดลอกค่าจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

3. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน แทนที่รหัสเดิมในไฟล์ รหัส หน้าต่างที่มีรหัส VBA ด้านล่าง

รหัส VBA: คัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

หมายเหตุ: ในโค้ด ComboBox1 คือชื่อของ Combo Box ที่คุณจะคัดลอกค่ามา

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดหน้าต่าง Microsoft Visual Basic for Applications และปิดโหมดออกแบบภายใต้แท็บนักพัฒนา

จากนี้ไปเมื่อเลือกค่าจาก Combo Box ระเบียนที่เลือกนี้จะแสดงในเซลล์ที่ใช้งานโดยอัตโนมัติ


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

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

🤖 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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations