Ինչպե՞ս հետևել փոփոխություններին ՝ առանց աշխատանքային գիրքը բաժանելու:
Սովորաբար, 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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: