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

วิธีเปลี่ยนสีของเซลล์เมื่อเซลล์ถูกคลิกหรือเลือกใน Excel

บทความนี้จะแสดงวิธีการเปลี่ยนสีของเซลล์ในขณะที่คลิกที่เซลล์และเปลี่ยนสีที่ไฮไลต์ในขณะที่เลือกช่วงของเซลล์ใน Excel

เปลี่ยนสีของเซลล์เมื่อคลิกเซลล์ด้วยรหัส VBA
เปลี่ยนสีที่ไฮไลต์เมื่อเซลล์ถูกเลือกด้วยรหัส VBA
เน้นทั้งแถวและคอลัมน์ของเซลล์ที่ใช้งานด้วย Kutools for Excel


เปลี่ยนสีของเซลล์เมื่อคลิกเซลล์ด้วยรหัส VBA

ที่นี่คุณสามารถเปลี่ยนสีพื้นหลังของเซลล์เมื่อดับเบิลคลิกหรือคลิกขวาด้วยรหัส VBA ต่อไปนี้

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ รหัส หน้าต่าง

VBA: เปลี่ยนสีของเซลล์เมื่อคลิกที่มัน

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

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

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


คลิกเพียงครั้งเดียวเพื่อเน้นแถวและคอลัมน์ของเซลล์ที่เลือกใน Excel:

Kutools สำหรับ Excel's การอ่านเค้าโครง ยูทิลิตี้ช่วยให้คุณเน้นแถวและคอลัมน์ของเซลล์ที่เลือกใน Excel ได้อย่างรวดเร็วดังตัวอย่างด้านล่างที่แสดง
ดาวน์โหลดและทดลองใช้เลย! (เส้นทางฟรี 30 วัน)


เปลี่ยนสีที่ไฮไลต์เมื่อเซลล์ถูกเลือกด้วยรหัส VBA

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

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเปลี่ยนสีที่ไฮไลต์ของช่วงที่เลือกแล้วคลิก ดูรหัส จากเมนูคลิกขวา

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ รหัส หน้าต่าง

รหัส VBA: เปลี่ยนสีที่ไฮไลต์ของช่วงที่เลือก

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

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

จากนี้ไปสีที่ไฮไลต์ของช่วงหรือเซลล์ที่เลือกจะเปลี่ยนเป็นสีเหลือง เมื่อคุณคลิกเซลล์อื่นหรือช่วงของเซลล์อื่นเซลล์จะมีสีโดยอัตโนมัติ


เน้นทั้งแถวและคอลัมน์ของเซลล์ที่ใช้งานด้วย Kutools for Excel

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

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1 คลิก Kutools > การอ่านเค้าโครง. ดูภาพหน้าจอ:

จากนั้นเปิดใช้งานเค้าโครงการอ่านคุณจะเห็นแถวและคอลัมน์ของเซลล์ที่ใช้งานอยู่จะถูกไฮไลต์ทันที

หมายเหตุ: คุณสามารถเปลี่ยนการตั้งค่ารูปแบบการอ่านได้ตามความต้องการของคุณตามภาพด้านล่างที่แสดง

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


เน้นทั้งแถวและคอลัมน์ของเซลล์ที่ใช้งานด้วย Kutools for 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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (28)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากขอบคุณมาก ฉันขอขอบคุณสำหรับสิ่งนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันชอบที่การจัดรูปแบบเวิร์กชีตของฉันเป็นโค้ดสำหรับ "เปลี่ยนสีของเซลล์เมื่อคลิก" ได้ง่ายเพียงใด จะทำให้ชีวิตประจำวันของฉันเป็นไปด้วยดี! ฉันกำลังโดนอุปสรรค์ เมื่อฉันคัดลอกแผ่นเปล่าโดยป้อนรหัสตามที่อธิบายไว้ ฉันพบข้อผิดพลาด มันใช้งานได้ดีจนกระทั่งฉันสร้างแผ่นงานใหม่ ฉันเป็นมือใหม่ในการเขียนโค้ดและทำงานจากหนังสือเรียนและอินเทอร์เน็ต ฉันขอขอบคุณความช่วยเหลือใด ๆ ที่คุณจะนำเสนอ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มิเชลที่รัก
ฉันทำตามขั้นตอนตามที่คุณอธิบายแล้ว แต่โค้ดก็ใช้ได้ผลในกรณีของฉันด้วย คุณช่วยบอกฉันเวอร์ชัน Office ของคุณได้ไหม
ขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. แค่หัวขึ้นเล็กน้อย ฉันใช้ office 2007
ฉันลองใช้รหัสของคุณแล้ว และในขณะที่มันใช้งานได้ มันไม่ใช่สิ่งที่ฉันกำลังมองหา ดังนั้นฉันจึงเพิ่งลบรหัสทั้งหมด แต่เซลล์ที่เลือก/ใช้งานล่าสุดก่อนที่ฉันจะลบรหัสยังคงเป็นสีเขียว (ฉันเปลี่ยนสีจาก vbYellow เป็น vbGreen) และสีจะไม่หายไป ไม่ได้รับผลกระทบจากสีเติมเช่นกัน
วิธีแก้ปัญหาที่ง่ายที่สุดที่ฉันพบคือเพียงแค่ลบเซลล์ การคัดลอกและวางจะไม่ทำงาน แต่จะเป็นการคัดลอกสีด้วย
แค่คิดว่าฉันจะแจ้งให้คุณทราบ คุณอาจพบวิธีแก้ไขปัญหา/การแก้ไขปัญหาอื่นนอกเหนือจากการลบและป้อนข้อมูลด้วยตนเอง ยังไงก็ขอบคุณ! ฉันยืนยันว่ารหัสใช้งานได้ :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดที่จะใช้สิ่งนี้กับบางเซลล์ในขณะที่ปล่อยให้เซลล์อื่นพร้อมสำหรับการป้อนตัวเลขหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้ตัวเลือก "เปลี่ยนสีที่ไฮไลต์เมื่อเซลล์ถูกเลือกด้วยรหัส VBA" และบันทึก excel ของฉันเป็นแผ่นงานที่เปิดใช้งานมาโคร ตอนนี้เซลล์สุดท้ายที่เลือกจะถูกเน้นและจะไม่เน้นเซลล์อื่นเมื่อเลือก ฉันได้ลบรหัสและป้อนใหม่และบันทึกแล้ว แต่ก็ยังไม่มีการเปลี่ยนแปลง ฉันไม่สามารถลบไฮไลท์ก่อนหน้าได้เช่นกัน ฉันหลงทางในสิ่งที่ต้องทำ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัสทำงานได้ดีในกรณีของฉันหลังจากบันทึกสมุดงานเป็นสมุดงาน Excel Macro-Enabled
คุณช่วยบอกฉันเวอร์ชัน Excel ของคุณได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหา.
ฉันต้องการเปลี่ยนสีของไฮเปอร์ลิงก์หนึ่งถ้ามันเชื่อมโยงกับ PDF หนึ่งอันเป็น RED และหากไม่ได้ลิงก์กับ PDF หนึ่งอันจะแสดงเป็นสีน้ำเงิน
ฉันจะทำอย่างไรตอนนี้?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
ขออภัยไม่สามารถช่วยคุณในเรื่องนั้นได้ ขอบคุณสำหรับความคิดเห็น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สลาม...
sy sudah ติดตั้ง kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?ตรีมากสีห
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
td muncul=tidak มุนคูล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตรีมาคาสิห
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน ดังนั้นฉันจึงใช้โค้ดแรกเพื่อเปลี่ยนสีของเซลล์เป็นสีเขียว/แดงเมื่อดับเบิลคลิก/คลิกขวา อย่างไรก็ตาม ฉันต้องการให้โค้ดนี้ทำงานเฉพาะกับช่วงของเซลล์ ในกรณีของฉัน D9:P9 ใครสามารถช่วยฉันเกี่ยวกับวิธีการทำเช่นนั้น? ฉันใหม่ที่VBA
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัส VBA ด้านล่างสามารถช่วยคุณได้ โปรดลองดู ขอบคุณสำหรับความคิดเห็นของคุณ.

แผ่นงานย่อยส่วนตัว_BeforeDoubleClick(ByVal กำหนดเป้าหมายเป็นช่วง ยกเลิกเป็นบูลีน)
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("D9:P9")) คือ Nothing) แล้ว
ยกเลิก = จริง
Target.Interior.Color = vbRed
End If
ย่อยสิ้นสุด
แผ่นงานย่อยส่วนตัว_BeforeRightClick(ByVal Target As Range, Cancel as Boolean)
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("D9:P9")) คือ Nothing) แล้ว
ยกเลิก = จริง
Target.Interior.Color = vbGreen
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังพยายามหาวิธีเปลี่ยนสีของเซลล์ตามการเลือกจากรายการดรอปดาวน์ ตัวอย่างเช่น HIGH=red, MEDIUM=yellow, LOW=green

คำแนะนำใด ๆ ที่คุณสามารถให้ได้จะได้รับการชื่นชมอย่างมาก ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
hi
ตะแกรงใช้งานได้ แต่ฉันต้องการให้สีควรจะเป็นเฉพาะเมื่อเซลล์ถูกเลือกและเมื่อฉันเลือกอย่างอื่นเซลล์แรกที่ฉันเลือกไม่ควรเป็นสี
คุณช่วยฉันด้วยได้ไหม ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีคำถามเดียวกันทุกประการ! ฉันหวังว่าจะมีคนตอบคุณ! เหตุผลที่ฉันกำลังมองหาสิ่งนี้คือฉันมีสเปรดชีตที่ฉันใช้ทุกวันและใส่ข้อมูลจำนวนมากลงในเซลล์เดียว ค่าต่างๆ จะมองเห็นได้ยาก (โดยการมองเห็นจะพบข้อมูลในเซลล์อื่น) และจะเป็นคุณลักษณะที่ดีหากฉันสามารถเปลี่ยนสีของเซลล์ที่กำลังแก้ไขได้ - เฉพาะในขณะที่กำลังแก้ไขเท่านั้น วิธีแก้ปัญหาที่ง่ายที่สุดที่ฉันคิดได้คือค่าของเซลล์จะถูกตั้งค่ากลับเป็นค่าเดิมก่อนที่จะคลิก แต่ฉันไม่รู้ว่าต้องทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. เก่งมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
เป็นไปได้ไหมที่จะมีรหัสสำหรับ "เปลี่ยนสีเซลล์เมื่อคลิก" ในลักษณะที่จะไม่เปลี่ยนเซลล์ที่จัดรูปแบบแล้วด้วยสีอื่น
หลังจากใช้รหัสของคุณการจัดรูปแบบ (สี) ทั้งหมดของฉันก็หายไป ขอขอบคุณ. เวโรนิก้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ตราบใดที่ฉันไม่ปกป้องเวิร์กชีต เมื่อฉันป้องกันเวิร์กชีต เนื่องจากฉันมีการจัดรูปแบบตามเงื่อนไขในเซลล์ที่ถูกล็อก โค้ดจะไม่ทำงาน ฉันจะเปลี่ยนแปลงสิ่งนี้เพื่อให้ทำงานบนเวิร์กชีตที่ล็อคซึ่งผู้ใช้สามารถเลือกเซลล์ที่ปลดล็อคได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีไฮไลต์เซลล์ (พร้อมข้อมูล) เพื่อไฮไลต์เซลล์อื่นๆ โดยอัตโนมัติ (ข้อมูลที่เกี่ยวข้องกับข้อมูลอื่นในเซลล์ก่อนหน้า) ด้วยการคลิกเซลล์ ฉันทำได้ มีวิธีทำไหมครับ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
alguien que me ayude เดี่ยว quiero que al hacerle click a una celda se ponga de un color y que se mantenga ese color y si le vuelvo hacer คลิก regrese el color ต้นฉบับ que tenia
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังพยายามใช้ตัวเลือกดับเบิลคลิกเพื่อเปลี่ยนเซลล์เป็นสีเขียว แต่ฉันต้องการให้เซลล์นั้นกลับไปเป็นสีไม่เติมหรือเป็นสีขาวด้วย ถ้าฉันดับเบิลคลิกในขณะที่เซลล์เป็นสีเขียว เป็นไปได้ไหม 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสนี้เคยใช้มาระยะหนึ่งแล้ว แต่ตอนนี้มันเลิกใช้แล้ว จะมีอะไรผิดปกติ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Rens Borburgh มีรหัสให้สองรหัสในโพสต์ คุณใช้รหัสใด คุณได้รับข้อความแจ้งข้อผิดพลาดหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้ลองทั้งสองอย่างพร้อมกัน หลังจากคัดลอกไปยังแท่ง usb แล้วมันใช้งานไม่ได้อีกต่อไป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Rens Borburgh ฉันไม่ค่อยเข้าใจสิ่งที่คุณหมายถึง ควรใช้รหัสในหน้าต่างรหัสแผ่นงาน ไม่ใช่ในหน้าต่างโมดูล หรือคุณสามารถให้ภาพหน้าจอของหน้าต่างรหัสของคุณ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสร้างแดชบอร์ดด้วย 37 แผ่นงาน ทุกคนมีตาราง ทั้งหมดนี้เป็นแผงล็อคเพราะมีขนาดใหญ่และฉันจำเป็นต้องทราบหมายเลขและชื่อของนักเรียนที่ฉันป้อนข้อมูลให้ อย่างไรก็ตาม ฉันต้องวางนิ้วไว้ที่ด้านซ้ายของหน้าจอเพื่อระบุชื่อและหมายเลขที่ข้อมูลที่ป้อนอ้างอิง ดังนั้น ฉันต้องระบุสองเซลล์แรกของแถวในคอลัมน์ "I" และ "J"
รหัสที่ฉันนำมาจากอินเทอร์เน็ตและไม่สามารถเปลี่ยนแปลงได้สำหรับสองเซลล์ของคอลัมน์ "I" และ "J" คือ:

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
ย่อยสิ้นสุด

ตารางทั้งหมดเริ่มต้นในแถวต่างๆ ตัวอย่างนี้เริ่มต้นในแถวที่ 16 แต่ฉันใส่รหัสในทุกหน้าและปรับให้เข้ากับความต้องการของหมายเลขแถวเฉพาะ 
ฉันได้ลองเปลี่ยนรหัสจาก TotalRow เป็น Range ("I16:J43") แล้ว แต่เซลล์ต่างๆ ที่อยู่ในช่วงนั้นถูกทาสีด้วยสีโค้ดทั้งหมด
ลองใช้วิธีอื่นผ่าน "การจัดรูปแบบตามเงื่อนไข" ด้วยสูตร =E($I16<>"";LIN()=CÉL("lin")) ในช่วง $I16:$J43 และในแผ่นงาน "นักพัฒนา" " ด้วย "Application.Calculate" และใช้งานได้ ฉันเปลี่ยนแผ่นงาน 37 แผ่น แต่ฉันกำลังคัดลอกและข้อมูลจากไฟล์ก่อนหน้าเป็นไฟล์ใหม่นี้ และฉันสังเกตเห็นว่าตัวเลือกในการวาง "ค่า" ฯลฯ หายไปจากแดชบอร์ดของฉัน โค้ดต้องทำงานบางอย่างที่ไม่อนุญาตให้วางอีกต่อไป เช่น การคลิกที่เซลล์ ตัวเลือกเดียวคือวางด้วย CTRL+V
หากมีคนสามารถช่วยฉันด้วยรหัส ฉันจะลบ VBA "Application.Calculate" เพื่อกลับไปที่ตัวเลือกภาพตัดปะที่มีให้
ขอขอบคุณสำหรับความช่วยเหลือของคุณ

หลุยส์ โลเปส
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ