Note: The other languages of the website are Google-translated. Back to English

วิธีการเน้นเซลล์ที่ใช้งานหรือการเลือกใน Excel

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

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

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

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


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

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications

2. จากนั้นเลือก สมุดงานนี้ จากด้านซ้าย นักสำรวจโครงการดับเบิลคลิกเพื่อเปิดไฟล์ โมดูลจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลเปล่า:

รหัส VBA: เน้นเซลล์ที่ใช้งานอยู่หรือส่วนที่เลือก

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

doc-highlight-active-cell-1

3. จากนั้นบันทึกและปิดรหัสนี้และกลับไปที่แผ่นงานตอนนี้เมื่อคุณเลือกเซลล์หรือส่วนที่เลือกเซลล์ที่เลือกจะถูกไฮไลต์และจะถูกย้ายแบบไดนามิกเมื่อเซลล์ที่เลือกเปลี่ยนไป

หมายเหตุ:

1. หากคุณไม่พบไฟล์ บานหน้าต่าง Project Explorer ในหน้าต่างคุณสามารถคลิก รายละเอียด > นักสำรวจโครงการ ใน หน้าต่าง Microsoft Visual Basic for Applications เพื่อเปิด

2. ในรหัสด้านบนคุณสามารถเปลี่ยนได้ .Colorindex = 6 สีอื่น ๆ ที่คุณชอบ

3. รหัส VBA นี้สามารถใช้ได้กับแผ่นงานทั้งหมดภายในสมุดงาน

4. หากมีเซลล์สีบางเซลล์ในแผ่นงานของคุณสีจะหายไปเมื่อคุณคลิกเซลล์แล้วย้ายไปที่เซลล์อื่น


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

วิธีการเน้นแถวและคอลัมน์ของเซลล์ที่ใช้งานอยู่ใน Excel โดยอัตโนมัติ


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (16)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉลาดหลักแหลม! ฉันใช้รหัสของคุณเพื่อเน้นเซลล์ มันทำงานได้อย่างสมบูรณ์แบบสำหรับสิ่งที่ฉันทำ การใช้ไฮเปอร์ลิงก์นับร้อยเพื่อย้ายไปมาระหว่างแผ่นงานและสมุดงาน ทำให้การเดินทางง่ายขึ้นมาก ขอบคุณสำหรับสคริปต์ VBA เล็กน้อยของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม!! แต่ถ้าฉันไม่ต้องการที่จะสูญเสียสีของเซลล์ที่กำหนดไว้ก่อนหน้านี้ล่ะ นั่นคงจะดีกว่าถ้ารู้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช่ ฉันก็อยากรู้เรื่องนี้เหมือนกัน คุณจะเน้นเซลล์ที่เลือกไว้ก่อนหน้านี้เพื่อวัตถุประสงค์ในการติดตามอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูความคิดเห็นของฉันด้านบน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แทนที่จะใช้ "ColorIndex" ซึ่งมีชุดค่าจำกัด 255 ค่า (หมายความว่าสีที่กำหนดเองจะหายไป) ให้ใช้ "สี" แทน คุณจะต้องเก็บค่าเก่าไว้ในตัวแปรคงที่แบบยาวและสร้างสีไฮไลต์ที่คุณต้องการด้วยฟังก์ชัน RGB ปัญหาเดียวของการเปิดใช้งานรหัสนี้คือคุณไม่สามารถเปลี่ยนสีของเซลล์ที่ใช้งานอยู่ได้อีกต่อไปเนื่องจากจะเปลี่ยนกลับไปเป็นสีเดิมก่อนที่คุณจะคลิก ฉันแนะนำว่าถ้าคุณต้องการเปลี่ยนสีไฮไลต์บนชีต ให้ปิดโดยปิดมาโครหรือเปลี่ยนชื่อย่อยสักครู่ เพื่อไม่ให้ทริกเกอร์เมื่อคุณคลิกเซลล์ จากนั้นให้เปลี่ยนชื่อกลับเป็นปกติเป็น " เปิดใช้งานอีกครั้ง" มัน นี่คือรหัสของฉัน:

Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target เป็น Excel.Range)

xLastRng แบบคงที่เป็นช่วง
xLastRngColor แบบคงที่ ตราบใดที่

เกี่ยวกับข้อผิดพลาดต่อไป

xLastRng.Interior.Color = xLastRngColor
xLastRngColor = Target.Interior.Color
Target.Interior.Color = RGB(255, 255, 0) 'เขียนสีไฮไลท์ที่คุณต้องการด้วยค่า RGB ฉันใช้สีเหลืองที่นี่
ตั้งค่า xLastRng = Target

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งาน....ดี...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้รูปแบบตามเงื่อนไขในเซลล์ที่คุณต้องการป้องกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โซลูชันที่สมบูรณ์แบบ เนื่องจากฉันมักจะสูญเสียแทร็กของเซลล์ที่ไฮไลต์ระหว่างการทำงาน "ค้นหาและเลือก" ขอบคุณมาก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แต่ฉันไม่สามารถเลิกทำตัวเลือกและสูญเสียสีของเซลล์ที่กำหนดไว้ก่อนหน้านี้ด้วย
โปรดระบุวิธีแก้ปัญหา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ แต่ใช้สิ่งนี้ด้วยความระมัดระวัง มันมีผลตอบโต้ที่ไม่พึงประสงค์ของการไม่ยอมให้เลิกทำ มีวิธีแก้ไขหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อย่างไรก็ตาม คุณสามารถทำเซลล์ที่อยู่ติดกันทางซ้ายเพื่อเน้นแทนเซลล์ที่ใช้งานอยู่ได้หรือไม่ หรือช่วงของเซลล์รอบๆ activecell?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันมีประโยชน์มาก ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้มาโครของคุณโดยคัดลอกและวางลงในไฟล์ Excel ของฉัน ฉันเปลี่ยนสิ่งหนึ่งในมาโครแล้ว ฉันเปลี่ยนดัชนีสีจาก 6 เป็น 24 (เป็นสีที่แตกต่างจากสีที่ฉันใช้ในมาโครในปัจจุบัน) มันใช้งานได้ดีมากและฉันชอบมันมาก แต่แล้วก็เริ่มสร้างปัญหาให้ฉัน ฉันมีเซลล์จำนวนมากที่เต็มไปด้วยสีใน Excel ของฉัน มาโครเริ่มลบการเติมสีออกจากทุกเซลล์ที่สัมผัส ฉันไม่รู้ว่าจะหยุดพฤติกรรมแปลก ๆ ของมาโครนี้ได้อย่างไร ฉันไม่มีทางเลือกอื่นนอกจากต้องลบมาโครออกจากไฟล์ของฉัน ฉันยังต้องการใช้มาโครนี้ถ้ามีคนสามารถช่วยฉันแก้ไขได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันรู้ว่าคุณเสนอวิธีแก้ปัญหา แต่วิธีแก้ไขมาพร้อมกับปัญหาอื่นตามที่คุณอธิบายด้านล่าง: "ปัญหาเดียวของการเปิดใช้รหัสนี้คือ คุณไม่สามารถเปลี่ยนสีของเซลล์ที่ใช้งานอยู่ได้อีกต่อไป เนื่องจากจะเปลี่ยนกลับไปเป็นสีเดิมก่อนที่คุณจะคลิก ฉันแนะนำว่าถ้าคุณต้องการเปลี่ยนสีไฮไลต์บนชีต ให้ปิดโดยปิดมาโครหรือเปลี่ยนชื่อย่อยสักครู่เพื่อไม่ให้ทริกเกอร์เมื่อคุณคลิกเซลล์" นี่ไม่ใช่ทางเลือกที่ยอมรับได้สำหรับฉัน ฉันต้องสามารถเปลี่ยนสีในเซลล์ได้เมื่อแมโครทำงานอยู่ คุณมีวิธีแก้ปัญหาสำหรับปัญหานี้หรือไม่ หากคุณคิดวิธีแก้ปัญหานี้ โปรดเผยแพร่มาโครที่แก้ไขแล้วของคุณอีกครั้งในมาโครใหม่ทั้งหมด (แทนที่จะเสนอแพตช์ให้กับมาโครดั้งเดิมของคุณ เนื่องจากฉันมีความท้าทายทางเทคนิคในด้านมาโคร)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ถ้าใครสามารถช่วยฉันได้... ฉันรับรหัสนี้ในอินเทอร์เน็ต (ขออภัยเจ้าของ) มันทำสิ่งที่ฉันต้องการเกือบทั้งหมด แต่รหัสนี้เลือกทั้งแถว สิ่งที่ฉันต้องการคือการเปลี่ยนแปลงที่สามารถเลือกเพียงสองเซลล์แรกของแถวของ activecells เท่านั้น เมื่อฉันคลิกในเซลล์ ฉันต้องการให้เซลล์ของคอลัมน์ "$I16" และ "$J16" (16 เป็นบรรทัดแรกของตารางของฉัน) ของแถวนั้นกลายเป็นสีภายใน (=9359529) รหัสคือ: 
Dim lTarget เป็นช่วง

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)

ถ้า Target.Row >= 16 แล้ว

ถ้าไม่ใช่ lTarget ก็ไม่มีอะไรทั้งนั้น

lTarget.EntireRow.Interior.ColorIndex = 0
End If

Target.EntireRow.Interior.Color = 9359529

ตั้งค่า lTarget = Target
End If
ย่อยสิ้นสุด

คุณสามารถช่วยฉันได้ไหม? ฉันได้ลองเปลี่ยนรหัสนี้แล้ว แต่สิ่งเดียวที่ฉันทำได้คือเลือกสีภายในของเป้าหมายเซลล์ ไม่ใช่คอลัมน์ "$I" และ "$J" ในแถวนั้นๆ ขอบคุณสำหรับความช่วยเหลือ
หลุยส์ โลเปส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาเดียวกัน อ่านทั้งหน้าและแสดงความคิดเห็น ระหว่างที่คิดว่าจะใช้หรือไม่ ผมก็แค่สุ่มคลิกที่ตัวเลขและตัวอักษรเพื่อเลือกทั้งคอลัมน์และแถว ทันใดนั้นไฮไลท์ของคุณสมบัติเซลล์ที่เลือกก็กลับมา :)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ