จะทำให้รูปร่างกะพริบซ้ำๆ ใน Excel ได้อย่างไร?
หากคุณต้องการสร้างรูปร่างแฟลชอย่างต่อเนื่องในเวิร์กชีต บทความนี้จะแสดงวิธีการ
สร้างรูปร่างให้กระพริบซ้ำๆ ด้วยโค้ด VBA
สร้างรูปร่างให้กระพริบซ้ำๆ ด้วยโค้ด VBA
ในเวิร์กชีต หากต้องการสร้างเอฟเฟกต์รูปร่างกะพริบ โปรดทำดังต่อไปนี้
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส
รหัส VBA: ทำให้รูปร่างกระพริบซ้ำๆ ในเวิร์กชีต
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End Sub
หมายเหตุ : :
3 กด อื่น ๆ + Q เข้าด้วยกันเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
4. แทรกปุ่มลงในแผ่นงานโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่ม (การควบคุมแบบฟอร์ม) ดังภาพด้านล่างที่แสดง
5. ในการโผล่ขึ้นมา กำหนดมาโคร ใหเลือก แฟลช ใน ชื่อมาโคร จากนั้นคลิกที่ไฟล์ OK ปุ่ม
6. จากนั้นเปลี่ยนข้อความที่แสดงบนปุ่มตามที่คุณต้องการ ในกรณีนี้ฉันเปลี่ยนข้อความที่แสดงเป็นเริ่มกะพริบตามภาพด้านล่างที่แสดง
7. ทำซ้ำขั้นตอนที่ 4 และ 5 ด้านบนเพื่อใส่ปุ่มใหม่และกำหนดปุ่ม หยุดนะ มาโครไปที่ปุ่มนี้
8. เปลี่ยนข้อความที่แสดงของปุ่มใหม่นี้
จากนั้นคุณจะเห็นปุ่มสองปุ่มที่กำหนดด้วยมาโครที่แตกต่างกันถูกแทรกลงในแผ่นงาน ดูภาพหน้าจอ:
จากนี้ไปเมื่อคลิกที่ปุ่มเริ่มกะพริบรูปร่างจะเริ่มกะพริบด้วยสีที่ต่างกัน หากคุณต้องการหยุดแฟลชโปรดคลิกปุ่มหยุดกะพริบ
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!