Utilizați Excel și VBA pentru a crea o bară de progres.
O bară de progres este utilizată într-o aplicație de calculator pentru a indica progresul unei operații. De obicei, este un dreptunghi care este animat pe măsură ce o operație progresează. Visual Basic for Applications, sau VBA, este un limbaj de programare utilizat în aplicațiile Microsoft Office pentru a automatiza sarcinile de rutină și pentru a crea interfețe cu utilizatorul. Puteți crea cu ușurință o bară de progres folosind VBA în Microsoft Office Excel. Excel este o aplicație pentru foi de calcul inclusă în suita Microsoft Office.
Pasul 1
Deschideți Microsoft Office Excel, apoi apăsați „Alt” și „F11” pentru a deschide Editorul Visual Basic. Faceți clic dreapta pe „VBAProject”, apoi faceți clic pe „UserForm” pentru a insera un nou formular. Din meniul „Toolbox”, faceți clic pe „Etichetă”. În timp ce țineți butonul mouse-ului, trageți pe Formular pentru a crea un nou control de etichetă.
Videoclipul zilei
Pasul 2
Faceți clic dreapta pe etichetă și selectați „Proprietăți”, apoi schimbați „Înălțimea” la 42 și „Lățimea” la 12. Schimbați „Top” la 12. Creați încă nouă etichete folosind același proces.
Pasul 3
Faceți clic pe „CommandButton” în panoul „Toolbox” și adăugați un nou buton la formular. Faceți clic dreapta pe „CommandButton” și faceți clic pe „View Code” pentru a crea o nouă procedură.
Pasul 4
Introduceți următoarele pentru a crea o nouă variabilă și a defini valoarea acesteia:
Dim cnt Ca Integer cnt = 0
Pasul 5
Introduceți următoarele pentru a ascunde toate etichetele când pornește formularul:
Pe mine. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = Fals Pe mine. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = False
Pasul 6
Introduceți următoarele pentru a crea o buclă while și repetați de 10 ori în timp ce întrerupeți codul timp de 5 secunde:
Do While cnt <> 10
Selectați Case cnt Case Is = 1 Me. Label1.Visible = True Eu. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Eu. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Eu. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Eu. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = True Eu. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Eu. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Eu. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = True Eu. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = True Eu. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Eu. Label10.BackColor = vbBlue End Select. Pe mine. Aplicație de revopsire. Așteptați acum + TimeValue("00:00:05")cnt = cnt + 1
Buclă
Pasul 7
Faceți clic pe meniul „Inserare”, apoi faceți clic pe „Modul” pentru a adăuga un nou modul. Copiați și inserați codul de mai jos pentru a începe „UserForm1.”:
Sub showProgressBar() UserForm1.Show End Sub
Apăsați „F5” pentru a rula programul.
