300 ตัวอย่าง

แถบสถานะ

Statusbar

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





สถานการณ์:

วิธีค้นหาสถิติ f ใน excel

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





ตัวอย่างคุณสมบัติแถบสถานะ Excel VBA

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



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

ไม่มีผมเนื่องจาก จำนวนเต็ม, NSเนื่องจาก จำนวนเต็ม, pctComplเนื่องจาก จำนวนเต็ม

2. เพิ่ม วงคู่ .

สำหรับผม = 1ถึงยี่สิบ
สำหรับเจ = 1ถึง5

ต่อไปNS
ต่อไปผม

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

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

เซลล์(i, j).Value = WorksheetFunction.RandBetween(20, 100)

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

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = 'กำลังนำเข้าข้อมูล.. ' & pctCompl & '% เสร็จสมบูรณ์'

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

5. เราใช้วิธี Wait ของ Application object เพื่อจำลองมาโครที่มีความยาว

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

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

การจัดรูปแบบตามเงื่อนไขใน excel 2010 หลายเงื่อนไข
Application.StatusBar =เท็จ

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

ผลลัพธ์คุณสมบัติแถบสถานะ Excel VBA

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

2/4 สำเร็จ! เรียนรู้เพิ่มเติมเกี่ยวกับออบเจ็กต์แอปพลิเคชัน >
ไปที่บทถัดไป: ตัวควบคุม ActiveX



^