ไปยังเนื้อหาหลัก

วิธีอ้างอิงรูปแบบและค่าจากเซลล์อื่นใน Excel

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

รูปแบบการอ้างอิงและค่าจากเซลล์อื่นโดยวางรูปภาพที่เชื่อมโยง
รูปแบบการอ้างอิงอัตโนมัติและค่าจากเซลล์อื่นด้วย VBA


รูปแบบการอ้างอิงและค่าจากเซลล์อื่นโดยวางรูปภาพที่เชื่อมโยง

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

1. เลือกเซลล์ (A1) ที่คุณต้องการอ้างอิงจากนั้นคัดลอกโดยกด Ctrl + C กุญแจ

2. ไปที่เซลล์ที่คุณต้องการเชื่อมโยงเซลล์อ้างอิงคลิกขวาและ เลือก > วางแบบพิเศษ > รูปภาพที่เชื่อมโยง. ดูภาพหน้าจอ:

ตอนนี้รูปแบบและค่าของเซลล์ A1 ถูกอ้างอิงไปยังเซลล์ที่ระบุ และรูปแบบและค่าของสองเซลล์นี้จะซิงโครนิกดังภาพด้านล่างที่แสดง


รูปแบบการอ้างอิงอัตโนมัติและค่าจากเซลล์อื่นด้วย VBA

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

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

2. ในการโผล่ขึ้นมา Microsoft Visual สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: รูปแบบการอ้างอิงและค่าจากเซลล์อื่น

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

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

จากนี้ไปเมื่อค่าเปลี่ยนแปลงในเซลล์ A1 ของ Sheet1 ค่าและรูปแบบจะถูกอ้างอิงไปยังเซลล์ E2 ทันที


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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations