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

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

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

Տեղադրեք ամսաթվի դրոշմը բջիջի մեջ, եթե նշեք VBA կոդով վանդակը


Տեղադրեք ամսաթվի դրոշմը բջիջի մեջ, եթե նշեք VBA կոդով վանդակը

Այս բաժնում կներկայացվի VBA սցենար, որը կօգնի ձեզ ամսաթվային դրոշմակնիք ինքնաբերաբար մտցնել բջիջը, եթե Excel- ում նշեք վանդակը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Վանդակը տեղադրելուց հետո սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA կոդ. Տեղադրեք ամսաթվի դրոշմը բջիջի մեջ, եթե նշեք վանդակը

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

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

4. Աջ կտտացրեք վանդակը և ընտրեք Նշանակեք միկրո աջ կտտացնելու ցանկից: Տեսեք,

5. Մեջ Նշանակեք մակրո երկխոսության տուփ, ընտրեք Ստուգեք Box_Date_Stamp է Մակրո անուն տուփը, ապա կտտացրեք OK կոճակ Տեսեք,

Նշման վանդակը նշելու ժամանակ ամսաթվերի դրոշմակնիքն ավտոմատ կերպով կտեղադրվի հարակից վանդակում:


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (22)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա շատ օգտակար էր, ես կցանկանայի նշել, որ ավելի օգտակար եմ համարում նշել ամսաթվի կնիքը վանդակի ձախ կողմում: Դա անելու համար դուք պարզապես փոխեք օֆսեթը (, -1)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որևէ միջոց դա անելու ամսաթվի և ժամի հետ: Շնորհակալություն տեղեկատվության համար ամեն դեպքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub CheckBox_Date_Stamp() Dim xChk As CheckBox Set xChk = ActiveSheet.CheckBoxes(Application.Caller) With xChk.TopLeftCell.Offset(, 1) Եթե xChk.Value = xlOff Այնուհետեւ .Value = "" Else .Value Time End If End With End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Խնդրում ենք կիրառել ստորև VBA կոդը՝ ամսաթիվ և ժամ ավելացնելու համար:

Ստորագրման տուփ_ամսաթիվ_կնիք()
Dim xChk որպես վանդակ
Սահմանել xChk = ActiveSheet.Checkboxes (Application.Caller)
xChk.TopLeftCell.Offset-ով (, 1)
Եթե ​​xChk.Value = xlOff Այնուհետեւ
.Արժեք = ""
Ուրիշ
Արժեք = Հիմա()
Վերջ: Եթե
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ես փորձեցի այս բանաձևը և այն աշխատեց միայն A1-ի և B1-ի համար, երբ ես կիրառեցի մակրո-ն A1-ի վանդակում: Այնուամենայնիվ, երբ ես մակրո կիրառեցի A2-ի վանդակում, B2-ում ոչինչ տեղի չունեցավ: Նաև ինչպե՞ս կփոխվի բանաձևը, եթե ես ցանկանայի օգտագործել սա ստուգաթերթի համար: Եթե ​​A սյունակը վանդակներն էին, իսկ C սյունակը լրացման ամսաթիվը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև :) Դուք կարող եք պատճենել բջիջը A1-ի վանդակով մնացած սյունակում: կամ յուրաքանչյուր վանդակին առանձին նշանակել մակրո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Խնդրում ենք յուրաքանչյուր վանդակի առանձին հատկացնել մակրո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ճիշտ պատճենեցի և տեղադրեցի VBA կոդը, բայց իմ աղյուսակում ամսաթիվը հայտնվում է վերևի բջիջում և վանդակի սյունակի աջ կողմում, ոչ թե անմիջապես աջ կողմում գտնվող բջիջում: ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույնպես ունեմ ճիշտ նույն խնդիրը. «ՕԳՆՈՒԹՅՈՒՆ, ինձ ինչ-որ մեկի ՕԳՆՈՒԹՅԱՆ կարիքն ունի, ոչ թե որևէ մեկի ՕԳՆՈՒԹՅԱՆԸ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կոդն իմ դեպքում լավ է աշխատում։ Վանդակը ստուգելուց հետո ամսաթիվը կհայտնվի անմիջապես աջ կողմում գտնվող բջիջում: Կտրամադրե՞ք ձեր գործի սքրինշոթը: Իսկ Office-ի ո՞ր տարբերակն եք օգտագործում: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույն խնդիրն ունեի, երբ ամսաթվի և ժամի դրոշմակնիքը հայտնվում էր նախատեսված բջիջի վերևի բջիջում (օգտագործելով Excel 2007): Ես առաջ գնացի և փոխեցի «օֆսեթ» բանաձևը այնպես, որ այն անցնում է մեկ բջիջով և ներքև մեկ բջիջով, և այժմ դրոշմը հայտնվում է այնտեղ, որտեղ ես ուզում եմ. xChk.TopLeftCell.Offset(1, 1) հետ:
Ես թարմացնում եմ աշխատաթերթը, որը մեկ ուրիշը ստեղծել է և չի ստեղծել վանդակները, բայց դա կարող է կապված լինել այն բանի հետ, թե բջիջի ներսում որտեղ է դրված վանդակը: Ես տարբեր արդյունքներ ստացա, երբ վանդակը շարեցի բջիջի ներքևի մասում:

Հուսով եմ, որ օգնում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այն է, ինչ ես արել եմ այդ խնդիրը լուծելու համար

Ստորագրման տուփ_ամսաթիվ_կնիք()
Dim xChk որպես վանդակ
Սահմանել xChk = ActiveSheet.Checkboxes (Application.Caller)
xChk.TopLeftCell.Offset-ով (1, 1)
Եթե ​​xChk.Value = xlOff Այնուհետեւ
.Արժեք = ""
Ուրիշ
Արժեք = Հիմա()
Վերջ: Եթե
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Շնորհակալություն կոդի համար: Այն հիանալի աշխատում է օֆսեթում lil tweaking-ով: Այնուամենայնիվ, ես աշխատում էի մի թերթիկի վրա, որն ունի բազմաթիվ բազմաթիվ տողեր (~500+ տող), որը պարունակում է վանդակների բեռնվածություն, և ֆայլի չափը զգալիորեն մեծացավ: Չափը փոքրացնելու որևէ միջոց կա՞: Դա անելու այլընտրանքային միջոց կա՞:

Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ է
Եթե ​​տողերում կան բազմաթիվ վանդակներ, և դուք ցանկանում եք միաժամանակ գործել բոլոր վանդակների վրա, ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ:
Խնդրում ենք պատճենել ծածկագրերը մոդուլի կոդի պատուհանում, վերադառնալ աշխատաթերթ և ստեղծել կոճակ (օրինակ՝ կոճակ (ձևի վերահսկում)), վերագրել մակրո SetAllChkChange() կոճակին, այնուհետև սեղմել կոճակը՝ կոդը գործարկելու համար:

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

Sub SetAllChkChange ()
Dim xChks
Dim xChk որպես վանդակ
Dim xI այնքան երկար
Ս.թ. սխալի Ռեզյումե Next
Ջնջել xArrChk
Սահմանել xChks = ActiveSheet.Checkboxes
ReDim Պահպանել xArrChk (1 դեպի xChks.count)
xI = 1
Յուրաքանչյուր xChk-ի համար xChks-ում
xChk.Ընտրեք
Selection.OnAction = «ObjChkChange»
հաջորդ
Վերջ Sub


Sub ObjChkChange()
Dim xChk որպես վանդակ
Սահմանել xChk = ActiveSheet.Checkboxes (Application.Caller)
xChk.TopLeftCell.Offset-ով (, 1)
Եթե ​​xChk.Value = xlOff Այնուհետեւ
.Արժեք = ""
Ուրիշ
.Արժեք = Ամսաթիվ
Վերջ: Եթե
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող եմ ստանալ ամսաթվի կնիքը, որը կցուցադրվի իմ վանդակի տակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Կարծես չեմ կարողանում գտնել մի ճանապարհ, որտեղ ամսաթվի դրոշմը կլինի վանդակի կողքին: ես փորձեցի փոխել օֆսեթ արժեքը 0-ից, 1-ից և -1-ից: կարող եք օգնել ինձ այս հարցում: շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ենթադրելով, որ ձեր վանդակը գտնվում է A2-ում և ցանկանում եք մուտքագրել վանդակի աջ կողմում գտնվող ամսաթիվը (այս դեպքում դա B2 է), խնդրում ենք փոխել Offset արժեքը Offset (1, 1):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ VBA-ն վանդակի ժամանակի դրոշմանիշի համար, բայց առաջին երկու բջիջները ճիշտ չեն աշխատում: Իմ առաջին վանդակը A2-ում է, երբ ես նշում եմ վանդակը, ժամը փակցված է B1-ում: Ինչպես կարող եմ դա ուղղել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Steve,
Խնդրում ենք կոդի չորրորդ տողը փոխարինել With xChk.TopLeftCell.Offset(1, 1)-ով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն!! Փայլուն! Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ինչպե՞ս կարող եմ պտտել կոդը՝ սյունակում բոլոր վանդակները ներառելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Եթե ​​տողերում կան բազմաթիվ վանդակներ, և դուք ցանկանում եք միաժամանակ գործել բոլոր վանդակների վրա, ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ:
Խնդրում ենք պատճենել ստորև բերված ծածկագրերը Մոդուլի կոդի պատուհանում, վերադառնալ աշխատաթերթ և ստեղծել կոճակ (օրինակ՝ կոճակ (ձևի վերահսկում)), նշանակել մակրո SetAllChkChange () կոճակին, ապա սեղմեք կոճակը՝ կոդը գործարկելու համար:

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

Sub SetAllChkChange ()
«Թարմացվել է Extendoffice 20211130
Dim xChks
Dim xChk որպես վանդակ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xChks = ActiveSheet.Checkboxes
Յուրաքանչյուր xChk-ի համար xChks-ում
xChk.Ընտրեք
Selection.OnAction = «ObjChkChange»
հաջորդ
Վերջ Sub

Sub ObjChkChange()
Dim xChk որպես վանդակ
Սահմանել xChk = ActiveSheet.Checkboxes (Application.Caller)
xChk.TopLeftCell.Offset-ով (, 1)
Եթե ​​xChk.Value = xlOff Այնուհետեւ
.Արժեք = ""
Ուրիշ
.Արժեք = Ամսաթիվ
Վերջ: Եթե
Վերջ
Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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