Ինչպե՞ս տեղադրել ընթացիկ ժամանակային դրոշմը, երբ 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- ում վերջին պահված ժամանակային դրոշմը աշխատանքային թերթիկի վրա:
- Ինչպե՞ս տեղադրել ժամանակի դրոշմը հատուկ բջիջի մեջ, երբ մակրոը գործարկվում է Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: