Excel กวดวิชาในสุทธิ / 300 ตัวอย่าง / คุณสมบัติ Excel VBA StatusBar

คุณสมบัติ Excel VBA StatusBar

คน คุณสมบัติ StatusBar ของแอพลิเคชันวัตถุใน Excel VBA สามารถใช้เพื่อระบุความคืบหน้าของแมโครที่มีความยาว ด้วยวิธีนี้คุณสามารถให้ผู้ใช้ทราบว่าแมโครยังคงทำงานอยู่

สถานการณ์:

มาโครที่เราจะสร้างเติม Range ("A1: E20") ด้วยตัวเลขสุ่ม

Excel VBA StatusBar ตัวอย่างคุณสมบัติ

เพิ่มบรรทัดรหัสต่อไปนี้ลงในปุ่มคำสั่ง:

1. ขั้นแรกเราจะประกาศตัวแปรสามประเภทของ Integer ชื่อ i, j และ pctCompl

Dim i As Integer, j As Integer, pctCompl As Integer

2. เพิ่ม Double Loop

For i = 1 To 20
For j = 1 To 5

Next j
Next i

เพิ่มบรรทัดรหัสต่อไปนี้ (ที่ 3, 4 และ 5) ลงในลูป

3. ใช้ฟังก์ชัน RandB Between เพื่อนำเข้าหมายเลขสุ่มระหว่าง 20 ถึง 100

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. เริ่มต้นตัวแปร pctCompl บรรทัดรหัสที่สองเขียนค่าของตัวแปร pctCompl และข้อความอธิบายในแถบสถานะ

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

ตัวอย่าง: สำหรับ i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11% เสร็จ

5. เราใช้วิธีการรอของวัตถุโปรแกรมประยุกต์เพื่อจำลองแมโครที่มีความยาว

Application.Wait Now + TimeValue("00:00:01")

6. ในการกู้คืนข้อความแถบสถานะเริ่มต้นให้ตั้งค่าคุณสมบัติแถบสถานะเป็นเท็จ (นอกลูป)

Application.StatusBar = False

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:

ผลลัพธ์คุณสมบัติ Excel VBA StatusBar

หมายเหตุ: คุณสามารถขัดจังหวะแมโครได้ตลอดเวลาโดยกด Esc หรือ Ctrl + Break สำหรับวิธีการที่มองเห็นได้มากขึ้นโปรดดูโปรแกรมตัวบ่งชี้ความคืบหน้าของเรา

อ่านเพิ่มเติมได้ที่: