วิธีการจัดรูปแบบเซลล์ในขณะที่อ้างอิงเซลล์แผ่นงานอื่น ๆ

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

จัดรูปแบบเซลล์ในขณะที่อ้างอิงเซลล์อื่นด้วย VBA

จัดรูปแบบเซลล์ในขณะที่อ้างอิงเซลล์อื่นด้วย VBA

ในการจัดการงานนี้คุณต้องเรียกใช้โค้ดด้านล่าง

1. เปิดใช้งานสมุดงานที่คุณใช้กด Alt + F11 กุญแจสำคัญในการเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างและดับเบิลคลิกที่ชื่อแผ่นงานซึ่งคุณจะวางเซลล์อ้างอิงไว้ โครงการ -VBAProject บานหน้าต่างเพื่อแสดงสคริปต์เปล่า ในกรณีนี้ฉันต้องการอ้างถึงเซลล์ A1 ใน Sheet1. ดูภาพหน้าจอ:

2. วางโค้ดด้านล่างลงในสคริปต์และในรหัส VBA ระบุการอ้างอิงเซลล์ตามที่คุณต้องการ

VBA: รักษาการจัดรูปแบบและค่าในขณะที่อ้างอิงเซลล์อื่น

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

หมายเหตุ: A1 คือเซลล์อ้างอิง B1 in ฮิตแผ่น คือเซลล์ที่คุณต้องการเชื่อมโยงไปยังเซลล์อ้างอิงและเก็บค่าและจัดรูปแบบด้วย A1 ใน Shee1

จากนั้นเมื่อคุณเปลี่ยนค่าหรือการจัดรูปแบบในเซลล์ A1 ใน Sheet1 เซลล์ B1 ใน Sheet2 จะเปลี่ยนไปในขณะที่คลิกที่เซลล์อ้างอิงสองครั้ง

ปลดล็อก Excel Magic ด้วย Kutools AI

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

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!