คัดลอกและวางเนื้อหาเซลล์จากเวิร์กบุ๊กหนึ่งไปยังอีกฟอร์แมตสีเสีย

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

ฉันมีสมุดงานสองเล่ม:

1. สมุดงาน (TLC ประเมินผลการค้นพบ 4 รายการ) พร้อมข้อมูลทางวิทยาศาสตร์ของลูกค้า
2. ข้อมูลบางส่วนจากเวิร์กบุ๊กแรกที่แสดงในรูปแบบที่เป็นมิตรต่อผู้ใช้มากขึ้น ข้อมูลมีสามสี: ดำ = ปกติ, แดง = เหนือช่วงและสีน้ำเงิน = ภายในช่วง

ฉันมีมาโครที่กำหนดให้กับปุ่มในสมุดงานที่สองที่ดึงข้อมูลจากสมุดงานแรก ทุกอย่างทำงานได้อย่างสมบูรณ์ในการคัดลอกข้อมูลยกเว้นว่าจะไม่ได้คัดลอกสีที่เกี่ยวข้องกับข้อมูล

แมโครนั้นเป็นพื้น:

1. ป้อนเซลล์แรกในสมุดงาน 2 ด้วยสูตรนี้:
   ='[TLC Assess 4 Findings.xls]Report'!$E$9
2. ไปที่เซลล์ถัดไปและทำเช่นเดียวกันกับเซลล์ทั้งหมดในส่วนที่จะคัดลอก
3. End มาโคร

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

ฉันลองคัดลอกและวางแบบพิเศษด้วยผลลัพธ์เดียวกัน ฉันได้ลอง Format Painter แล้ว

ฉันจะคัดลอกข้อมูลพร้อมกับรูปแบบสีในมาโครของฉันได้อย่างไร

ฉันไม่แน่ใจว่าโค้ดของคุณมีลักษณะอย่างไรหรือหากเวิร์กบุ๊ก 1 มีการจัดรูปแบบตามเงื่อนไขใด ๆ ที่ไม่ได้คัดลอกไปอย่างถูกต้อง แต่นี่เป็นหนึ่งในวิธีที่คุณสามารถ "คัดลอก" รูปแบบของเซลล์ในเวิร์กบุ๊กหนึ่งไปยังเซลล์ในเวิร์กบุคอื่น (สมมติว่าเวิร์กบุ๊กทั้งสองเปิดอยู่):

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Interior.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Interior.Color

สำหรับสีตัวอักษร:

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Font.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Font.Color

แทนที่ชื่อไฟล์ชื่อแผ่นงานและค่าช่วงเพื่อให้ตรงกับชื่อไฟล์ของคุณ