ใช้ 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 Editor คลิกขวาที่ "VBAProject" จากนั้นคลิก "UserForm" เพื่อแทรกแบบฟอร์มใหม่ จากเมนู "กล่องเครื่องมือ" คลิก "ป้ายกำกับ" ขณะที่กดปุ่มเมาส์ค้างไว้ ให้ลากบนฟอร์มเพื่อสร้างตัวควบคุมป้ายชื่อใหม่
วีดีโอประจำวันนี้
ขั้นตอนที่ 2
คลิกขวาที่ป้ายกำกับและเลือก "คุณสมบัติ" จากนั้นเปลี่ยน "ความสูง" เป็น 42 และ "ความกว้าง" เป็น 12 เปลี่ยน "บน" เป็น 12 สร้างป้ายกำกับอีกเก้ารายการโดยใช้กระบวนการเดียวกัน
ขั้นตอนที่ 3
คลิก "CommandButton" บนบานหน้าต่าง "กล่องเครื่องมือ" และเพิ่มปุ่มใหม่ลงในแบบฟอร์มของคุณ คลิกขวาที่ "CommandButton" และคลิก "ดูโค้ด" เพื่อสร้างขั้นตอนใหม่
ขั้นตอนที่ 4
พิมพ์ต่อไปนี้เพื่อสร้างตัวแปรใหม่และกำหนดค่าของมัน:
Dim cnt As Integer cnt = 0
ขั้นตอนที่ 5
พิมพ์ข้อมูลต่อไปนี้เพื่อซ่อนป้ายชื่อทั้งหมดเมื่อแบบฟอร์มเริ่มต้น:
ผม. Label1.Visible = หลอกฉัน Label2.Visible = หลอกฉัน Label3.Visible = หลอกฉัน Label4.Visible = หลอกฉัน Label5.Visible = False ผม. Label6.Visible = หลอกฉัน Label7.Visible = หลอกฉัน Label8.Visible = หลอกฉัน Label9.Visible = หลอกฉัน Label10.Visible = False
ขั้นตอนที่ 6
พิมพ์คำสั่งต่อไปนี้เพื่อสร้าง a while loop และวนซ้ำ 10 ครั้งในขณะที่หยุดโค้ดชั่วคราวเป็นเวลา 5 วินาที:
ทำในขณะที่ cnt <> 10
Select Case cnt Case Is = 1 Me. Label1.Visible = ทรูมี Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = ทรูมี Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = ทรูมี. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = ทรูมี Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = ทรูมี Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = ทรูมี Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = ทรูมี Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = ทรูมี Label10.BackColor = vbBlue เลือกสิ้นสุด ผม. แอปพลิเคชันทาสีใหม่ รอเลย + TimeValue("00:00:05")cnt = cnt + 1
ห่วง
ขั้นตอนที่ 7
คลิกเมนู "แทรก" จากนั้นคลิก "โมดูล" เพื่อเพิ่มโมดูลใหม่ คัดลอกและวางโค้ดด้านล่างเพื่อเริ่ม "UserForm1" ของคุณ:
Sub showProgressBar() UserForm1.Show End Sub
กด "F5" เพื่อเรียกใช้โปรแกรมของคุณ
