Բաց թողնել հիմնական բովանդակությունը

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

Excel-ի աշխատանքային գրքույկ օգտագործելիս դուք կարող եք հաճախ օգտագործել VBA սկրիպտներ՝ խնդիրները լուծելու համար: Եվ սցենարի գործարկման ընթացքում կհայտնվեն որոշ հաղորդագրությունների տուփեր: Որոշ դեպքերում, դուք կցանկանաք, որ որոշ նշված հաղորդագրությունների տուփերը ավտոմատ կերպով փակվեն որոշակի ժամանակ անց՝ ձեռքով փակելու փոխարեն: Այս հոդվածում մենք ձեզ ցույց կտանք հաղորդագրությունների տուփի ժմչփ ստեղծելու եղանակը՝ Excel-ում որոշակի ժամանակ անց հաղորդագրությունների տուփն ավտոմատ կերպով փակելու համար:

Ստեղծեք հաղորդագրության տուփի ժմչփ ՝ որոշակի ժամանակ անց հաղորդագրության տուփն ավտոմատ կերպով անջատելու համար


Ստեղծեք հաղորդագրության տուփի ժմչփ ՝ որոշակի ժամանակ անց հաղորդագրության տուփն ավտոմատ կերպով անջատելու համար

Այստեղ տրամադրվում է VBA սցենարի ձևանմուշ ՝ հաղորդագրության տուփի ժմչփ ստեղծելու համար:

Ենթադրենք, որ դուք աշխատում եք VBA սկրիպտով, բջջային արժեքի հիման վրա տողեր տեղափոխելու համար: Տեղափոխումը ավարտելուց հետո ձեզ հարկավոր է հաղորդագրությունների տուփ, որը հայտնվի ձեզ, որը կտեղեկացնի ձեզ, որ գործողությունը հաջող է, և այս հաղորդագրության տուփը պետք է ինքնաբերաբար փակվի 4 վայրկյան հետո (տես ստորև նշված սքրինշոթը): Խնդրում ենք հետևել ստորև նշված քայլերին:

1: բացել Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, և այնուհետև տեղադրեք VBA կոդը, որը ցանկանում եք օգտագործել բջջային արժեքի հիման վրա տողերը տեղափոխելու համար:

2. Պատճենեք հետևյալ VBA կոդը 1 և դրեք այն կոդի առաջ, որը ցանկանում եք գործել: Տես ստորև ներկայացված սքրինշոթը.

VBA կոդ 1:

Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
            ByVal xHwnd As LongPtr, _
            ByVal xText As String, _
            ByVal xCaption As String, _
            ByVal xMsgBoxStyle As VbMsgBoxStyle, _
            ByVal xwlange As Long, _
            ByVal xTimeOut As Long) _
    As Long

3. Պատճենեք ներքևում գտնվող VBA կոդը 2 և դրեք այն կոդի «End Sub» տողից առաջ, որը ցանկանում եք գործել:

VBA կոդ 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

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

4. Գործողությունը կատարելու համար ծածկագիրը գործարկելուց հետո կհայտնվի հաղորդագրության տուփ, որն այնուհետև ավտոմատ կերպով կփակվի որոշակի ժամանակից հետո (այս դեպքում՝ 4 վայրկյան):


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ufff... great!!... very good... thank you
This comment was minimized by the moderator on the site
Ufff... buenisimo!!... muy bien... gracias
This comment was minimized by the moderator on the site
Hi. Thanks for this - it's really useful. Is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
Hi thebankman,This is the default application system sounds in windows. You can turn it off as shown in the screenshot below.
This comment was minimized by the moderator on the site
Thanks Crystal. Much appreciated
This comment was minimized by the moderator on the site
Hi. is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
This comment was minimized by the moderator on the site
You are just perfect... :lol: :lol: :lol: 8) 8) 8)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations