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

Ինչպե՞ս ավտոմատ կերպով լրացնել ամսաթիվը բջիջում, երբ հարակից բջիջը թարմացվում է Excel- ում:

Երբեմն, որոշակի սյունակում բջիջը թարմացնելիս, գուցե ցանկանաք նշել թարմացման մասին վերջին ամսաթիվը: Այս հոդվածը խորհուրդ կտա VBA մեթոդ լուծել այս խնդիրը: Երբ բջիջը թարմացվում է, հարակից բջիջը ավտոմատ կերպով բնակեցվում է ընթացիկ ամսաթվով:

Ավտոմատ լրացրեք ընթացիկ ամսաթիվը բջիջում, երբ հարակից բջիջը թարմացվում է VBA կոդով


Ավտոմատ լրացրեք ընթացիկ ամսաթիվը բջիջում, երբ հարակից բջիջը թարմացվում է VBA կոդով

Ենթադրելով, որ անհրաժեշտ տվյալները տեղակայելու համար անհրաժեշտ տվյալները տեղակայված են B սյունակում, և երբ B սյունի բջիջը թարմացվի, ընթացիկ ամսաթիվը կլրացվի Ա սյունակի հարակից վանդակում: Տեսեք,

Այս խնդիրը լուծելու համար կարող եք գործարկել հետևյալ VBA կոդը:

1. Աջ կտտացրեք թերթիկի ներդիրին, որը դուք պետք է ավտոմատ կերպով լրացնեք ամսաթիվը ՝ հիմնվելով հարակից նորացված բջիջի վրա, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Microsoft Visual Basic ationsրագրերի համար պատուհանում խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Հարակից բջիջը թարմացնելիս բջիջում ավտոմատ լրացնում է ընթացիկ ամսաթիվը

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

Notes:

1) Կոդում B: B նշանակում է, որ նորացված տվյալները տեղակայվում են B սյունակում:
2) -1-ը նշում է, որ ընթացիկ ամսաթիվը լրացված կլինի B սյունակի ձախ մեկ սյունակում: Եթե ուզում եք, որ ընթացիկ ամսաթիվը լրացվի սյունակում C, խնդրում ենք փոխել -1-ը 1-ի:

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

Այսուհետ, B սյունակում բջիջները թարմացնելիս, A սյունակի հարակից բջիջը անմիջապես կլրացվի ընթացիկ ամսաթվով: Տեսեք,


Առնչվող հոդվածներ քանակը:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (46)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. Սա շատ օգնեց։ Բայց երբ ես տող եմ ջնջում կամ տող ավելացնում, սա տալիս է Run-time error 13 Type անհամապատասխանություն: Ինչպես լուծել այս խնդիրը: Սպասում ենք շուտափույթ վերադարձի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջիշնու,
Ձեր նշած խնդիրը իմ դեպքում չի երևում։ Խնդրում եմ, կներկայացնե՞ք ձեր Office տարբերակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ Excel-ի աշխատանքային թերթերի մի շարք, որոնք վերնագրված են երկուշաբթի, երեքշաբթի, չորեքշաբթի և այլն: Ես պետք է a1 բջիջում դնեմ սկզբի ամսաթիվը երկուշաբթի օրը և խնդրեմ, որ այն լրացնի երեքշաբթիից ուրբաթ օրվա հաջորդ ամսաթվերը a1 բջիջում այդ թերթերից յուրաքանչյուրում: Ես ամենևին էլ կոդով գրագետ չեմ, այնպես որ ես պարզապես պետք է իմանամ, թե որն է այն պարզ բանաձևը, որը ես կարող եմ տեղադրել այնտեղ: :) շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սիրելի Լիա,
Դուք պարզապես պետք է օգտագործեք բանաձևը =երկուշաբթի!A1+1 թերթի երեքշաբթի, =երեքշաբթի!A1+1 թերթի չորեքշաբթի և այլն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է դա իրականացվել բանաձև պարունակող բջիջի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Թամմի,
Կոդը թարմացվել է։ Այն կարող է իրականացվել բանաձև պարունակող բջջի վրա: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, այն լավ է աշխատում, բայց երբ խոսքը գնում է փակման և պահպանման մասին, ես սխալ եմ ստանում, որ «VB project» հատկանիշը չի կարող պահպանվել մակրո-ազատ աշխատանքային գրքում: Խնդրում եմ, խորհուրդ տուր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, այն լավ է աշխատում, բայց երբ խոսքը գնում է փակման և պահպանման մասին, ես սխալ եմ ստանում, որ «VB project» հատկանիշը չի կարող պահպանվել մակրո-ազատ աշխատանքային գրքում: Խնդրում եմ, խորհուրդ տուր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեզ պարզապես անհրաժեշտ է «պահել որպես» Excel-ի մակրո-միացված աշխատանքային գրքույկ...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք այս գործառույթը երկու անգամ օգտագործել նույն թերթիկի վրա: այսինքն, եթե ես կցանկանայի գրառումներ կատարել B սյունակում ժամանակի դրոշմակնիքի A սյունակում ԵՎ Դ սյունակում գրառումներ դնել ժամանակի դրոշման C սյունակի վրա: Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սա գործի դրեցի՝ անելով հետևյալը.


Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
«Թարմացվել է Extendoffice 2017 / 10 / 12
Dim xRg որպես միջակայք, xCell որպես միջակայք
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("B:B")) ոչինչ) Այնուհետև _
Target.Offset(0, -1) = Ամսաթիվ
Application.EnableEvents = False
Սահմանել xRg = Application.Intersect(Target.Dependents, Me.Range(«B:B»))
Եթե ​​(Not xRg Is Nothing) Ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
xCell.Offset(0, -1) = Ամսաթիվ
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե


Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("D:D")) ոչինչ) Ապա _
Target.Offset(0, -1) = Ամսաթիվ
Application.EnableEvents = False
Սահմանել xRg = Application.Intersect(Target.Dependents, Me.Range(«D:D»))
Եթե ​​(Not xRg Is Nothing) Ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
xCell.Offset(0, -1) = Ամսաթիվ
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Կարո՞ղ է որևէ մեկը առաջարկել կոդը, երբ ես մուտքագրում եմ համարը A սյունակում և B սյունակում, իսկ սյունակ CI-ում պահում է բանաձև, ինչպիսին է սյունակ A + սյունակ B: Այժմ ինձ անհրաժեշտ է vba կոդ, որը կարող է ժամանակ և ամսաթիվ տալ սյունակ D-ում, երբ C սյունակը փոխվի: ոչ A և B սյունակներում թվեր ավելացնելիս:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Excel-ի հետ կապված ցանկացած հարց, խնդրում ենք մի հապաղեք տեղադրել մեր ֆորումում. https://www.extendoffice.com/forum.html.
Excel-ի մասին ավելի շատ աջակցություն կստանաք մեր Excel մասնագետից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HI - նոր VBA - Ես ուզում եմ պտտել կոդը - VBA կոդ. ավտոմատ լրացնել ընթացիկ ամսաթիվը բջիջում, երբ հարակից բջիջը թարմացվում է, որպեսզի բջիջը թարմացվի ամսաթվով, այնուհետև անցիր ասելով «J:J»: և թարմացրեք K-ն ամսաթվով և արեք ևս 2 անգամ: Համոզված չե՞ք՝ դա օղակ է, թե՞ համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Nevermind...Ես փորձեցի Ջոնի պատասխանը ստորև և այն աշխատում է. շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ այս կոդը՝ սյունակը ավտոմատ կերպով համալրելու համար և այժմ ցանկանում եմ ավտոմատ կերպով լրացնել ավելի շատ սյունակներ՝ հիմնվելով H սյունակում մուտքագրված ամսաթվի վրա: Այլ կերպ ասած, ամսաթիվը մուտքագրելուց հետո կարո՞ղ եմ ավտոմատ լրացնել սյունակները՝ ավելացնելու 90, 60 և 30 օր ավարտված ամսաթիվը: ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թրեյսի,
Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել:

Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
Dim xRg որպես միջակայք, xCell որպես միջակայք
Dim xRgՀասցեն որպես տող
xRgAddress = «H:H»
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range(xRgAddress)) ոչինչ) Ապա
Target.Offset(0, 1) = Ամսաթիվ + 90
Target.Offset(0, 2) = Ամսաթիվ + 60
Target.Offset(0, 3) = Ամսաթիվ + 30
Վերջ: Եթե
Application.EnableEvents = False
Սահմանել xRg = Application.Intersect(Target.Dependents, Me.Range(xRgAddress))
Եթե ​​(Not xRg Is Nothing) Ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
xCell.Offset(0, 1) = Ամսաթիվ + 90
xCell.Offset(0, 2) = Ամսաթիվ + 60
xCell.Offset(0, 3) = Ամսաթիվ + 30
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն. Ես փորձում եմ օգտագործել «Ավտոմատ լրացնել ընթացիկ ամսաթիվը բջիջում, երբ հարակից բջիջը թարմացվում է VBA կոդով»: Սա աշխատում է Թերթ 1-ում, բայց ես ունեմ 11 այլ թերթ, որոնց վրա աշխատելու համար անհրաժեշտ է կոդը: Խնդրում եմ, խորհուրդ տուր. Ես ամենևին էլ VBA-ի հմուտ չեմ, ուստի գնահատում եմ ցանկացած օգնություն, որը կարող եմ ստանալ:

Thanks.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Գվեն,
Կրկնեք կոդը այլ թերթերում պատճենելու քայլերը: Դա կարող է հոգնեցուցիչ լինել, բայց այն աշխատում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես օգնության կարիք ունեմ: Ես փորձում եմ ընթացիկ ամսաթիվը լրացնել A սյունակում, եթե B-ից N-ից որևէ բջիջ փոփոխված են: Օֆսեթը շպրտում է ինձ: Կարո՞ղ է այս կոդը գրել A սյունակում ամսաթիվը ավտոմատ կերպով համալրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Joո
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
«Թարմացվել է Extendoffice 20190924
Dim xRg որպես միջակայք, xCell որպես միջակայք
Dim xInt որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("B:N")) Ոչինչ) Ապա
Application.EnableEvents = False
xInt = Target.Row
Me.Range ("A" & xInt) Value = Ամսաթիվ
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Կարո՞ղ եմ նշել համալրման ամսաթիվը և ժամը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Աբբի,
Վերոնշյալ ծածկագրում խնդրում ենք փոխարինել այս տողը
«xCell.Offset(0, -1) = Ամսաթիվ»
հետ
"xCell.Offset(0, -1) = Ձևաչափ(Հիմա(), "yyyy-MM-dd hh:mm:ss")":
Հուսով եմ, որ կարող եմ օգնել: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա ժամանակը չի ավելացրել… այլ կերպ կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
դուք պետք է փոխեք այն 2 տեղից, եթե տեսնում եք բնօրինակ կոդը, ամսաթիվը 2 տեղ է, երկուսն էլ փոխեք Format(Now(), «yyyy-MM-dd hh:mm:ss»)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, կա՞ տարբերակ (A) սյունակը ավտոմատ կերպով լրացնել ամսաթվով, երբ արժեքը մուտքագրվում է նույն տողի որևէ բջիջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Հարրի
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք ծածկագրում հնարավորինս նշել տիրույթը: Շնորհակալություն մեկնաբանության համար։

Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
«Թարմացվել է Extendoffice 20191017
Dim xRg որպես միջակայք, xCell որպես միջակայք
Dim xInt որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("B:BP")) ոչինչ) Ապա
Application.EnableEvents = False
xInt = Target.Row
Me.Range ("A" & xInt) Value = Ամսաթիվ
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծում եմ 7-րդ տողում նույնպես փոփոխություն է պետք...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞, արդյոք կա ավտոմատ լրացման և կողպման եղանակ, որպեսզի մուտքագրողը չփոխի ամսաթիվը: Երբ ես կողպում եմ բջիջները և պաշտպանում փաստաթուղթը, ապա բջիջներն ընդհանրապես չեն լցվում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ ուզում մուտքագրել ամսաթիվ, այլ բջիջում հաստատուն արժեք, օրինակ՝ թիվ կամ տեքստային տող: խնդրում եմ առաջարկեք նույնի համար փոխել կոդը:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, եթե ցանկանում եք թիվ մուտքագրել, խնդրում ենք փոխարինել տեքստը Ամսաթիվ հետ թիվ անմիջապես ծածկագրում: Տեքստային տող մուտքագրելու համար խնդրում ենք փոխարինել տեքստը Ամսաթիվ կոդով «դու տեքստային տող» (կրկնակի չակերտները ներառված են):
Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
«Թարմացվել է Extendoffice 2020 / 09 / 28
Dim xRg որպես միջակայք, xCell որպես միջակայք
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("B:B")) ոչինչ) Այնուհետև _
Target.Offset(0, -1) = "տեքստային տող" 'Կամ ուղղակիորեն մուտքագրեք թիվ
Application.EnableEvents = False
Սահմանել xRg = Application.Intersect(Target.Dependents, Me.Range(«B:B»))
Եթե ​​(Not xRg Is Nothing) Ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
xCell.Offset(0, -1) = "տեքստային տող" 'Կամ ուղղակիորեն մուտքագրեք թիվ
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես այս կոդը մուտքագրում եմ իմ excel աշխատանքային գրքում, և ոչինչ չի կատարվում: Խնդրում եմ որևէ մեկը կարող է օգնել: Իդեալում, ես կցանկանայի, երբ ինչ-որ բան դրվում է A սյունակում, ժամանակը տեղադրվի B սյունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Չապո, փորձիր ստորև նշված կոդը: Հուսով եմ, որ կարող եմ օգնել: Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի թիրախը որպես Excel.Range)
«Թարմացվել է Extendoffice 2020 / 10 / 12
Dim xRg որպես միջակայք, xCell որպես միջակայք
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​(Target.Count = 1) Ապա
Եթե ​​(Not Application.Intersect(Target, Me.Range("A:A")) ոչինչ է) Ապա _
Target.Offset(0, 1) = Ժամանակ
Application.EnableEvents = False
Սահմանել xRg = Application.Intersect(Target.Dependents, Me.Range(«A:A»))
Եթե ​​(Not xRg Is Nothing) Ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
xCell.Offset(0, 1) = Ժամանակ
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես օգտագործում եմ ձեր կոդը որպես հղում: Ուզում եմ հարցնել՝ հնարավո՞ր է ունենալ հետևյալը՝ 1. Կանխել կրկնվող ամսաթվերի գրառումները2. Միաժամանակ ունեցեք 2 մակրո մուտքեր՝ Target.Offset(0,-1), Target,Offset(0,1)3: Հնարավո՞ր է ավտոմատ կերպով պատկեր տեղադրել բջիջում:
Ես ինքս փորձում էի պարզել դա, բայց ես կարծես թե չեմ կարող գտնել որևէ ռեսուրս առցանց, որը կարող է օգնել ինձ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, այս բանաձևը հիանալի է աշխատում: Այնուամենայնիվ, կա՞ այն սահմանելու միջոց, որ այն թարմացնի միայն A սյունակի բջիջը, եթե այն դատարկ է:  
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մեթ, կներեք, ես այնքան էլ չեմ հասկանում, թե ինչ նկատի ունեք: Կարո՞ղ եք փորձել ավելի կոնկրետ լինել ձեր հարցի վերաբերյալ կամ տրամադրել սքրինշոթ, թե ինչ եք փորձում անել:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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