วิธีทำให้เซลล์แฟลชเป็นสีแดงใน Excel
โดยทั่วไปเราจะเน้นเซลล์ที่มีพื้นหลังที่แตกต่างกันเพื่อให้แตกต่างจากที่อื่น แต่ที่นี่ในบทความนี้ฉันแนะนำโค้ด VBA สามารถทำให้เซลล์เฉพาะกระพริบพร้อมพื้นหลังสีแดงเพื่อให้โดดเด่นใน Excel
ทำให้เซลล์เป็นสีแดงแฟลชด้วย VBA
ทำให้เซลล์เป็นสีแดงแฟลชด้วย VBA
สำหรับการทำให้เซลล์กระพริบตาเพื่อดึงดูดความสนใจของผู้ใช้นี่คือรหัส VBA
1. เปิดใช้งานแผ่นงานที่คุณต้องการแฟลชเซลล์แล้วกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล สคริปต์ ดูภาพหน้าจอ:
VBA: ทำให้เซลล์แฟลชเป็นสีแดง
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3 กด F5 คีย์และ Kutools for Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกเซลล์ที่คุณต้องการสร้างแฟลชดูภาพหน้าจอ:
4 คลิก OK. ตอนนี้เซลล์ที่เลือกถูกแฟลชด้วยพื้นหลังสีแดง
ทิปส์:
(1) ในรหัส VBA คุณสามารถเปลี่ยนสีพื้นหลังได้ (xสี = 3), ความเร็วในการกะพริบ (xSpeed = 0.6) และเวลากระพริบตา (ทำจนถึง xCount = 20) ตามที่คุณต้องการ.
(2) รหัส VBA นี้จะไม่เพิ่มพื้นหลังแฟลชในการเลือกที่ว่างเปล่า
(3) พื้นหลังแฟลชนี้จะถูกลบออกโดยอัตโนมัติหลังจากหมดเวลาว่าง
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
