Conas athruithe a rianú gan leabhar oibre a roinnt?
De ghnáth, nuair a chuireann tú an ghné Track Changes i bhfeidhm in Excel, roinnfear an leabhar oibre ag an am céanna, beidh sé seo cráite mar beidh cuid de na gnéithe in Excel díchumasaithe. Conas a d’fhéadfá athruithe a rianú gan leabhar oibre a roinnt? Anseo, molfaidh mé cód VBA duit.
Athruithe a rianú gan leabhar oibre a roinnt le cód VBA
Tiontaigh téacs go tábla in Outlook
Níl aon bhealach díreach ann chun an fhadhb seo a réiteach, ach, is féidir leat cód VBA solúbtha a chur i bhfeidhm chun í a réiteach, déan mar a leanas:
1. Cliceáil ar dheis ag an táb bileog ar mhaith leat cealla athraithe a rianú, agus roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa bán Modúil:
Cód VBA: Rianaigh athruithe gan leabhar oibre a roinnt:
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
nótaí: Sa chód thuas, A1: Z1000 an raon sonraí a theastaíonn uait athruithe a rianú.
2. Ansin sábháil agus dún an fhuinneog cód seo, anois, nuair a athraíonn tú na luachanna in aon chealla laistigh den raon sonraithe a leag tú sa chód, rianófar na cealla, agus ní roinntear an leabhar oibre. Féach an pictiúr:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!