Làm thế nào để làm cho ô nhấp nháy màu đỏ trong Excel?
Nói chung, chúng tôi đánh dấu các ô có nền khác nhau để làm cho chúng nổi bật với những ô khác, nhưng ở đây, trong bài viết này, tôi giới thiệu một mã VBA có thể làm cho các ô cụ thể nhấp nháy với nền đỏ để nổi bật trong Excel.
Làm cho ô flash chuyển sang màu đỏ với VBA
Làm cho ô flash chuyển sang màu đỏ với VBA
Để làm cho các ô nhấp nháy nhấp nháy để thu hút sự chú ý của người dùng, đây là mã VBA.
1. Bật trang tính bạn muốn nhấp nháy các ô và nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào Mô-đun kịch bản. Xem ảnh chụp màn hình:
VBA: Làm cho ô flash màu đỏ
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. nhấn F5 chìa khóa và một Kutools cho Excel hộp thoại bật ra để chọn các ô bạn muốn tạo đèn flash, xem ảnh chụp màn hình:
4. nhấp chuột OK. Bây giờ ô được chọn đã được nhấp nháy với nền màu đỏ.
Lời khuyên:
(1) Trong mã VBA, bạn có thể thay đổi màu nền (xMàu = 3), tốc độ nhấp nháy (xSpeed = 0.6) và thời gian chớp mắt (Làm cho đến khi xCount = 20) như bạn muốn.
(2) Mã VBA này sẽ không thêm nền flash vào vùng chọn trống.
(3) Nền flash này sẽ tự động bị xóa sau khi kết thúc thời gian trống.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
