გამოიყენეთ Excel და VBA პროგრესის ზოლის შესაქმნელად.
პროგრესის ზოლი გამოიყენება კომპიუტერულ აპლიკაციაში, რათა მიუთითოს ოპერაციის პროგრესი. ეს ჩვეულებრივ მართკუთხედია, რომელიც ანიმაციურია, როდესაც ოპერაცია პროგრესირებს. Visual Basic for Applications, ან VBA, არის კომპიუტერული პროგრამირების ენა, რომელიც გამოიყენება Microsoft Office Applications-ში რუტინული ამოცანების ავტომატიზაციისა და მომხმარებლის ინტერფეისის შესაქმნელად. თქვენ შეგიძლიათ მარტივად შექმნათ პროგრესის ზოლი VBA-ს გამოყენებით Microsoft Office Excel-ში. Excel არის ელცხრილების პროგრამა, რომელიც შედის Microsoft Office-ის კომპლექტში.
Ნაბიჯი 1
გახსენით Microsoft Office Excel, შემდეგ დააჭირეთ "Alt" და "F11" Visual Basic რედაქტორის გასახსნელად. დააწკაპუნეთ მაუსის მარჯვენა ღილაკით "VBAProject", შემდეგ დააჭირეთ "UserForm" ახალი ფორმის ჩასასმელად. "Toolbox" მენიუდან დააწკაპუნეთ "Label". მაუსის ღილაკზე დაჭერისას გადაიტანეთ ფორმა, რომ შექმნათ ახალი ლეიბლის კონტროლი.
დღის ვიდეო
ნაბიჯი 2
დააწკაპუნეთ მაუსის მარჯვენა ღილაკით ეტიკეტზე და აირჩიეთ "თვისებები", შემდეგ შეცვალეთ "სიმაღლე" 42-ზე და "სიგანე" 12-ზე. შეცვალეთ "Top" 12-ით. შექმენით კიდევ ცხრა ეტიკეტი იმავე პროცესის გამოყენებით.
ნაბიჯი 3
დააწკაპუნეთ "CommandButton"-ზე "Toolbox" პანელზე და დაამატეთ ახალი ღილაკი თქვენს ფორმას. დააწკაპუნეთ მარჯვენა ღილაკით "CommandButton" და დააჭირეთ "View Code" ახალი პროცედურის შესაქმნელად.
ნაბიჯი 4
ჩაწერეთ შემდეგი ახალი ცვლადის შესაქმნელად და მისი მნიშვნელობის განსაზღვრისთვის:
Dim cnt როგორც მთელი რიცხვი cnt = 0
ნაბიჯი 5
ჩაწერეთ შემდეგი, რათა დამალოთ ყველა ლეიბლი, როდესაც ფორმა იწყება:
მე. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = False მე. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = False
ნაბიჯი 6
ჩაწერეთ შემდეგი, რომ შექმნათ while მარყუჟი და გაიმეორეთ 10-ჯერ კოდის 5 წამის განმავლობაში შეჩერებისას:
Do while cnt <> 10
აირჩიეთ Case cnt Case Is = 1 Me. Label1.Visible = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Me. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Me. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = True Me. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End აირჩიეთ. მე. ხელახლა შეღებვის აპლიკაცია. დაელოდე ახლა + TimeValue ("00:00:05")cnt = cnt + 1
მარყუჟი
ნაბიჯი 7
დააწკაპუნეთ მენიუში "ჩასმა" შემდეგ დააჭირეთ "მოდულს" ახალი მოდულის დასამატებლად. დააკოპირეთ და ჩასვით ქვემოთ მოცემული კოდი თქვენი "UserForm1"-ის დასაწყებად:
Sub showProgressBar() UserForm1.Show End Sub
დააჭირეთ "F5" თქვენი პროგრამის გასაშვებად.
