จะย้ายแถวใดแถวหนึ่งไปยังแผ่นงานใหม่ได้อย่างไรเมื่อเลือกกล่องกาเครื่องหมายใน Excel
บทความนี้พูดถึงการย้ายแถวหนึ่งไปยังแผ่นงานใหม่เมื่อมีการเลือกกล่องกาเครื่องหมายใน Excel
ย้ายแถวเมื่อเลือกกล่องกาเครื่องหมายด้วยรหัส VBA
ย้ายแถวเมื่อเลือกกล่องกาเครื่องหมายด้วยรหัส VBA
โปรดทำดังนี้เพื่อย้ายแถวหนึ่งไปยังแผ่นงานที่ระบุเมื่อทำเครื่องหมายในช่องทำเครื่องหมายใน Excel
1. เลื่อนไปที่แผ่นงานที่คุณต้องการย้ายแถวตามกล่องกาเครื่องหมายคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องกาเครื่องหมาย (ActiveX Control) เพื่อแทรกกล่องกาเครื่องหมาย ดูภาพหน้าจอ:
2. คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:
3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: ย้ายแถวไปยังแผ่นงานที่ระบุเมื่อเลือกกล่องกาเครื่องหมาย
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
หมายเหตุ: ในโค้ด Shee3 และ A1 ระบุว่าแถวที่ระบุจะถูกย้ายไปยังแถวแรกใน Sheet3 โปรดเปลี่ยนตามความต้องการของคุณ
4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
5. ปิดโหมดออกแบบโดยคลิกที่ไฟล์ โหมดการออกแบบ ปุ่มบน ผู้พัฒนา แถบ
6. เลือกช่องทำเครื่องหมายแล้วเลือก a Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกเซลล์แรกของแถว (หรือทั้งแถว) ที่คุณต้องการย้ายแล้วคลิก OK ปุ่ม. จากนั้นทั้งแถวที่ระบุจะถูกย้ายไปยังแผ่นงานบางแผ่นทันที ดูภาพหน้าจอ:
บทความที่เกี่ยวข้อง:
- วิธีย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าเซลล์ใน Excel
- วิธีย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานตามค่าของเซลล์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!