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

วิธีย้อนกลับการเลือกช่วงที่เลือกใน Excel ได้อย่างง่ายดาย?

สมมติว่าคุณได้เลือกเซลล์เฉพาะบางช่วงของช่วงและตอนนี้คุณต้องผกผันการเลือก: ยกเลิกการเลือกเซลล์ที่เลือกแล้วเลือกเซลล์อื่น ดูภาพหน้าจอต่อไปนี้:

แน่นอนคุณสามารถย้อนกลับการเลือกได้ด้วยตนเอง แต่บทความนี้จะนำเสนอเคล็ดลับน่ารัก ๆ ในการย้อนกลับการเลือกอย่างรวดเร็ว:

ย้อนกลับการเลือกใน Excel ด้วย VBA

ย้อนกลับการเลือกใน Excel ด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา ย้อนกลับการเลือกใน Excel ด้วย VBA

การใช้แมโคร VBA จะทำให้คุณทำงานได้ง่ายในการย้อนกลับการเลือกในพื้นที่ทำงานของแผ่นงานที่ใช้งานอยู่

Step1: เลือกเซลล์ที่คุณต้องการย้อนกลับ

Step2: กดปุ่ม อื่น ๆ + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

Step3คลิกที่นี่ สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล

VBA สำหรับการย้อนกลับการเลือก

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกเซลล์บางเซลล์ที่คุณไม่จำเป็นต้องเลือกในผลลัพธ์ ดูภาพหน้าจอ:




ขั้นตอนที่ 5คลิกที่นี่ OKและเลือกช่วงที่คุณต้องการย้อนกลับการเลือกในกล่องโต้ตอบป๊อปอัปอื่น ดูภาพหน้าจอ:




ขั้นตอนที่ 6คลิกที่นี่ OK. คุณจะเห็นว่าการเลือกถูกย้อนกลับ


หมายเหตุ: VBA นี้ยังทำงานในแผ่นงานเปล่า


ลูกศรสีฟ้าฟองขวา ย้อนกลับการเลือกใน Excel ด้วย Kutools for Excel

คุณอาจต้องการย้อนกลับการเลือกใน Excel อย่างรวดเร็วซึ่งเป็นไฟล์ เลือก Range Helper เครื่องมือของ Kutools สำหรับ Excel สามารถช่วยคุณย้อนกลับการเลือกใน Excel ได้อย่างรวดเร็ว เคล็ดลับนี้ช่วยให้คุณย้อนกลับการเลือกใด ๆ ในสมุดงานทั้งหมดได้อย่างง่ายดาย

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

Step1: เลือกเซลล์ที่คุณต้องการย้อนกลับ

Step2: คลิก Kutools > เลือกเครื่องมือ > เลือก Range Helper ....

Step3: ใน เลือก Range Helper ให้ทำเครื่องหมายที่ การเลือกผกผัน ตัวเลือก

Step4: จากนั้นลากเมาส์เพื่อเลือกช่วงที่คุณต้องการย้อนกลับการเลือก เมื่อคุณปล่อยเมาส์เซลล์ที่เลือกจะถูกยกเลิกการเลือกและเซลล์ที่ไม่ได้เลือกจะถูกเลือกของช่วงพร้อมกัน

Step5: แล้วปิดไฟล์ เลือก Range Helper กล่องโต้ตอบ

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ เลือก Range Helperกรุณาเยี่ยมชม เลือกคำอธิบายคุณลักษณะ Range Helper.


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

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

🤖 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations