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

Ինչպե՞ս տեղադրել ընթացիկ ժամանակային դրոշմը, երբ Excel- ում այլ խցում փոխվում են տվյալները:

Ենթադրելով, որ դուք ստանում եք աշխատանքային թերթ, որը ձեզ անհրաժեշտ է որոշակի սյունակում տվյալները փոփոխելու համար: Եվ աշխատանքային թերթը փոփոխելուց հետո դուք պետք է տեղադրեք փոփոխված ժամանակային դրոշմը ՝ ուրիշներին տեղյակ պահելու համար, թե որ բջիջները փոխվել են: Ինչպե՞ս վարվել դրա հետ: Այս հոդվածը ձեզ ցույց կտա ընթացիկ ժամանակային դրոշմը տեղադրելու եղանակը, երբ այլ խցում տվյալները փոխվում են Excel- ում, ինչպես ցույց է տրված ստորև նշված նկարում:

Տեղադրեք ընթացիկ ժամանակագրական դրոշմը, երբ մեկ այլ բջիջում տվյալները փոխվում են VBA կոդի հետ


Տեղադրեք ընթացիկ ժամանակագրական դրոշմը, երբ մեկ այլ բջիջում տվյալները փոխվում են VBA կոդի հետ

Ինչպես ցույց է տրված սքրինշոթից ներքևում, դուք պետք է լրացնեք ժամանակի դրոշմը E սյունակում, եթե C սյունակում համապատասխան բջիջները փոխվեն: Խնդրում եմ, արեք հետևյալ կերպ.

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

2. Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհանը Microsoft Visual Basic հավելվածների համար պատուհան Տեսեք,

VBA կոդ. Տեղադրեք ընթացիկ ժամանակագրական դրոշմը, երբ այլ բջիջում տվյալները փոխվում են

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

ՆշումԿոդում. 3-ը նշանակում է, որ դուք պատրաստվում եք փոփոխել տվյալները C սյունակում, իսկ 5-ը ցույց է տալիս, որ ժամանակի դրոշմը կհամալրվի E սյունակում: Խնդրում ենք փոխել դրանք ՝ ելնելով ձեր կարիքներից:

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

Այսուհետ, C սյունակում տվյալները փոխելիս ժամանակի դրոշմը կհամալրվի E սյունակում համապատասխան բջիջներում, ինչպես ցույց է տրված նկարում:

Հուշում Ամսաթիվ ընտրող. The Տեղադրեք Ամսաթիվը օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է ձեզ արագորեն մուտքագրել ամսաթիվը նշված ամսաթվի ձևաչափով ընտրված խցում:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (57)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, վերը նշված բանաձևը օգտակար կլինի մեկ բջջի ժամանակի դրոշմանիշի թարմացման համար Օրինակ. Եթե մենք մուտքագրենք որևէ տվյալ 3-րդ բջիջում, ապա 5-րդ բջիջում ինքնաբերաբար թարմացվում է ժամանակի կնիքը: Խնդրում ենք խորհուրդներ բազմակի բջիջների թարմացման համար: Օրինակ. Եթե մենք մուտքագրենք որևէ տվյալ 3-րդ բջիջում, ժամանակի դրոշմը ավտոմատ կերպով թարմացվում է 5-րդ բջիջում, իսկ եթե մուտքագրում ենք 4-րդ բջիջ, այն կթարմացվի 6-րդ բջիջում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ նույնպես հետաքրքրում է հենց այս հարցը։ Գտե՞լ եք պատասխան։ Այս մասին իմ մեկնաբանությունը ուրիշի ուշադրությունը կհրավիրի՞ այս հարցին։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես տեղադրում եմ բազմաթիվ տողեր և սյունակներ արժեքով տվյալների (միաժամանակ և միշտ միաժամանակ): Ես կցանկանայի, որ ժամանակի դրոշմը ցուցադրվի մեկ բջիջում: այլ կերպ ասած, երբ C9 բջիջը փոխվում է (իմ տվյալների վերևի ձախ անկյունը), ցուցադրեք ժամանակը A1 բջիջում: ցանկացած օգնություն շատ գնահատելի կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող ենք կողպել ժամանակի ձևաչափը, որովհետև այն ամեն անգամ թարմացվում է և տեղադրում ամսաթիվ և ժամը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես Excel-ում աշխատանքային թերթիկ եմ ստեղծում, որտեղ ցանկանում եմ հետևել որոշակի գործարքի մեկնարկի և ավարտի ժամը՝ օգտագործելով ժամանակի դրոշմը: Սյունակը ցույց կտա նաև ժամանակի տևողությունը: Խնդրում ենք տեսնել ստորև նկարը: Ինչ-որ մեկը կարո՞ղ է օգնել ինձ: Պատկերը ստորև։

Ես գտա 2 VBA կոդ, որոնք գրանցում են ժամանակի կնիքները: Այնուամենայնիվ, ես չգիտեմ, թե ինչպես դրանք միավորել, որպեսզի նրանք աշխատեն այս թերթում.


Կոդ 1 . Այն ցույց է տալիս ժամանակի դրոշմը «Սկսման ժամանակ» սյունակում (B4), երբ դուք մուտքագրում եք գործարքի համարը «Case ID» սյունակում (A4):


Private Sub Worksheet_Change (ByVal Target as Range)
GoTo Handler-ի սխալի մասին
Եթե ​​Target.Column = 1 Եվ Target.Value <> "" Ապա
Application.EnableEvents = False
Target.Offset(0, 1) = Ձևաչափ(Հիմա(), «մմ/dd/yyyy HH:mm:ss»)
Application.EnableEvents = Ճիշտ է
Վերջ: Եթե
Գործավար
Վերջ Sub


Կոդ 2. Այն ցույց է տալիս ժամանակի դրոշմը «Վերջի ժամանակ» սյունակում (D4), եթե ընտրված է «Կարգավիճակ» (C4) սյունակի բացվող ցանկից ընտրություն:


Private Sub Worksheet_Change (ByVal Target as Range)
Dim xCellColumn որպես ամբողջ թիվ
Dim xTimeColumn որպես ամբողջ թիվ
Dim xRow, xCol որպես ամբողջ թիվ
xCellColumn = 3
xTimeColumn = 4
xRow = Target.Row
xCol = Target.Column
Եթե ​​Target.Text <> "" Ապա
Եթե ​​xCol = xCellColumn Ապա
Բջիջներ (xRow, xTimeColumn) = Հիմա ()
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Չիա,
Չեմ տեսել ձեր պատկերը: Խնդրում ենք սեղմել ստորև «Վերբեռնել ֆայլեր» կոճակը՝ ձեր նկարը վերբեռնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ո՞րն է կոդը, եթե ես ուզում եմ մի քանի բջիջներ առանձին-առանձին միևնույն աշխատաթերթում ժամանակի դրոշմակնիք դնել:
Օրինակ՝ Փոփոխություն 3-րդ սյունակում, ժամանակի դրոշմակնիք՝ 5-րդ:
xCellColumn = 3
xTimeColumn = 5
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Մարիամ,
Հետևյալ VBA կոդը կարող է օգնել ձեզ. Շնորհակալություն մեկնաբանության համար։

Private Sub Worksheet_Change (ByVal Target as Range)
Dim I As Long
Dim J As Long
Dim xCols այնքան երկար
Dim xSRg որպես միջակայք
Dim xRgEx As Range
Dim xSRgArea որպես տիրույթ
Dim xNextArea-ը որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
Application.EnableEvents = False
Սահմանել xSRg = Միություն (Range ("C:C"), Range ("E:E"), Range ("J:K"), Range ("M:N"))
Սահմանել xRgEx = Խաչմերուկ (xSRg, թիրախ)
Եթե ​​xRgEx-ը ոչինչ է, ապա գնացեք ExitSub
I = 1-ի համար դեպի xSRg.Areas.Count
J = I
Սահմանել xSRgArea = xSRg.Areas.Item(I)
Եթե ​​xRgEx.Column = xSRgArea(1).Column Այնուհետեւ
xCols = xSRgArea.Columns.Count
Եթե ​​xCols = 1 Ապա
Սահմանել xNextArea = xSRg.Areas.Item(J + 1)
Եթե ​​xNextArea-ն ոչինչ է, ապա
GoTo ExitSub
ElseIf xNextArea.Columns.Count = 1 Հետո
xNextArea(xRgEx.Row).Value = Now()
Ելք For
Վերջ: Եթե
ElseIf xCols = 2 Ապա
xSRgArea.Columns(2).Rows(xRgEx.Row).Value = Now()
Ելք For
Վերջ: Եթե
Վերջ: Եթե
հաջորդ
ExitSub:
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք կիսվել, թե ինչ պետք է թարմացվի, որպեսզի այն հատուկ լինի մեկ այլ աղյուսակի համար: Օրինակ, C-ի փոփոխությունները E-ում, G-ի ժամանակային դրոշմանիշի փոփոխությունները I-ում, O-ի ժամանակի փոփոխությունները Q-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուղղակի կապեցի վերը նշված առաջին կոդը՝ փոխելով բոլոր փոփոխականները VAR-ից VAR1/VAR2/VAR3 և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, կարելի է անել, եթե որևէ արժեք փոխվի, և ժամանակի դրոշմը թարմացվի միայն որոշակի բջիջում, ինչպիսին է A1-ը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Եթե ​​ցանկանում եք A1 բջիջում միշտ ցուցադրել ժամանակի դրոշմը, եթե որևէ արժեք փոխվի որոշակի տիրույթում: Հետևյալ VBA կոդը կարող է օգնել.

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xRg = Խաչմերուկ (Թիրախ, միջակայք («B1:D4»))
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Շրջանակ ("A1"). Արժեք = Հիմա()
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Կրիստալ, սա իսկապես լավ է, ինչպես կարող եմ ստանալ ժամանակի դրոշմակնի փոփոխություն յուրաքանչյուր համապատասխան տողում, երբ փոխվում է համապատասխան տողի բջիջների տիրույթից որևէ բջիջ: Ինչպես A2-ը, պետք է թարմացվի ժամանակի կնիքով, երբ որևէ փոփոխություն կատարվում է B2-ից մինչև H2 և այլն A3, A4 և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես Excel-ում ունեմ տվյալների բազա, որը պետք է հետևեմ, թե ինչ է փոխվել:
Հնարավո՞ր է փոփոխել կոդը այնպես, որ եթե 1-ին թերթում փոփոխություններ կատարվեն, այն կրկնօրինակի 2-րդ թերթի փոփոխված բջիջը և դրա կողքին տրամադրի ժամանակի կնիք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կներեք, չեմ կարող օգնել դրան: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ սրա համար: Ես օգտագործում եմ ոլորման կոճակները, որպեսզի ամեն անգամ առաջադրանք կատարելիս 1 ավելացնեմ իմ ընդհանուրին, բայց մակրոները չեն գրանցում կոճակների փոփոխությունները: Եվս մի քանի հետազոտություն կատարելուց հետո ես հասկացա, թե ինչպես կարելի է մակրո վերագրել իմ կառավարման կոճակներին և այժմ կարող եմ հետևել իմ փոփոխություններին!!!! Ես այն ավելի բարդ էի դարձնում, քան պետք էր, ահա թե ինչով ավարտեցի.


Ենթադրոշմ ()
'
Ժամացույցի մակրո
Ժամացույց ոլորման կոճակների վրա
'
'
Տարածք ("j2"). Արժեք = Հիմա()

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սա հիանալի է աշխատում, եթե ես ձեռքով փոխում եմ բջիջը, երբ պատճենում և տեղադրում եմ տեղեկատվությունը չի աշխատում: Ես փորձում եմ ունենալ այս ժամանակի դրոշմը ամեն անգամ, երբ ինչ-որ մեկը նոր տեղեկատվություն է տեղադրում: Բջջային տեղեկատվությունը մեկ առ մեկ փոխելու փոխարեն, այն պահվածքը, որը ես ուզում եմ գրավել, այն է, երբ տվյալները զանգվածաբար տեղադրվում են բազմաթիվ բջիջների համար: Ինչ-որ մեկը գիտի՞, թե ինչ պետք է անեմ:


Thanks,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ դրա համար, սակայն ժամանակի դրոշմը փոխվում է միայն այն դեպքում, եթե բջիջի արժեքը փոխվի «ձեռքով»: Եթե ​​այն փոխվել է մեկ այլ բջիջի փոփոխության պատճառով, և արժեքը փոխվում է որպես բանաձևի մաս, ժամանակի դրոշմ չկա: Սրա համար լուծում ունե՞ք։ շնորհակալություն Դենիս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Դենիս,
Կոդը թարմացվել է՝ լուծված խնդիրը։ Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Սա հենց այն է, ինչ ես փնտրում էի: Այնուամենայնիվ, ես մտածում էի, թե կարո՞ղ եք ինձ օգնել, որպեսզի այն աշխատի պաշտպանված աշխատաթերթով: Կարծես թե այն աշխատում է միայն չպաշտպանվածի վրա (երբ ժամանակի դրոշմը թարմացվում է արժեքի փոփոխության պատճառով որպես բանաձևի մաս, որը նման է Դենիսի խնդրանքին):

Շատ շնորհակալություն! Բասել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Սա կարող է աշխատել նաև պաշտպանված աշխատաթերթի վրա: Նախքան աշխատաթերթը պաշտպանելը նախապես պետք է ձևաչափեք փոխված բջիջները և ժամանակի դրոշմակնիքի բջիջները բացված կարգավիճակի: Խնդրում ենք կրկին փորձել: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,


Հնարավո՞ր է փոխել կոդը այնպես, որ մի քանի սյունակներում ցանկացած փոփոխություն ստեղծի նոր ժամանակի դրոշմ նույն բջիջում: Այսինքն, ես խմբագրում եմ A3, B3 կամ C3 բջիջներից որևէ մեկում և ժամանակի դրոշմակնիքը թարմացվում է հենց C4-ում:


Նաև, հնարավո՞ր է արդյոք ծածկագիրը կիրառել միայն թերթի որոշակի տիրույթի համար:


Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալեք
Խնդրում ենք փորձել ստորև բերված VBA կոդը: Շնորհակալություն մեկնաբանության համար։

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRRg, xRg As Range
Dim xRgArray որպես տարբերակ
Dim xStrCell որպես տող
Dim xSCRg որպես միջակայք
Dim xStrResult որպես տող
xRgArray = Զանգված ("A1:C10")
xStrCell = «A3, B3, C3»
xStrResult = «C4»
Ս.թ. սխալի Ռեզյումե Next

Եթե ​​Target.Cells.count > 1 Ապա Ելք Ենթ
xFNum-ի համար = LBound (xRgArray) Դեպի UBound (xRgArray)
Եթե ​​xRgArray(xFNum) <> "" Ապա
Սահմանել xRg = Range (xRgArray (xFNum))
Եթե ​​ոչ xRg-ը ոչինչ է, ապա
Սահմանել xSCRg = Null
Սահմանել xSCRg = xRg.Range (xStrCell)
xSCRg.Ընտրեք
Եթե ​​ոչ xSCRg-ը ոչինչ է, ապա
If Not Intersect (xSCRg, Target) ոչինչ է, ապա
Սահմանել xRRg = xRg.Range (xStrResult)
Եթե ​​xRRg-ը ոչինչ չէ, ապա դուրս եկեք Sub
xRRg.Value = Now()
Ելք For
Վերջ: Եթե
Վերջ: Եթե
Վերջ: Եթե
Վերջ: Եթե
Հաջորդ xFNum
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hey, հուսով եմ, որ դուք դեռ տեսնում եք սա !!! Ես օգտագործում եմ ստորև բերված կոդը C6-ում ժամանակի դրոշմակնիքի թարմացման համար, երբ C5-ը թարմացվում է: Խնդիրն այն է, որ երբ ես մնացած աշխատաթերթում եմ, ցանկացած անգամ, երբ ես սեղմում եմ enter կամ ներդիր, այն ինձ հետ է նետում C5: Մտքեր կա՞ն:

Dim xRRg, xRg As Range
Dim xRgArray որպես տարբերակ
Dim xStrCell որպես տող
Dim xSCRg որպես միջակայք
Dim xStrResult որպես տող
xRgArray = Զանգված ("C5:C6")
xStrCell = «C5»
xStrResult = «C6»
Ս.թ. սխալի Ռեզյումե Next

Եթե ​​Target.Cells.Count > 1 Ապա Ելք Ենթ
xFNum-ի համար = LBound (xRgArray) Դեպի UBound (xRgArray)
Եթե ​​xRgArray(xFNum) <> "" Ապա
Սահմանել xRg = Range (xRgArray (xFNum))
Եթե ​​ոչ xRg-ը ոչինչ է, ապա
Սահմանել xSCRg = Null
Սահմանել xSCRg = xRg.Range (xStrCell)
xSCRg.Ընտրեք
Եթե ​​ոչ xSCRg-ը ոչինչ է, ապա
If Not Intersect (xSCRg, Target) ոչինչ է, ապա
Սահմանել xRRg = xRg.Range (xStrResult)
Եթե ​​xRRg-ը ոչինչ չէ, ապա դուրս եկեք Sub
xRRg.Value = Now()
Ելք For
Վերջ: Եթե
Վերջ: Եթե
Վերջ: Եթե
Վերջ: Եթե
Հաջորդ xFNum
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հե՜յ, սա մի տեսակ նման է իմ պահանջներին, ես կցանկանայի, որ ժամանակի դրոշմը թարմացվի AG սյունակում, երբ թարմացվեն A-ի և AH-ի միջև եղած բջիջները:
Ես փորձեցի վերը նշված կոդը, բայց հաջողություն չունեցա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ մի նախագիծ, որի վրա աշխատում եմ, որը պարբերաբար թարմացնում եմ: Դա հիմնականում նախատեսված է միայն իմ աշխատակցի տեղեկություններին հետևելու համար, ինչպիսիք են հեռախոսահամարները, վարորդական իրավունքի ժամկետի ավարտը և այլն: Քանի որ ես այն հաճախ եմ թարմացնում, ես ուզում եմ ավտոմատ ժամանակի դրոշմ, որը գտնվում է իմ աշխատաթերթի վերևում կամ ներքևում, որը կթարմացվի այսօրվա ամսաթվով ամեն անգամ թարմացնել տեղեկատվությունը աղյուսակի ցանկացած տեղ: Ես ներկայումս օգտագործում եմ AN-ը և 1-42-ը, ուստի ինձ պետք է դրոշմակնիք M40-ի շուրջ: Ինչպե՞ս կանդրադառնա այդ կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բացեք Developer-ը և ձեր աշխատանքային գրքում ընտրեք Workbook-ը և BeforeSave իրադարձությունը:


Ենթակետում տեղադրեք կոդը՝ Range("M40").value = Now
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ժամացույցի ավելացումը շատ լավ է աշխատում և շատ օգտակար: Այնուամենայնիվ, ես սխալ եմ ստանում, երբ ես տող եմ ջնջում, քանի որ սկրիպտը չի կարող ժամանակի դրոշմը տեղադրել այն տողում, որն այլևս գոյություն չունի:


Շատ լավ կլինի, եթե ինչ-որ մեկը խորհուրդ տա, թե ինչպես լուծել դա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սանդեր,
Իմ դեպքում սխալ չկա: Կարո՞ղ եք ինձ ասել ձեր Excel տարբերակը: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Crystal, սա իսկապես լավ է, ինչպես կարող եմ ստանալ ժամանակի դրոշմակնի փոփոխություն յուրաքանչյուր համապատասխան տողում, երբ փոխվում է համապատասխան տողի բջիջների միջակայքից որևէ բջիջ: Օրինակ, A2-ը պետք է թարմացվի ժամանակի կնիքով, երբ որևէ փոփոխություն կատարվում է երկրորդ շարքում B2-ից մինչև H2, և նմանապես A3-ը ստանում է ժամանակի դրոշմ, երբ փոփոխությունները կատարվում են B3-ից մինչև H3, և այդպես շարունակվում է մինչև վերջին տողը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին

Նախապես շնորհակալություն օգնության համար:

Ինչպիսի՞ն պետք է լինի կոդը՝ X սյունակի բջիջի ընթացիկ ժամանակը թարմացնելու համար, եթե այդ տողում որևէ բջիջում փոփոխություն կա: Օրինակ՝ a2-ից w2 բջիջների արժեքների ցանկացած փոփոխություն, ապա ժամանակը պետք է լինի x2-ում թարմացնելու համար:


Նորից շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք ժամանակի կնիքի գործառույթը կշրջանցվի, եթե ձեր օգտագործած excel ֆայլը թարմացվող է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կոդը չի ապահովում կապի տվյալները: Ներողություն անհանգստության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարոնայք,

Արդեն մեկ ամիս է, ինչ փնտրում եմ նման լուծում: Թեև վերը նշված լուծումը կարծես OTM է, ես դա օգտագործում եմ ֆոնդային շուկայի համար:
Այսպիսով, ես ունեմ F սյունակ, որտեղ ես իրականացրել եմ Գնել/վաճառել ռազմավարությունը, և թերթիկը շարունակում է թարմացնել 1 րոպեն մեկ: Ես ունեմ T սյունակ, որտեղ ես ուզում եմ ժամանակի դրոշմը հետևյալ պայմանների հիման վրա.

(1) F սյունակ - ազդանշան է տալիս առք կամ վաճառք
(2) Սյունակ F - Փոփոխություններ գնումից վաճառքի կամ վաճառելու համար գնելու համար
(3) Սյունակ F - Փոփոխություններ գնում/վաճառքից դատարկի

Թեև ցանցում առկա ընդհանուր լուծումը կարծես թե աշխատում է (excel բանաձև), բայց երբ տվյալները թարմացվում են, այն հարվածում է ընթացիկ ժամանակը, քան ազդանշանի ժամանակը: Օրինակ, եթե ես ստանամ Գնել ժամը 9:15-ին, և եթե ընթացիկ ժամը 10:30-ն է, ես կտեսնեմ 10:30 ժամ T սյունակում (ազդանշանի ժամը) և ոչ թե 9:15 ժամ:

Ցանկացած օգնություն մեծապես գնահատելի կլինի:

Ջերմ բարեմաղթանքներ
JT
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
5/15/19|1:41 PM|John Smith|125B-1|10000000|Equipment|Staff|5/15/19|2:43 PM|Staff

Վերոնշյալ գրառումը ցույց է տալիս այն տվյալները, որոնք մուտքագրվում են տողում: Ես օգնություն էի փնտրում առաջին 2 սյունակները թարմացնելու համար, որոնք պարունակում են ժամանակի դրոշմ, երբ ID (10000000) սյունակը լրացվում է: Հնարավորության դեպքում կարո՞ղ են ժամանակային դրոշմանիշերը հանվել, եթե նույնականացման վկայականը նույնպես հանվի: Ինչ վերաբերում է վերջին 3 սյունակներին (ամսաթիվը|ժամը|աշխատակազմը) այդ ժամանակի դրոշմանիշները կարո՞ղ են թարմացվել, երբ վերջին սյունակը համալրված է անձնակազմի անունով: Ես փորձեցի խաղալ կոդի հետ, բայց VBA-ի հետ իմ գիտելիքների պակասը թույլ տվեց ինձ այդքան բան անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ,
Ես փորձում եմ ստեղծել մի ֆունկցիա, որտեղ եթե թարմացնեմ Թերթ 9-ի H9:L1-ի որևէ բջիջ, 2-րդ թերթի C2 բջիջի ժամանակի դրոշմը պետք է թարմացվի:
Այժմ ես պետք է դա անեմ Թերթ 100-ի մոտ 1 տողերի վրա (H10:L10, H11:L11) և թարմացնեմ համապատասխան C3, C4... Թերթ 2-ում:

Ցանկացած օգնություն մեծապես գնահատելի է: Շնորհավոր.!
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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