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

Ինչպե՞ս գրանցել փոփոխվող արժեքները բջիջում Excel- ում:

Ինչպե՞ս գրանցել Excel- ում հաճախ փոփոխվող բջիջի յուրաքանչյուր փոփոխվող արժեք: Օրինակ, C2 բջիջում սկզբնական արժեքը 100 է, 100 թիվը 200 համարը փոխելիս 100 սկզբնական արժեքը ավտոմատ կերպով կցուցադրվի D2 բջիջում ՝ ձայնագրման համար: Առաջ անցեք 200-ից 300-ի փոփոխության, 200 համարը կտեղադրվի D3 բջիջում, 300-ից 400-ը ցույց կտա 300-ը D4 և այլն: Այս հոդվածում նշված մեթոդը կարող է օգնել ձեզ հասնել դրան:

Գրանցեք փոփոխվող արժեքները VBA կոդով բջիջում


Գրանցեք փոփոխվող արժեքները VBA կոդով բջիջում

Ստորև ներկայացված VBA կոդը կարող է օգնել Excel- ում գրանցել բջիջում յուրաքանչյուր փոփոխվող արժեք: Խնդրում եմ արեք հետևյալ կերպ.

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

2. Հետո Microsoft Visual Basic հավելվածների համար պատուհանը բացվում է, խնդրում ենք պատճենել ներքևում գտնվող VBA կոդը կոդի պատուհանում:

VBA կոդ. Ռեկորդային փոփոխական արժեքներ բջիջում

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

NotesԿոդում `C2- ը այն բջիջն է, որը ցանկանում եք արձանագրել իր բոլոր փոփոխվող արժեքները: D2- ը այն բջիջն է, որը դուք լրացնելու եք C2- ի առաջին փոփոխվող արժեքը:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, ամեն անգամ, երբ փոխում եք C2 բջիջի արժեքները, նախորդ փոփոխվող արժեքները կգրանցվեն D2- ում և D2- ի տակ գտնվող բջիջներում:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (50)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi


Սա իսկապես լավ է աշխատում, եթե C2-ի արժեքը ամեն անգամ մուտքագրվում է, բայց այն չի աշխատում, եթե C2-ը պարունակում է բանաձև: Կա՞ արդյոք այս նույն բանը, բայց բանաձևով C2-ում:


Շնորհակալություն այս հեշտ լուծման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​պարզեք, թե ինչպես օգտագործել այն, եթե C2-ը պարունակում է բանաձև, խնդրում եմ, տեղեկացրեք ինձ, թե ինչպես եք դա արել: Ինտերնետում ես կարծես թե չեմ կարող գտնել, թե ինչպես դա անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Կոդը օպտիմիզացված է։ Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Dim xVal As String
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
Application.EnableEvents = False
Եթե ​​Target.Address = Range("C2").Address then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Ուրիշ
If xVal <> Range("C2").Value then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ ("C2"): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՀԱՅ,



ՎԵՐՈՎԻ VBS ՄԻԱՅՆ C2-ը տեղափոխվում է D2,



INEED C2-ից C55 ՏԵՂԱՓՈԽԵԼ D2-ԻՆ D55-ին



ԿԱՐՈՂ ԵՔ ՕԳՆԵԼ ԵՎ ՈՒՂԱՐԿԵԼ ԻՆՁ alexmathew33@gmail.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում եմ օգնեք ինձ հետևյալ սցենարով.
Թերթ 1-ից:
A1=VALUE (Փոփոխություններ բանաձևով RTD-ի պատճառով)
B2= VALUE1 (Փոփոխություններ բանաձևով RTD-ի պատճառով)

Պատճենեք բոլոր նախորդ արժեքների A1, B1 բջիջները M, NOF սյունակների Sheet2-ում, New Workbook-ի նույն excel-ում կամ Sheet1-ում:

Խնդրում եմ կիսվել ինձ հետ melukotahari@gmail.com հասցեով

-Մելուկոտա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ԿԱՐՈՂ ԵՆՔ ՍՏԱՆԱԼ VBS-ը վերը նշվածի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե C2 բջիջը բանաձև է: Ինչպե՞ս կարող եմ գրանցել C2-ի արժեքները, եթե դա բանաձև է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Կոդը օպտիմիզացված է։ Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Dim xVal As String
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
Application.EnableEvents = False
Եթե ​​Target.Address = Range("C2").Address then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Ուրիշ
If xVal <> Range("C2").Value then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ ("C2"): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՀԱՅ,



ՎԵՐՈՎԻ VBS ՄԻԱՅՆ C2-ը տեղափոխվում է D2,



INEED C2-ից C55 ՏԵՂԱՓՈԽԵԼ D2-ԻՆ D55-ին



ԿԱՐՈՂ ԵՔ ՕԳՆԵԼ ԵՎ ՈՒՂԱՐԿԵԼ ԻՆՁ alexmathew33@gmail.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև... Ես իսկապես գնահատում եմ այս ձեռնարկը... Ես փորձում եմ գրանցել փոփոխված արժեքը այլ աղյուսակում: Օրինակ, ես ուզում եմ գրանցել sheet1 C2 արժեքը sheet2 D2-ում: Կարո՞ղ եք ճշգրտված կոդը տրամադրել:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ են գրառումները լինել ուղղահայաց փոխարեն հորիզոնական:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, հնարավո՞ր է, որ այս մակրոները գրանցեն երկու առանձին բջիջներ երկու առանձին սյունակներում: Այսինքն. Կարո՞ղ եմ A1-ի բոլոր արժեքները B սյունակում և C1-ի բոլոր արժեքները D-ում գրանցել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Խնդրում ենք փորձել այս հոդվածի մեթոդը.
Ինչպե՞ս հիշել կամ պահպանել փոխված բջիջի նախորդ բջջային արժեքը Excel- ում:
https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն դրա համար, բայց ընդմիշտ շարունակվելու փոխարեն, ինչպե՞ս կարող եմ վերագործարկել առաջին բջիջը X քանի անգամ հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ուզում եք ասել, որ X mount անգամ ձայնագրելուց հետո ուզում եք վերագործարկել առաջին ռեկորդային արժեքը:
Կներեք, ես վստահ չեմ, որ ստացել եմ ձեր հարցը: Լավ կլիներ, եթե կարողանայիք սքրինշոթ տրամադրել, թե ինչ եք փորձում անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն

բայց ինչ կարող եմ անել, եթե ինձ անհրաժեշտ է կրկնել այն շատ բջիջների համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն

բայց ինչ կարող եմ անել, եթե պետք է կրկնել այն հումքի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Peki bu kaydı yatay olarak nasıl kaydedeceğiz. Satırlara değil Sütunlara kaydetmesini istiyorum. Teşekkürler
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ պահել համարը հենց որ այն ստեղծվի, ոչ թե նոր համարի գեներացումից հետո: Իմ խնդիրն այն է, որ թիվն անմիջապես չի գրանցվում, այլ երկրորդ համարի ստեղծումից հետո. սա նշանակում է, որ ոչ այն բջիջը, որը ես ձայնագրում եմ, ոչ էլ այն բջիջը, որը թիրախ է, չունեն համարը... ինչպես կարող եմ գրանցել հենց այդ թիվը ստեղծվել է: Շնորհակալություն ձեր օգնության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi John,
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում: Բարի գալուստ ցանկացած հարց տեղադրել մեր ֆորումում. https://www.extendoffice.com/forum.html. Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, հնարավո՞ր է կիրառել սա մեկից ավելի բջիջների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Շնորհակալություն կոդի համար, բայց ես մի հարց ունեմ

Կոդը փոփոխելու տարբերակ կա՞, որպեսզի այն գրանցի արժեքը, եթե բջիջը օրական կամ որոշակի օրերին, որը ես նշում եմ առանձին սյունակում:


Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձեք այս

Dim xVal As String
Dim iVal Որպես ամբողջ թիվ
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
iVal = Application.WorksheetFunction.Count(Range(«F:F»), 1)
xCount = iVal
Application.EnableEvents = False
Եթե ​​Target.Address = Range("C2").Address then
Տարածք («E3»). Օֆսեթ (xCount, 0). Value = Range («C2»). Արժեք
Տարածք («F3»). Օֆսեթ (xCount, 0): Արժեք = Հիմա
xCount = xCount + 1
Ուրիշ
If xVal <> Range("C2").Value then
Տարածք («E3»). Օֆսեթ (xCount, 0). Value = Range («C2»). Արժեք
Տարածք («F3»). Օֆսեթ (xCount, 0): Արժեք = Հիմա
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ ("C2"): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի այս կոդը C2 բջիջի համար, որը պարունակում է DDE արժեքներ, որոնք փոխվում են վայրկյան առ վայրկյան: Ես օգտագործում եմ այս կոդը, բայց չի աշխատում:

Dim xVal As String
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
Application.EnableEvents = False
Եթե ​​Target.Address = Range("C2").Address then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Ուրիշ
If xVal <> Range("C2").Value then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ ("C2"): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն աշխատում է, երբ ես մուտքագրում եմ տվյալները, այն չի աշխատում, երբ ես իրական ժամանակի տվյալներն ուղղակիորեն հեռարձակում եմ այս բջիջ (=RTD(.....)): ինչպե՞ս կարող եմ այն ​​աշխատել RTD-ի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ ձեռնարկների համար, ինձ դուր է գալիս իմանալ, թե արդյոք կա որևէ միջոց, որը թույլ է տալիս պարզապես բջիջն իրեն նորմալ հաշվիչ պահել:
այսինքն՝ այս բջիջը պետք է կարողանա գումարել մեկ այլ բջիջում հայտնված թվերը՝ միաժամանակ տեսանելի պահելով վերջին կուտակային թիվը:
Այս մյուս բջիջը կլինի մուտքի բջիջը կամ ակտիվ բջիջը:
Example:
Բջջ 1: =2*5, պատասխանը հայտնվում է բջիջ 2-ում,
Բջջ 1: =3*6.8, Պատասխանը ավելացվում է (2*5) արդյունքից ստացված նախորդ արժեքին և դեռ հայտնվում է 2-րդ բջիջում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերոնշյալ բանաձևը չի աշխատում բանաձևերի, միայն ձեռքով մուտքագրման համար: կա՞ որևէ տարբերակ փոխել կոդավորումը, որպեսզի այն աշխատի բանաձև պարունակող բջիջների համար:



Dim xVal As String
«Թարմացվել է Extendoffice 2018 / 8 / 22
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
Application.EnableEvents = False
Եթե ​​Target.Address = Range("C2").Address then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Ուրիշ
If xVal <> Range("C2").Value then
Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ ("C2"): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Խնդրում ենք փորձել ստորև նշված VBA-ն:



Dim xVal As String

Private Sub Worksheet_Change (ByVal Target as Range)

Ստատիկ xՀաշվել որպես ամբողջ թիվ

Application.EnableEvents = False

Եթե ​​Target.Address = Range("C2").Address then

Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal

xCount = xCount + 1

Ուրիշ

If xVal <> Range("C2").Value then

Շրջանակ («D2»). Օֆսեթ (xCount, 0): Արժեք = xVal

xCount = xCount + 1

Վերջ: Եթե

Վերջ: Եթե

Application.EnableEvents = Ճիշտ է

Վերջ Sub

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)

xVal = Շրջանակ ("C2"): Արժեք

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բանաձևերի համար չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս համաշխարհային տուգանքը, սակայն, ես պետք է կիրառեմ այս կոդը 2 տարբեր բջիջների վրա՝ պահպանելով յուրաքանչյուր բջիջի փոփոխվող արժեքները առանձին, համապատասխան սյունակներում: Ինչպե՞ս կարող է փոփոխվել կոդը: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Խնդրում ենք փորձել այս հոդվածի մեթոդը.

Ինչպե՞ս հիշել կամ պահպանել փոխված բջիջի նախորդ բջջային արժեքը Excel- ում:

https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է հարմարեցնել սա և օգտագործել DDE/RTD-ի հետ: Լավ է աշխատում բջիջները ձեռքով փոխելիս, բայց ոչ DDE/RTD-ով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է սա փոխվել, որպեսզի աշխատի մեկ աշխատաթերթի մի քանի բջիջների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Խնդրում ենք փորձել այս հոդվածի մեթոդը.

Ինչպե՞ս հիշել կամ պահպանել փոխված բջիջի նախորդ բջջային արժեքը Excel- ում:

https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ! Ես փորձեցի օգտագործել այս կոդը՝ որոշակի բջջի արժեքի յուրաքանչյուր փոփոխություն գրանցելու համար: Այնուամենայնիվ, ես մտածում էի, թե արդյոք որևէ մեկը կարող է օգնել ինձ՝ փոփոխելով այն, որպեսզի արժեքի փոփոխությունը հավաքվի ՏԱՐԲԵՐ ներդիրում և նաև այնպես, որ այն պահվի ամեն անգամ, երբ աշխատանքային գիրքը փակվում է: Քանի որ ամեն անգամ աշխատանքային գրքույկը բացվելիս այն մի տեսակ վերակայվում է առանց նախորդ արժեքները պահպանելու: Կոդ՝ Dim xVal As String
«Թարմացվել է Extendoffice 2018 / 8 / 22
Private Sub Worksheet_Change (ByVal Target as Range)
Ստատիկ xՀաշվել որպես ամբողջ թիվ
Application.EnableEvents = False
Եթե ​​Target.Address = Range("J7").Address then
Շրջանակ («AB2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Ուրիշ
If xVal <> Range("J7").Value then
Շրջանակ («AB2»). Օֆսեթ (xCount, 0): Արժեք = xVal
xCount = xCount + 1
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
xVal = Շրջանակ («J7»): Արժեք
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն ստորև բերվածի համար: Արագ հարց....կարո՞ղ եք երբեմն զրոյացնել սա, որպեսզի ձեր խնդրանքով կարողանաք ստանալ մակրո՝ ջնջելու բոլոր նախորդ թվերը և նորից սկսելու թվեր գրանցել D2 բջիջից: Այս պահին թվերը գրանցվում են D2, D3, D4, D5, D6 և այլն
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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