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

 Cum să creați o casetă de mesaj nu, înainte de a rula o macro în Excel?

În Excel, puteți declanșa direct o macrocomandă apăsând butonul F5 tasta sau faceți clic pe Alerga buton în Microsoft Visual Basic pentru aplicații fereastră. Dar, uneori, poate doriți să creați o casetă de mesaje care să întrebe utilizatorul dacă dorește să ruleze macro-ul. Dacă da, continuați să rulați codul, dacă nu, nu mai rulați codul. În acest articol, voi vorbi despre cum să creați o casetă de mesaj nu, înainte de a rula o macro în Excel.

Creați o casetă da nu, înainte de a rula o macrocomandă cu cod VBA


Creați o casetă da nu, înainte de a rula o macrocomandă cu cod VBA

Următorul cod VBA vă poate ajuta să adăugați o casetă prompt nu pentru a confirma dacă rulați o macro, vă rugăm să faceți pașii de mai jos:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

Cod VBA: creați o casetă de mesaj nu, înainte de a rula o macro:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

notițe: În codul de mai sus, vă rugăm să copiați și să lipiți propriul cod fără Sub îndreptare și End Sub subsol între Dacă CarryOn = vbDa atunci și Încheie dacă scripturi. Vedeți captura de ecran:

caseta de mesaj doc da nu macro 1

3. Apoi apăsați F5 , o casetă de prompt va apărea pentru a vă reaminti dacă doriți să rulați acest cod, faceți clic pe Da pentru a continua și faceți clic pe Nu să te oprești, vezi captura de ecran :

caseta de mesaj doc da nu macro 2


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (1)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sau folosiți acest cod deasupra și nu este nevoie să puneți întregul cod într-o propoziție if

CarryOn = MsgBox(„Doriți să rulați această macrocomandă?”, vbYesNo, „Kutools pentru Excel”)
Dacă CarryOn = vbNu, atunci
Ieșiți din Sub
Final, dacă
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL