Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս հետևել փոփոխություններին ՝ առանց աշխատանքային գիրքը բաժանելու:

Սովորաբար, 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

doc ուղու փոփոխություն ՝ առանց կիսելու 1

ՆշումՎերոհիշյալ ծածկագրում A1: Z1000 տվյալների տիրույթն է, որը ցանկանում եք հետևել փոփոխություններին:

2, Ապա պահեք և փակեք այս ծածկագրի պատուհանը, այժմ, երբ դուք փոխում եք ցանկացած բջիջների արժեքները օրենսգրքում ձեր կողմից սահմանված նշված տիրույթում, բջիջները հետևելու են, և աշխատանքային գիրքը չի տարածվում: Տեսեք,

doc ուղու փոփոխություն ՝ առանց կիսելու 2


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (14)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոյակապ աշխատանք։ Ցավոք, ձեր կոդի հետ կապված որոշ խնդիրներ կան: - Դա մեկնաբանություն կավելացնի նույնիսկ բջիջի առաջին մուտքի վրա: Ինչպե՞ս կարող եմ այն ​​հետևել փոփոխություններին ոչ թե առաջին, այլ երկրորդ մուտքից: - Բջիջում արժեք մուտքագրելուց հետո չեմ կարող անել «Հետարկել»: -Սեղանների հետ չի ստացվում: Փորձեք օգտագործել սեղանի վրա, այնուհետև փորձեք ավելացնել կամ ջնջել հումք, և կոդը կխափանվի: Ես իսկապես կցանկանայի ունենալ գիտելիքներ, որպեսզի կոդը աշխատի այնպես, ինչպես ես եմ ուզում, ինչպես նկարագրված է վերևում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույն խնդիրն ունեմ. «Հետարկել» և «Կրկնել» կոճակներն այլևս չեն աշխատում: Սրա համար ինչ-որ լուծում կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի օգտագործել այս VBA կոդը իմ excel թերթում: Բայց դա ինձ սխալներ տվեց: Ես չգիտեմ, թե որտեղից պետք է կանչել այս մակրոն և որն է այն արգումենտը, որը դուք տրամադրել եք այն, երբ այն կանչվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք կա աշխատանքային գրքում բոլոր ներդիրների փոփոխությունները գրանցելու և փոփոխությունները նոր աղյուսակում գրանցելու ձև: Դա հիանալի կլիներ… և ես չեմ կարող գտնել որևէ տեղեկատվություն ինտերնետում այս տեսակի հետևման գործընթացի հետ կապված:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, jfjoyner, Այս կոդը բոլոր թերթերի համար փոխելու և ուղու փոփոխությունները մեկ այլ թերթում գրանցելու համար խնդրում ենք օգտագործել ստորև նշված կոդը.
Նշում. խնդրում ենք տեղադրել այս կոդը ThisWorkbook մոդուլում:
Option Explicit
Dim mStrRgAddress As String
Dim mStrRgValue As String

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Const xRg As String = "A1:Z1000"
Const xSheetName As String = "Record sheet" 'The sheet that you want to put the track changes, please change the sheet name to your own.
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
Dim xSheet As Worksheet
Dim xRgCell As Range
Dim xRgCell2 As Range
On Error Resume Next
Set xSheet = Application.Sheets.Item(xSheetName)
If mStrRgAddress <> "" Then
Set xRgCell = Range(mStrRgAddress)
If xRgCell.Text <> mStrRgValue Then
strCmt = mStrRgAddress & " : " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & mStrRgValue
Set xRgCell2 = xSheet.Range("a1048576").End(xlUp)
If xRgCell2.AddressLocal = xSheet.Range("A1").AddressLocal Then
If xRgCell2.Value <> "" Then
Set xRgCell2 = xRgCell2.Offset(1, 0)
End If
Else
Set xRgCell2 = xRgCell2.Offset(1, 0)
End If
xRgCell2.Value = strCmt
End If
End If
If xSheet.Name = Sh.Name Then Exit Sub
mStrRgValue = Target.Text
mStrRgAddress = Target.AddressLocal(False, False, , True)
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա հիանալի է, բայց ես չեմ կարող այն գործի դնել: Ենթադրում եմ, որ այն աշխատում է ինքնաբերաբար, այսինքն՝ կարիք չկա՞ սեղմել «Գործարկել»: Ես վերանվանել եմ աշխատանքային թերթը՝ ասելով {--TRACK_CHANGES--}՝ հետևելու ձեր կանաչ գույնով թողած հրահանգներին: Առայժմ ոչինչ չի արձանագրում։ Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կրկին շնորհակալություն, skyyang: Ես նաև նկատեցի, որ երբ սա տեղադրեցի This Workbook-ի մոդուլի մեջ, իմ մեծ աղյուսակը սկսեց անընդհատ հաշվարկվել և կանգ չէր առնում: Ես ոչինչ չգիտեմ VBA ծրագրավորման մասին, բայց ես գտա այս քննարկումը նույն թեմայով: Դա կարող է բացատրել, թե ինչու է հաշվարկը շարունակվում անվերջ: https://www.mrexcel.com/board/threads/continuous-calculation-wont-stop.1179541/page-6#posts 
Այս վեբ կայքի խնդիրը հետևյալն էր.Բայց երբ շարունակական հաշվարկների խնդիրը սկսվում է, այն մշտական ​​է: Esc ստեղնը սեղմելը ընդհատում է հաշվարկը, բայց այն նորից կսկսվի անմիջապես, եթե չանցնեմ Manual Calc-ին: Ձեռքով հաշվարկման ռեժիմը լավ է աշխատում, մինչև ես գործարկեմ մակրոներից որևէ մեկը, որն այնուհետև ավարտվում է AutoCalc-ը նորից միացնելով…
Նրանց եզրակացությունը հետևյալն էր. Սա ճիշտ է. երբ դուք հղում եք կատարում ձևի օբյեկտին կամ նրա հատկությանը (frmBudget.startupposition = 3), այնուհետև այն բեռնվում է, մինչև դուք բեռնաթափեք այն կամ զրոյացնեք ձեր նախագիծը (Կորուստը - Այս պահին ԲՈԼՈՐ փոփոխականները վերակայվում են: և ցանկացած արժեք կորած)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև jfjoyner3, ինչպես ես: Ինչպես տեսնում եք երկու սքրինշոթներում, ես VBA Code-ում «գրառման թերթիկը» փոխեցի «sheet2»: 
Հետո վերադարձա Excel աշխատանքային գրքույկ: Այն բանից հետո, երբ ես որոշ փոփոխություններ կատարեցի sheet1-ում, այս բոլոր փոփոխությունները գրանցվում են sheet2-ում:
Ինչ վերաբերում է շարունակական հաշվարկի խնդրին, կարո՞ղ եք մեզ ուղարկել ձեր խնդրի սքրինշոթերը կամ տեսանյութը: Այսպիսով, մենք կարող ենք լիովին հասկանալ, թե ինչ է կատարվում այստեղ: Շնորհակալություն 
Հարգանքներով՝ Մենդի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Thank you very much!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև jfjoyner3, բարի գալուստ: Աղյուսակը մակրո VBA կոդով պահելուց հետո մակրոները ավտոմատ կերպով կսկսվեն ամեն անգամ, երբ բացում եք աղյուսակը: Կարիք չկա այն ձեռքով սկսել: Ցանկացած հարց, խնդրում ենք ազատ զգալ կապվել մեզ հետ: Բարի օր: Հարգանքներով, Մենդի   
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
MandyZhou, շնորհակալություն: Արդյո՞ք այս մակրոն ինքնաբերաբար սկսվում է, երբ ես բացում եմ աղյուսակը: Թե՞ պետք է ձեռքով սկսել: 
Շարունակական հաշվարկի խնդիրը կապված է մեկ այլ հավելվածի հետ: 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, jfjoyner3, Նախ, այն բանից հետո, երբ պատճենեք մեր VBA կոդը ThisWorkbook մոդուլի մեջ, կոդը կաշխատի ավտոմատ կերպով: Երկրորդ, մեր VBA կոդը աշխատում է: Խնդրում եմ, տեսեք իմ վերբեռնած երկու սքրինշոթները այս մեկնաբանությունում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Mandyzhou, կրկին շնորհակալություն այս մանրամասն ուղեցույցի համար: Ես ստանում եմ շարահյուսական սխալ և այն ինձ ուղղորդում է դեպի այս տողը.

Եթե ​​mStrRgAddress <> "" Ապա

Կարո՞ղ եք ուղղորդել սա փոփոխելու և շարահյուսական սխալը հեռացնելու համար:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք այս MAcro-ն գրանցում է բանաձևի արժեքների փոփոխությունները, երբ իմ տվյալների մոդելը թարմացվում է:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից