จะติดตามการเปลี่ยนแปลงโดยไม่แชร์สมุดงานได้อย่างไร?
โดยปกติเมื่อคุณใช้คุณลักษณะการติดตามการเปลี่ยนแปลงใน Excel สมุดงานจะถูกแชร์พร้อมกันซึ่งจะน่ารำคาญเนื่องจากคุณลักษณะบางอย่างใน Excel จะถูกปิดใช้งาน คุณจะติดตามการเปลี่ยนแปลงโดยไม่แชร์สมุดงานได้อย่างไร ที่นี่ฉันจะแนะนำรหัส VBA ให้คุณ
ติดตามการเปลี่ยนแปลงโดยไม่ต้องแชร์เวิร์กบุ๊กด้วยรหัส VBA
แปลงข้อความเป็นตารางใน Outlook
ไม่มีวิธีโดยตรงในการแก้ปัญหานี้ แต่คุณสามารถใช้รหัส VBA ที่ยืดหยุ่นเพื่อแก้ปัญหาได้โปรดทำดังนี้:
1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการติดตามเซลล์ที่เปลี่ยนแปลงแล้วเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล:
รหัส VBA: ติดตามการเปลี่ยนแปลงโดยไม่ต้องแชร์สมุดงาน:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const xRg As String = "A1:Z1000"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub
หมายเหตุ: ในโค้ดด้านบน A1: Z1000 คือช่วงข้อมูลที่คุณต้องการติดตามการเปลี่ยนแปลง
2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณเปลี่ยนค่าในเซลล์ใด ๆ ภายในช่วงที่ระบุที่คุณตั้งไว้ในโค้ดเซลล์จะถูกติดตามและจะไม่มีการแชร์สมุดงาน ดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!