Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน สมัครสมาชิก

วิธีการเชื่อมโยงสีของเซลล์กับสีอื่นใน Excel โดยอัตโนมัติ

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

เชื่อมโยงสีของเซลล์กับสีอื่นโดยอัตโนมัติด้วยรหัส VBA

เชื่อมโยงสีของเซลล์กับสีอื่นโดยอัตโนมัติด้วยรหัส VBA

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

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

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

รหัส VBA: เชื่อมโยงสีของเซลล์กับสีอื่นใน Excel โดยอัตโนมัติ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

หมายเหตุ: คุณสามารถเปลี่ยนการอ้างอิงเซลล์ในโค้ดได้ตามต้องการ

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

จากนี้ไปเมื่อเปลี่ยนสีเติมของเซลล์ A1 สีเติมของเซลล์ C1 จะเปลี่ยนเป็นสีเดียวกันโดยอัตโนมัติ

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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
เก่ามาก่อน
ใหม่ก่อน
ความคิดเห็น (48)
ได้รับคะแนน 4.5 จาก 5 · การจัดอันดับ 1
Brigitte
Brigitte
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แล้วระหว่างแผ่นงานในสมุดงานเดียวกัน - โปรดแนะนำว่าสูตรเปลี่ยนไปอย่างไร ขอบใจ!
ตอบ
0
0
g4m3rx
g4m3rx
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กวดวิชาที่ดี ขอบคุณ :) !!!!
ตอบ
0
0
เจสสิก้า
เจสสิก้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช่ค่ะ อยากทราบวิธีการมิเรอร์สีกับชีตอื่นค่ะ??? ฉันมีสูตรในทั้งสองกล่อง แต่ฉันต้องการให้สีของกล่องหนึ่งสะท้อนสีบนแผ่นหลักเมื่อมีการเปลี่ยนแปลง เช่น.. ตารางวันอบรมจะครบภายใน 30 วัน และกล่องจะเปลี่ยนเป็นสีแดง กล่องที่ตรงกันบนแผ่นหลัก กล่องที่มี "X" จะเปลี่ยนเป็นสีแดงด้วย
ตอบ
0
0
คริสตัล
คริสตัล     เจสสิก้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเจสสิก้า
หมายถึงกล่อง? กล่องข้อความ?
ตอบ
รายงาน
0
0
ดัสติน
ดัสติน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีการทำเช่นนี้หรือไม่หากทั้งสองเซลล์อยู่ในเวิร์กบุ๊กต่างกัน
ตอบ
รายงาน
0
0
คริสตัล
คริสตัล     ดัสติน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีดัสติน
ไม่สามารถจัดการสมุดงานที่แตกต่างกัน ขอบคุณสำหรับความคิดเห็นของคุณ.
ตอบ
รายงาน
0
0
Rogerio
Rogerio
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ผมเห็นข้างบนนี้ในคำอธิบาย How to for one cell, how to do forไม่กี่เซลล์?
ตอบ
0
0
คริสตัล
คริสตัล     Rogerio
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโรเจอร์ริโอ
คุณหมายถึงการเชื่อมโยงสีเติมของเซลล์ไปยังหลาย ๆ เซลล์พร้อมกันหรือไม่?
ตอบ
รายงาน
0
0
อเล็กซานเด
อเล็กซานเด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
y su el la celda A1 เสมอและ condicional ?
ตอบ
0
0
มาริโอ
มาริโอ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าเซลล์ไม่แตกเป็นแผ่น?
ตอบ
0
0
คริสตัล
คริสตัล     มาริโอ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีมาริโอ
สมมติว่าคุณต้องการเชื่อมโยงสีของเซลล์ A1 ในแผ่นงานปัจจุบันกับช่วง B1:J19 ใน Sheet2 โปรดใช้โค้ด VBA ด้านล่าง หลังจากเปลี่ยนสีเติมของ A1 โปรดคลิกที่เซลล์อื่นในแผ่นงานปัจจุบันเพื่อเปิดใช้งานรหัส

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xStrAddress เป็นสตริง
xStrAddress = "แผ่นงาน2!$B$1:$J$19"
ตั้งค่า xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
jgd
jgd     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่ทำงาน มันจะทำงานอย่างไรถ้าคุณมี A1 ใน Sheet1 การเปลี่ยนแปลงที่จะเกิดขึ้นกับ B1 ใน Sheet2 แต่ A2 ใน Sheet1 จะเปลี่ยนให้เกิดขึ้นกับ B2 ใน Sheet2 ด้วย
ตอบ
0
0
วิพลอฟ
วิพลอฟ     jgd
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคนสามารถช่วยด้วยคำถามข้างต้นโดยเร็วฉันต้องการมันอย่างมากและหมดเวลาแล้ว
ตอบ
0
0
คริสตัล
คริสตัล     วิพลอฟ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัส VBA ด้านล่างสามารถช่วยคุณแก้ปัญหาได้ ขอบคุณสำหรับความคิดเห็นของคุณ.

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xStrAddress เป็นสตริง
xStrAddress = "แผ่นงาน2!$B$1"
ตั้งค่า xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
xStrAddress = "แผ่นงาน2!$B$2"
ตั้งค่า xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A2").Interior.Color
xStrAddress = "แผ่นงาน2!$B$3"
ตั้งค่า xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A3").Interior.Color
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
แอนดรู
แอนดรู     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Не могли бы вы написать прям оригинальный код,без разъяснений,я новичок и вообще не могу понять)
ตอบ
0
0
คริสตัล
คริสตัล     แอนดรู
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอนดรู
นี่คือโค้ด VBA ทั้งหมดที่คุณสามารถใช้ในเวิร์กชีตของคุณได้โดยตรง โปรดทำตามคำแนะนำทีละขั้นตอนเพื่อเพิ่มลงในหน้าต่างโค้ดที่เกี่ยวข้องในโปรแกรมแก้ไข VBA
ตอบ
รายงาน
0
0
อแมนดา
อแมนดา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
น่าเสียดายที่มันไม่ได้ผลสำหรับฉัน ฉันสงสัยว่าเป็นเพราะเซลล์ต้นกำเนิดเป็นรายการที่มีกฎการจัดรูปแบบตามเงื่อนไขเพื่อเปลี่ยนสีพื้นหลังตามตัวเลือกที่เลือกในรายการ
ตอบ
0
0
คริสตัล
คริสตัล     อแมนดา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีอแมนด้า
รหัสนี้ใช้ไม่ได้กับสีเติมที่กำหนดโดยกฎการจัดรูปแบบตามเงื่อนไข ขออภัยในความไม่สะดวก.
ตอบ
รายงาน
0
0
Charles
Charles
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะเชื่อมโยงสีจากช่วงหนึ่งในชีตหนึ่งไปยังอีกช่วงหนึ่งที่มีขนาดเดียวกันบนชีตอื่น ตัวอย่างเช่น ฉันมีการสลับสีทุกสองสามแถว และฉันต้องการให้ชุดสีนั้นคัดลอกไปยังแผ่นงานอื่น
ตอบ
0
0
คริสตัล
คริสตัล     Charles
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีชาร์ล
รหัสด้านล่างสามารถช่วยคุณได้ หากคุณต้องการเชื่อมโยงสีจากช่วง A1:A19 บน Sheet1 กับช่วงเดียวกัน "A1:A19" บน Sheet2 โปรดคัดลอกโค้ดลงในหน้าต่าง Code ของ Sheet1 หลังจากนั้น คลิกที่เซลล์ใดก็ได้บน Sheet1 เพื่อเปิดใช้งานโค้ด หวังว่าฉันจะช่วยได้ ขอบคุณสำหรับความคิดเห็นของคุณ.

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xStrAddress เป็นสตริง
xStrAddress = "Sheet2!$A$1:$A$19"
ตั้งค่า xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1:A19").Interior.Color
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
โจอี้
โจอี้     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
โค้ดนี้ดูเหมือนจะใช้งานได้หากฉันอ้างอิงเซลล์หนึ่งเซลล์ แต่ถ้าฉันป้อนช่วง ช่วงบนชีต 2 จะกลายเป็นสีดำแทนที่จะจัดการกับสีภายใน

ความคิดใด ๆ ว่าทำไมถึงเกิดขึ้น?
ตอบ
0
0
คริสตัล
คริสตัล     โจอี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโจอี้
ขออภัยในความผิดพลาด ลองใช้รหัสนี้:

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = "Sheet2!$A$1:$A$10"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$10")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
โจอี้
โจอี้     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล
ขอบคุณมาก ๆ. ทำงานได้อย่างสมบูรณ์แบบ!
คุณน่าทึ่งมาก! O_o
ตอบ
0
0
ไมค์
ไมค์     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล!
โค้ดเดียวกันจะมีลักษณะอย่างไรหากฉันต้องการให้คัดลอกไปยังทั้ง Sheet2 และ Sheet3 พร้อมกัน
ตอบ
0
0
เจฟฟ์
เจฟฟ์     ไมค์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคนสามารถตอบคำถามนี้ ฉันกำลังพยายามทำสิ่งนี้ แต่ไม่มีโชค
0
0
LG
LG     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใช้ไม่ได้สำหรับฉัน ฉันได้รับข้อผิดพลาดเกี่ยวกับ "ข้อผิดพลาดในการคอมไพล์ ตรวจพบชื่อที่คลุมเครือ"....
ตอบ
0
0
LG
LG     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใช้ไม่ได้สำหรับฉัน อาจช่วงของเซลล์ไม่เท่ากันทั้งสองแผ่น คุณช่วยแนะนำว่าต้องทำอย่างไรหรือจะปรับโค้ดอย่างไร
ตอบ
0
0
คริสตัล
คริสตัล     LG
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอลจี
มีสองบรรทัดที่คุณสามารถแก้ไขได้: range "$A$1:$A$10" ของบรรทัดที่แปดและ "แผ่นที่2!$A$1:$A$10" ของบรรทัดที่หก ซึ่งระบุว่าคุณจะเชื่อมโยงสีเติมของ range A1: A10 ในเวิร์กชีต (สมมติว่า Sheet1 และควรเพิ่มโค้ดลงในหน้าต่างโค้ดชีตนี้) ให้อยู่ในช่วงเดียวกันใน Sheet2.
คุณสามารถระบุช่วงที่แตกต่างกันสองช่วงตามที่คุณต้องการ และโปรดตรวจสอบให้แน่ใจว่าชื่อแผ่นงานที่คุณพิมพ์ในบรรทัดที่หกเป็นชื่อแผ่นงานที่มีอยู่
รายงาน
0
0
ลิซ่า
ลิซ่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้สิ่งนี้เพื่อสร้างรูปแบบการทอผ้า ฉันต้องการมีหลายกลุ่ม ดังนั้นฉันต้องเปลี่ยนเซลล์เดียวเท่านั้นเพื่อดูว่าจะเกิดอะไรขึ้นในรูปแบบของฉัน มันทำงานได้จากเซลล์ a1 ถึง c1 แต่เมื่อฉันพยายามเพิ่มชุดใหม่ a2 ถึง c1 มันไม่ได้ ฉันอาจเข้าใจผิด แต่ฉันคัดลอกสูตรเดียวกันด้านล่างสูตรแรกและเปลี่ยนการอ้างอิงเซลล์ นั่นคือปัญหา? มีวิธีอื่นอีกไหม?
ตอบ
0
0
ซาร่า
ซาร่า     ลิซ่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใช้ได้กับฉันเมื่อวางในการอ้างอิงแผ่นงานที่สอง - แต่ฉันต้องทำการแก้ไข ฉันจะแสดงการแก้ไขด้านล่างเพื่อให้คุณเห็นเวอร์ชันแรกของ Crystal ได้ จากนั้นของฉันมีการดัดแปลงที่ใช้งานได้เมื่อฉันต้องการรวมสองชุดแทน ของหนึ่ง นี่คือแก้วที่คริสตัลมอบให้กับโจอี้หลังจากที่เขาบอกว่าระยะเป้าหมายเปลี่ยนเป็นสีดำเมื่อเขาลอง:
แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = "Sheet2!$A$1:$A$10"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$10")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด
mod ของฉันที่ทำงานเพื่อรวมสองชุด (เช่นอ้างอิงคอลัมน์หรือแถวที่แตกต่างกันหรือสิ่งที่คุณมี) คือการรวมส่วนนี้:
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
หลังจากแต่ละ "ชุด" ของฉัน
ดังนั้น หากไม่มีการปรับเปลี่ยนชุดตัวอย่างที่ Crystal มอบให้ให้แตกต่างกัน (ซึ่งของคุณน่าจะเป็นถ้าคุณพยายามอ้างถึงแถวต่างๆ ฯลฯ) จะมีลักษณะดังนี้:
แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = "Sheet2!$A$1:$A$10"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$10") เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ ถัดไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
xStrAddress = "Sheet2!$A$1:$A$10"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$10")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด

โดยบรรทัดที่ 6-8 และ 13-15 เป็น "เซต" และบรรทัดที่ 9-12 และ 16-19 เป็นรหัสที่ต้องทำซ้ำหลังจากแต่ละเซต
ฉันหวังว่านั่นจะสมเหตุสมผลเพราะฉันไม่รู้เรื่องนี้เลย ฉันเพิ่งพบวิธีคัดลอกสิ่งที่อยู่ในรายการซึ่งใช้ได้ผล ครั้งแรกที่ฉันพยายามมีสองชุดโดยเสียบโค้ดตามที่เป็นอยู่ ชุดแรกจะเปลี่ยนเซลล์เป็นสีดำ และชุดที่สองทำงานได้และเปลี่ยนเซลล์เป้าหมายเป็นสีที่ถูกต้อง ในที่สุดฉันก็พบว่าในการทำงาน แต่ละชุดต้องใช้โค้ด 9-12 ต่อจากนี้ ตัวดัดแปลงนี้อนุญาตให้ถ่ายโอนสีที่เหมาะสม (ในกรณีของฉัน) จากสองคอลัมน์ที่แตกต่างกันบนแผ่นงานต้นทางไปยังเซลล์ที่เกี่ยวข้องภายในช่วงที่กำหนดบนแผ่นงานเป้าหมาย
ตอบ
0
0
เอซาด
เอซาด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะเชื่อมโยงสีของเซลล์ตามค่าและสีของเซลล์อื่นเพื่อเชื่อมโยงโดยอัตโนมัติได้อย่างไร

ตัวอย่างป้อม.



ฉันมีค่าชีต 1 คือ 898 และบนชีต 2 ค่าคือ 898 และเซลล์นั้นเป็นสีชมพู ฉันจะเชื่อมโยงสีเดียวกันให้เหมือนกันได้อย่างไรตามเงื่อนงำคือชีต 2 ที่จะเชื่อมโยงกับชีต 1 - เพื่อให้สามารถแสดงสีเดียวกันได้ แต่มันจะเป็นช่วง ใช้ทั้งแถวเพื่อจับคู่ค่าแล้วเชื่อมโยงสี



ความช่วยเหลือใด ๆ ที่ชื่นชมอย่างมาก
ตอบ
รายงาน
0
0
อิมาน ฟีร์มันสยะห์
อิมาน ฟีร์มันสยะห์     เอซาด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี esad ฉันมีกรณีเดียวกันกับคุณในขณะนี้ ฉันจะขอบคุณถ้าคุณแบ่งปัน
ตอบ
0
0
วิ่ง
วิ่ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังดูสีคัดลอกที่สร้างจากตารางที่จัดรูปแบบตามเงื่อนไขไปยังตารางอื่น - โดยอัตโนมัติด้วยสูตร/ฟังก์ชัน เป็นไปได้ไหม
ตอบ
0
0
Ivana
Ivana
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hy,
ฉันต้องการที่เมื่อฉันเปลี่ยนสีในคอลัมน์ A แผ่นงาน 1 ด้วยตนเอง เพื่อเปลี่ยนสีในคอลัมน์ A แผ่นงาน 2 โดยอัตโนมัติ
ฉันขอความช่วยเหลือ ขอขอบคุณ
ตอบ
0
0
คริสตัล
คริสตัล     Ivana
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Ivana โปรดลองรหัสด้านล่าง แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
'ปรับปรุงโดย Extendoffice 20201127
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = "Sheet2!$A$1:$A$100"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$100")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
ฮวน ก
ฮวน ก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โฮลา บัวนาส ทาร์เดส Como hacer que cuando seleccione una celda se active otra, y si selecciono otro cambie a otro celda con que este vinculada ตัวอย่าง: si alecciono A1 se active celda H20, y si doy odestro clic se Se que seria mucho trabajo porque tendria que programar cada celda, pero no importa, es เดี่ยว saber como hacerlo Gracias por su apoyo!
ตอบ
รายงาน
0
0
ดอกมะลิ
ดอกมะลิ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีรหัสด้านบนใช้งานได้ แต่จะไม่ทำงานหลายครั้งในแผ่นเดียว? 
ตอบ
0
0
ลินน์
ลินน์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน,

ปัญหาของฉันคือหน้าแรกของฉัน (แผ่นที่ 1) มีข้อมูลสรุปที่ให้ไว้ในแผ่นงานต่อไปนี้ เซลล์ที่เกี่ยวข้องทั้งหมดได้รับการจัดรูปแบบเพื่อแสดงค่าของเซลล์ที่เกี่ยวข้องในชีตอื่น

ตัวอย่างเช่น หน้าแรกของเซลล์ของฉัน เซลล์ F7 ได้รับการจัดรูปแบบแล้ว ดังนั้นจึงคัดลอกค่าของเซลล์ที่เกี่ยวข้องในแผ่นงานต้นฉบับ:
=ควอเตอร์1!B15

ตอนนี้ สิ่งที่ฉันต้องการจริงๆ คือให้เซลล์ในโฮมเพจของฉันจับคู่สีที่ฉันเลือกด้วยตนเองสำหรับเซลล์ (ต้นทาง) ที่สอดคล้องกันในชีตอื่น เป็นไปได้โดยใช้การเข้ารหัส VBA หรือไม่

ฉันได้รับโค้ดด้านล่างจากเว็บไซต์อื่น แต่จะใช้ได้ก็ต่อเมื่อเซลล์อยู่ในชีตเดียวกัน
แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").ภายใน.สี
ย่อยสิ้นสุด

มีวิธีใดบ้างที่ฉันสามารถปรับแต่งโค้ดนี้เพื่ออ้างถึงเซลล์บนชีตอื่นในเวิร์กบุ๊กเดียวกัน

ขอบคุณมากสำหรับความช่วยเหลือของคุณ
ตอบ
0
0
แอน
แอน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสงสัยว่าคุณช่วยฉันได้ไหม
ฉันมีสเปรดชีตที่มีชื่อสมาชิกในทีม (17 คน) ในแถว 2
ในคอลัมน์ H เราจะจัดสรรงานให้กับสมาชิกในทีม
ในคอลัมน์ T เรามีข้อมูลที่แสดงว่าสมาชิกในทีมอยู่ในขั้นตอนใดสำหรับงานนี้ (เขียว/ เหลือง / แดง)
สิ่งที่อยากทำคือนำสีสำหรับงานจาก col T ถึง Col H ด้วยชื่อที่เราจะใส่

ความช่วยเหลือใด ๆ ที่จะได้รับการชื่นชมอย่างมาก
ตอบ
0
0
คริสตัล
คริสตัล     แอน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอน
คุณช่วยระบุภาพหน้าจอของข้อมูลของคุณได้ไหม ขออภัยในความไม่สะดวก.
ตอบ
รายงาน
0
0
แอน
แอน     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตามเอกสารแนบ
ชื่อทีมอยู่ในแถวที่ 2 (R ถึง AD)
แต่ละแถวภายใต้ชื่อทีมเกี่ยวข้องกับงานใน Col D
สิ่งที่ฉันต้องการคือเมื่อป้อนชื่อใน Col L จะทำให้เซลล์นั้นมีสีจากคอลัมน์ของสมาชิกในทีมในแถวนั้น
เช่น ใน Col L ป้อน Emma มองไปที่ Emma ใน W1 และนำ Green มาจาก W2 ถ้าเป็นพอลล่าจะมองพอลล่าใน T1 และนำอำพันจาก T2 เป็นต้น
ชื่อที่ป้อนจะยังคงเป็นตัวอย่างใน L2 & 3

ขอบคุณสำหรับความช่วยเหลือของคุณ
ไม่แน่ใจว่าจะแนบภาพหน้าจอหรือไฟล์อย่างไร ฉันสามารถส่งอีเมลได้
ตอบ
0
0
คริสตัล
คริสตัล     แอน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอน
ฉันได้ลองวิธีการบางอย่างแล้ว แต่ยังไม่สามารถแก้ปัญหาของคุณได้ ขออภัยในความไม่สะดวก.
ตอบ
รายงาน
0
0
แอน เฮนวูด
แอน เฮนวูด     คริสตัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณที่พยายาม
ตอบ
0
0
ฮอร์เก้ อันเตโร โรเมโร ลีรา
ฮอร์เก้ อันเตโร โรเมโร ลีรา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Aqui la tiene en ingles


แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = ("Hoja2!A1")
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("A1")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด
ตอบ
รายงาน
0
0
อเมทิสต์ บาร์ตเล็ต
อเมทิสต์ บาร์ตเล็ต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันพบความสำเร็จโดยใช้รหัสบรรทัดนี้:
แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Dim xRg เป็นช่วง
Dim xCRg เป็นช่วง
Dim xStrAddress เป็นสตริง
Dim xFNum เป็นจำนวนเต็ม
xStrAddress = "Sheet2!$A$1:$A$10"
ตั้งค่า xRg = Application.Range(xStrAddress)
ตั้งค่า xCRg = Me.Range("$A$1:$A$10")
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับ xFNum = 1 ถึง xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).มหาดไทย.สี
ต่อไป
ย่อยสิ้นสุด

ฉันต้องการใช้ช่วงหนึ่งเพื่อสร้างอิทธิพลต่อช่วงอื่นๆ ภายในส่วนหนึ่งของโค้ด IE ถ้าฉันเปลี่ยนสีเป็น $A$1:$A$10, มันจะเปลี่ยนสีใน $C$10:$C$19, $D$21:$D$30 และ $F$10:$F$19 เป็นไปได้ไหม ขอขอบคุณ.
ตอบ
รายงาน
0
0
อิมาน ฟีร์มันสยะห์
อิมาน ฟีร์มันสยะห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคนสามารถช่วยฉันด้วยกรณีเดียวกันกับ esad
ตอบ
0
0
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
แขก
โพสต์ในฐานะแขก
ชื่อผู้ใช้
×
ให้คะแนนโพสต์นี้:
รีเซ็ต
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL