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

Ինչպե՞ս ինքնաբերաբար գրանցել ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է:

Մեզ համար հեշտ է ձեռքով տեղադրել ստատիկ ամսաթիվը և ժամանակը կամ դնել դինամիկ ամսաթիվ, որը փոխվում է համակարգի ժամանակի հետ, բանաձևով: Եթե ​​ցանկանում եք ավտոմատ կերպով արձանագրել ամսաթիվը և ժամանակը, երբ փոխում եք կամ արժեքներ եք մուտքագրում, ապա այս խնդիրը լուծելու համար կարող է մի փոքր այլ լինել: Բայց այս հոդվածում դուք կարող եք լուծել այս խնդիրը հետևյալ քայլերով.

Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է VBA կոդով

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է VBA կոդով

Օրինակ, ես մի շարք արժեքներ ունեմ, և այժմ, երբ ես սյունակում փոխում եմ կամ մուտքագրում եմ նոր արժեքներ, ես ուզում եմ, որ C սյունակում ավտոմատ կերպով գրանցի ընթացիկ ամսաթիվը և ժամանակը, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթ-թարմացում-ժամանակի-արժեք-փոփոխություններ -1

Դուք կարող եք ավարտել այս առաջադրանքը ՝ հետևելով VBA կոդին: Խնդրում եմ արեք այսպես.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան:

2, Դրանից հետո ձախից ընտրեք ձեր օգտագործված աշխատանքային թերթը Project Explorer, կրկնակի կտտացրեք այն `բացելու համար Մոդուլներև ապա պատճենեք և կպցրեք հետևյալ VBA կոդը ՝ դատարկ Մոդուլի մեջ.

VBA կոդ. Բջիջը փոխելիս ավտոմատ գրանցեք ամսաթիվը և ժամանակը

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

փաստաթուղթ-թարմացում-ժամանակի-արժեք-փոփոխություններ -1

3. Դրանից հետո պահեք և փակեք այս կոդը ՝ աշխատանքային թերթը վերադառնալու համար, այժմ, երբ փոխեք բջիջի արժեքը կամ B սյունակում մուտքագրեք նոր տվյալներ, ամսաթիվը և ժամանակը ավտոմատ կերպով կգրանցվեն C սյունակում:

Նշումներ:

1. Վերոնշյալ ծածկագրում կարող եք փոփոխել «B: B”Ցանկացած այլ սյունակի, որը ցանկանում եք փոխել բջջային արժեքները այս սցենարում. Սահմանել WorkRng = խաչմերուկ (Application.ActiveSheet.Range («B: B»), նպատակային).

2. Սրանով xOffsetColumn = 1 սցենար, դուք կարող եք զետեղել և ամսաթիվը և ժամանակը թարմացնել ձեր փոփոխվող արժեքի սյունակի կողքին գտնվող առաջին սյունակին, 1 թիվը կարող եք փոխել այլ թվերի, ինչպիսիք են 2,3,4,5…, ինչը նշանակում է, որ ամսաթիվը կտեղադրվի երկրորդ, երրորդ, չորրորդ կամ հինգերորդ սյունները, բացի ձեր փոփոխված արժեքների սյունակից:

3. Երբ փոփոխված սյունակում արժեքը ջնջում եք, ամսաթիվը և ժամանակը նույնպես կհեռացվեն:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (108)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս գրել կոդը՝ դա մի քանի անգամ մեկ էջում անելու համար, օրինակ. տեքստը սյունակում B, ամսաթիվը C և տեքստը D, ամսաթիվը E.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ինչպե՞ս գրել կոդը՝ դա մի քանի անգամ մեկ էջում անելու համար, օրինակ. տեքստը սյունակում B, ամսաթիվը C և տեքստը D, ամսաթիվը E.Հիլարիի կողմից[/quote] Ես գիտեմ, որ սա հին է, բայց երկար, բայց հեշտ ճանապարհը փոփոխականների հայտարարագրերը պատճենելն ու նոր փոփոխականներ ստեղծելն է (այսինքն WorkRng1 և Rng1): Դուք նաև պետք է պատճենեք «եթե» հայտարարությունը և փոխեք փոփոխականները նոր փոփոխականների անուններով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ինչպե՞ս գրել կոդը՝ դա մի քանի անգամ մեկ էջում անելու համար, օրինակ. տեքստը սյունակում B, ամսաթիվը C և տեքստը D, ամսաթիվը E.Հիլարիի կողմից[/quote] Ահա կոդը՝ Private Sub Worksheet_Change(ByVal Target As Range) «Թարմացնել 20140722 Dim WorkRng Որպես Range Dim Rng As Range Dim xOffsetColumn As Integer «Փոխեք միջակայքը՝ ընտրելու այն սյունակը, որը թարմացնում եք, այսինքն ("A: A") կամ ("B:B") Սահմանել WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target) xOffsetColumn = 1 'Երկրորդ անգամ դրոշմակնիք 'Ստեղծել նոր փոփոխականների անուններ, ինչպիսիք են WorkRng1, Rng1 և այլն: Dim WorkRng1 Որպես միջակայք Dim Rng1 Որպես տիրույթ Dim xOffsetColumn1 Որպես ամբողջ թվերի հավաքածու WorkRng1 = Intersect(Application.ActiveSheet.Range("G:G"), Target) xOffsetColumn1 = 1 «Առաջին անգամ դրոշմակնիք Եթե այն չի աշխատում Rng-ը: Այնուհետեւ Application.EnableEvents = False Յուրաքանչյուր Rng-ի համար WorkRng Եթե ոչ VBA.IsEmpty(Rng.Value) Այնուհետեւ Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "mm/dd/ yyyy" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End Եթե «Երկրորդ անգամ դրոշմակնիք If Not WorkRng1 Is Nothing Ապա Application.EnableEve nts = Սխալ յուրաքանչյուր Rng1-ի համար WorkRng1-ում, Եթե ոչ VBA.IsEmpty(Rng1.Value) Ապա Rng1.Offset(0, xOffsetColumn1).Value = Այժմ Rng1.Offset(0, xOffsetColumn1).NumberFormat = «mm/dd/yyyy» Այլ Rng1.Offset(0, xOffsetColumn1).ClearContents ավարտվում է, եթե հաջորդ հավելվածով.EnableEvents = True End, if End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ անել, եթե ես ուզում եմ դա անել մի շարք սյունակների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
փոխեք միջակայքը (B:B) այսպես. (10:20) 10-ից 20-րդ սյունակների համար (D5:D40) 5-ից 40-րդ սյունակների համար D շարքում Հուսով եմ, որ դա կօգնի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես սյունակները փոխում եմ տողերով, բայց այն դեռ աշխատում է: (D:P) D սյունակից մինչև P (D5:D5) D սյունակից մինչև P 5-րդ շարքում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ ես այն պահում եմ, աշխատում է, բայց երբ նորից բացում եմ՝ չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]երբ ես այն պահում եմ, աշխատում է, բայց երբ նորից բացում եմ՝ չի աշխատումԱարիֆի կողմից[/quote] Նույն խնդիրը, ինչ Aarif-ը... Այն աշխատում էր կես ժամ առաջ, իսկ հիմա՝ ոչ... նաև, ես ուզում էի միայն ժամը, ոչ թե ամսաթիվը ԵՎ ժամը, այնպես որ ես խմբագրեցի «.NumberFormat»-ը, որպեսզի լինի: ուղղակի hh:mm:ss, պահպանված, փորձարկվեց... ոչ մի տարբերություն... դեռ ամսաթիվն ու ժամը դնում... նորից բացեցի VB-ն և մուտքագրեցի որոշ սահմանազատված տեքստ, նորից պահպանեցի, դեռ լավ չէ, հետո ես դա արեցի երրորդ անգամ, և ձևաչափն արեց այնպես, ինչպես ասվեց, և հանկարծ ստացա ճիշտ ժամանակը: ՇԱՏ տարօրինակ է, ես երկար ժամանակ մտածում էի, որ Excel-ը հետապնդված է, այն ժամանակվանից, երբ ես առաջին անգամ օգտագործեցի SEARCH ֆունկցիան՝ փնտրելով արժեք մի բջիջում, որը կարող էի տեսնել իմ աչքերով, բայց Excel-ը պնդում էր, որ այն գոյություն չունի: Որևէ Excel գուրու կամ էկզորցիստ, որը կարող է օգնել: ինչու է այն անտեսում իմ VB-ն և ՉԻ ժամանակի դրոշմավորում, ինչպես դա արեց... շնորհակալություն :cry:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ինչպե՞ս գրել կոդը՝ դա մի քանի անգամ մեկ էջում անելու համար, օրինակ. տեքստը սյունակում B, ամսաթիվը C և տեքստը D, ամսաթիվը E.Հիլարիի կողմից[/quote] ո՞րն է մեջբերումի պատասխանը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ անել, եթե ես ուզում եմ, որ սա գործարկվի, բայց ակտիվ թերթիկում չեմ, այնպես որ գործարկեք հետին պլանում և թարմացնեմ, երբ մուտք կա B սյունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե ժամանակի դրոշմանիշի սյունակը ազդող սյունակը մի քանի այլ սյունակների գումարն է: Օրինակ... H սյունակը =Sum(E+F+G) է, և ես կցանկանայի, որ I-ում ժամանակային դրոշմակնիք լինի ամեն անգամ, երբ H սյունակը փոխվում է, կամ ըստ էության, երբ փոխվում են E, F կամ G սյունակները: . Խնդրում եմ կարող եք օգնել??
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգնության կարիք ունեմ, խնդրում եմ: Ամեն անգամ, երբ երեք բջիջներից մեկը փոխվում է, ես փորձում եմ ժամանակի կնիք անել: Ես կցանկանայի դա անել, երբ այս բջիջների գումարը փոխվի: Օրինակ. E, F, G բջիջները կփոխվեն, իսկ H բջիջը կլինի այդ երեք բջիջների գումարը: Երբ H բջիջը փոխված է, ես կցանկանայի, որ I բջիջը ժամանակի վրա դրոշմվի: Սա հնարավո՞ր է?? Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ գործարկել վերը նշված կոդը. Այնուամենայնիվ, այն բջիջը, որը ես ուզում եմ գրանցել փոփոխությունը, կապված է վանդակի հետ և, հետևաբար, կա՛մ «ՃԻՇՏ» է, կա՛մ «Սխալ»: Ինչ-ինչ պատճառներով, կոդը չի աշխատի, երբ բջիջը փոխվի: Այնուամենայնիվ, եթե ես տեղադրեմ «այո» ասելը ձեռքով, կոդը լավ է աշխատում: Այս խնդրի լուծման որևէ տարբերակ, որին դուք տեղյակ եք: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է դա անել պատմական տվյալների համար: Եթե ​​երեկ կամ մեկ ամիս առաջ ես փոփոխություններ եմ կատարել բջիջում, կարո՞ղ եմ օգտագործել այս կոդի ձևը այդ ամսաթվերը վերականգնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որոշակի փոփոխության վրա հիմնված ժամանակի դրոշմման միջոց: Օրինակ, ես ունեմ աղյուսակ՝ բացվող ընտրանքների սյունակով, ներառյալ դատարկ լինելը, «Լավ» և «Գործել»: Երբ առաջադրանքն ավարտված է, բացվող պատուհանը ձեռքով օգտագործվում է «Լավ» ընտրելու համար: Ես կցանկանայի, որ ամսաթվի դրոշմը կապվի «Ok» ընտրվածի հետ, բայց ոչ այն ժամանակ, երբ ընտրված է «Գործել»: Բացվող ցանկում «Գործել» տարբերակը օգտագործվում է, երբ առաջադրանքը ժամկետանց է, բայց ես իրականում պարզապես փորձում եմ հետևել, թե երբ է ավարտված նյութը: Կա՞ արդյոք դա իրականացնելու միջոց վերը նշված կոդով: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարողացա՞ք լուծել սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ լավ հարց է: դասավորե՞լ եք այն, խնդրում եմ կիսվեք ճանապարհով:
շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կարող եմ փոխել տիրույթը որպես («A:Q»), բայց ինձ անհրաժեշտ է ամսաթիվը և ժամը «S» մտնելու համար, եթե որևէ AQ բջիջի տվյալները փոխվեն/հեռացվեն: Ես մարտահրավեր եմ VBA-ին: Ցանկացած օգնություն մեծապես գնահատելի է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես հենց նոր հարց էի տեղադրել, և ես դրա պատասխանի կարիքն ունեմ... Հավանաբար բաց եմ թողել այս մեկնաբանությունը... հուսով եմ, որ ինչ-որ մեկը կարող է օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ փոխել այն, որպեսզի փոխվի միայն հարակից բջիջի ամսաթիվը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ժամանակի դրոշմակնիք ստանալ կոնկրետ խցում ձայնագրելու համար՝ փոխվածի կողքին գտնվող բջիջի փոխարեն: Ես փորձում եմ բջիջների շարքի ժամանակի դրոշմակնիք ունենալ, երբ այդ բջիջներից որևէ մեկում փոփոխություն է տեղի ունենում, ես կցանկանայի, որ ժամանակի դրոշմը գրանցվի մեկ կոնկրետ բջիջում... որևէ մեկը կարո՞ղ է օգնել այս հարցում: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շնորհակալ եմ դրա համար, քանի որ դա հիանալի է ՀԲ-ի աուդիտի համար: Կա՞ սա փոփոխելու միջոց, որպեսզի ամսաթիվը/ժամը գրանցվի ՀԲ-ում, երբ մեկնաբանություն ավելացվի կամ փոփոխվի: Ես գիտեմ, որ սա ընդհանուր հարց է, բայց ես վստահ չեմ, որ դա հնարավոր է (ցավոք, MS 2010-ի համար .comment հատկությունը չունի ամսաթվի հատկություն՝ բացահայտելու, թե երբ է այն մուտքագրվել: Mike
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ կարգավորել A:A սյունակը կարդալու և B:B-ով ժամանակի դրոշմակնիք տալ միայն այն դեպքում, երբ դրանում մուտքագրված է 14 նիշանոց թիվ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես VBA կոդավորման օգնության կարիք ունեմ: Ստեղծում եմ աղյուսակ՝ գործերով, որոնք կհատկացվեն մարդկանց և կունենան գործի կարգավիճակ։ Հանձնարարը կլինի Col H-ով, և ինձ անհրաժեշտ է ամսաթվի դրոշմակնիք Col I-ում, երբ Col H-ի բջիջը թարմացվի կամ փոխվի անունով: Նմանապես, ես կունենամ գործի կարգավիճակ Col J-ում և կպահանջվի ամսաթվի կնիք Col K-ում, երբ կարգավիճակը մուտքագրվի կամ փոխվի: նաև, երբ կա ոչ իրավասու անուն կամ կարգավիճակ, ինձ անհրաժեշտ է, որ Col I և K-ի ամսաթվի դրոշմը դատարկ լինի: Ցանկացած օգնություն կգնահատվի: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գտա այս կոդը այլ տեղ և փոփոխեցի այն իմ օգտագործման համար: Եթե ​​ճիշտ է արվում, ապա ձեզ հարկավոր չէ անհանգստանալ այն բանի համար, որ ամեն անգամ այն ​​բացվում է, երբ այն բացվում է բջիջում ֆունկցիա մուտքագրելու կամ ֆայլի ամսաթվերը տվյալ օրվա ամսաթվերը փոխելու համար: - բացեք Excel - սեղմեք «Alt+F11» - Կրկնակի սեղմեք աշխատաթերթի վրա, որի վրա ցանկանում եք կիրառել փոփոխությունը (ձախ կողմում նշված է) - պատճենեք/տեղադրեք ստորև բերված կոդը - կարգավորեք Range(_:_) մուտքագրումը համապատասխանելու համար: այն սյունակում, որը դուք կթարմացնեք - կարգավորեք Offset(0,_) մուտքագրումը, որպեսզի համապատասխանի այն սյունակին, որտեղ ցանկանում եք ցուցադրել ամսաթիվը (ներքևի տարբերակում ես թարմացումներ եմ կատարում D սյունակի համար և ցանկանում եմ, որ ամսաթիվը ցուցադրվի F սյունակում, հետևաբար մուտքագրվում է «2» մուտքագրումը 2 սյունակների համար՝ D սյունակից) - սեղմեք պահպանել - կրկնել վերը նշված քայլերը, եթե ձեր աշխատանքային գրքում կան այլ աշխատաթերթեր, որոնց անհրաժեշտ է նույն կոդը. գուցե ստիպված լինեք փոխել սյունակի համարի ձևաչափը, որը ցուցադրում է սյունակը: ամսաթիվը «Ընդհանուր» և ավելացրեք սյունակի լայնությունը, եթե այն ցուցադրում է «####»՝ ստորև թարմացված գրառում կատարելուց հետո Պատճենել/տեղադրել կոդը. D:D")) Ոչինչ է, ապա Ելք ենթակետից: Օֆսեթ(0, 2) = Ամսաթվի ավարտի ենթահաշիվ ___ _________________________________________________________ Հաջողություն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը ցույց կտա ամսաթիվը, երբ սեղմեք, երբ այն հայտնվում է, հնարավո՞ր է ամսաթիվ ցույց տալ միայն այն ժամանակ, երբ բջիջում բովանդակությունը փոխվում է, եթե միայն սեղմված է, և ոչինչ չի փոխվել, ապա ամսաթիվը չի ցուցադրվում կամ նախկինում մուտքագրված ամսաթիվը մնում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես մակրոյում գրանցում եմ vloocup բանաձև, այնպես որ ինչպես կարող եմ անել, որ այդ ամսաթիվը ինքնաբերաբար փոխվեց մինչև 1 օր, ինչպես իր 21/07/2017, ապա հաջորդ օրը այն փոխվեց 22/07/2017 Ավտոմատ կերպով, խնդրում ենք կիսվել, եթե կա որևէ vba կոդ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
փոխարինել այս տողը
Rng.Offset(0, xOffsetColumn).Value = Այժմ

դեպի
Rng.Offset(0, xOffsetColumn).Արժեք = Հիմա+1
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ կոդի համար: Հենց այն, ինչ ես փնտրում էի!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն օգնության համար :-)
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

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