Excel ไม่ได้แสดงข้อความกะพริบหรือกะพริบเป็นตัวเลือกแบบอักษร อย่างไรก็ตาม การใช้ Visual Basic for Applications ในตัวของ Excel คุณสามารถใช้โค้ดเพื่อทำให้ข้อความเปลี่ยนสีทุกส่วนได้ โดยสร้างเอฟเฟกต์แบบกะพริบ
ขั้นตอนที่ 1
เปิดไฟล์ Microsoft Excel 2010 ที่คุณต้องการทำให้ข้อความกะพริบ กด "Alt" และ "F11" เพื่อเปิดคอนโซล VBA
วีดีโอประจำวันนี้
ขั้นตอนที่ 2
คลิกขวาที่รายการ "ThisWorkbook" ทางด้านซ้ายของคอนโซล VBA เลื่อนเมาส์ไปที่ "แทรก" และเลือก "โมดูล"
ขั้นตอนที่ 3
ดับเบิลคลิกที่ตัวเลือก "ThisWorkbook" คัดลอกโค้ดต่อไปนี้แล้ววางลงในช่องว่างด้านขวาของหน้าจอ:
สมุดงานย่อยส่วนตัว_Open() สิ้นสุดการกะพริบตา
สมุดงานย่อยส่วนตัว_ก่อนปิด (ยกเลิกเป็นบูลีน) NoBlink End Sub
รหัสนี้จะเริ่มต้นและข้อความกะพริบเมื่อคุณเปิดสมุดงานนี้ และหยุดข้อความที่กะพริบ เมื่อคุณปิดสมุดงาน เมื่อคุณใส่รหัสเพื่อบอก Excel ว่าที่จริงแล้ว Blink และ NoBlink คืออะไร หมายถึง.
ขั้นตอนที่ 4
ดับเบิลคลิก "โมดูล 1" จากรายการทางด้านซ้ายของหน้าจอ วางเคอร์เซอร์ของคุณไว้ที่ด้านขวาของหน้าจอและป้อนบรรทัดต่อไปนี้:
การนับเวลาสาธารณะเป็นสองเท่า
สิ่งนี้จะสร้างตัวแปรที่เรียกว่า "Timecount" ที่คุณสามารถใช้ได้ในทุกรูทีนย่อย
ขั้นตอนที่ 5
กด Enter เพื่อย้ายเคอร์เซอร์ไปที่บรรทัดถัดไปและป้อนรหัสต่อไปนี้:
ย่อยกะพริบ () ด้วย ThisWorkbook แผ่นงาน("Sheet1").Range("A1:A10")).Font If .ColorIndex = 3 แล้ว .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) แอปพลิเคชัน OnTime Timecount, "Blink",, True End Sub
ซึ่งจะสร้างรูทีนย่อยที่เรียกว่า "กะพริบ" ซึ่งจะทำให้ข้อความทั้งหมดภายในช่วงที่กำหนดกะพริบ คุณสามารถเปลี่ยนช่วงจาก "A1:A10" เป็นช่วงใดก็ได้ที่คุณต้องการ รวมทั้งเซลล์แต่ละเซลล์
ขั้นตอนที่ 6
กด "Enter" เพื่อเข้าสู่บรรทัดถัดไปและป้อนรหัสต่อไปนี้:
Sub noblink() สมุดงานนี้. แผ่นงาน("Sheet1")).ช่วง("A1:A10")).แบบอักษร ColorIndex = _ xlColorIndexAutomatic แอปพลิเคชัน การนับเวลาตรงเวลา "กะพริบ", สิ้นสุดย่อยเท็จ
ซึ่งจะสร้างรูทีนย่อยที่จะทำงานเมื่อคุณปิดเวิร์กบุ๊ก โดยจะเปลี่ยนข้อความทั้งหมดกลับเป็นสีดำ ดังนั้นผู้ที่เปิดเวิร์กบุ๊กโดยไม่เปิดใช้งานมาโครจะไม่เห็นสิ่งใดในกล่องข้อความโดยไม่ได้ตั้งใจ
ขั้นตอนที่ 7
ปิดคอนโซล VBA โดยคลิก "X" ที่มุมบนขวา คลิกแท็บ "ไฟล์" ที่ด้านบนของหน้าจอและเลือก "บันทึกเป็น" เลือก "เวิร์กบุ๊กที่เปิดใช้งาน Excel Macro" จากช่องแบบเลื่อนลงและพิมพ์ชื่อสำหรับเวิร์กบุ๊ก คลิก "บันทึก"
ขั้นตอนที่ 8
ปิดไฟล์ Excel แล้วเปิดใหม่อีกครั้ง ข้อความของคุณภายในช่วงที่กำหนดไว้ในมาโครจะเริ่มกะพริบ ขึ้นอยู่กับการตั้งค่าความปลอดภัยของคุณ คุณอาจต้องคลิกปุ่ม "เปิดใช้งานมาโคร" ที่ด้านบนของหน้าจอเพื่อดูข้อความกะพริบ