Vui vẻ giáng sinh với cây thông Noel trong Excel (1 người xem)

[kuldokk]

Gửi tới mọi người cây thông Noel được treo đèn nhấp nháy. Chúc Giáng Sinh vui vẻ.

Nói qua cách làm:

1. Tô màu các cell cho cây thông như bình thường
2. Trong phần lá của cây, điền vào công thức

   =RANDBETWEEN(1,10)

3. Chọn toàn bộ vùng lá thông
4. Vào Conditional Formatting và chọn Shapes như trong video.
5. Cho "đèn nháy" bằng cách bấm F9 hoặc sử dụng code VBA bên dưới.

Code để chạy cây thông:

[COLOR=#011993][FONT=Menlo]OptionExplicit[/FONT][/COLOR]
[FONT=Menlo][COLOR=#011993]Dim[/COLOR] thoi_gian_chay[/FONT]
[FONT=Menlo][COLOR=#011993]Sub[/COLOR] cam_dien()[/FONT]
[FONT=Menlo]    Application.Calculate[/FONT]
[FONT=Menlo]    thoi_gian_chay = Now + TimeValue("00:00:01") * 0.5 ' sử 0.5 để chỉnh đèn nháy nhanh hay chậm, có thể bỏ qua giá trị này.[/FONT]
[FONT=Menlo]    Application.OnTime thoi_gian_chay, "cam_dien"[/FONT]
[FONT=Menlo]    DoEvents[/FONT]
[COLOR=#011993][FONT=Menlo]EndSub[/FONT][/COLOR]
[FONT=Menlo][COLOR=#011993]Sub[/COLOR] rut_dien()[/FONT]
[FONT=Menlo]    Application.OnTime thoi_gian_chay, "cam_dien", , [COLOR=#011993]False[/COLOR][/FONT]
[COLOR=#011993][FONT=Menlo]EndSub[/FONT][/COLOR]

Demo

[video=youtube;UrzcGRHic9E]https://www.youtube.com/watch?v=UrzcGRHic9E[/video]

 

[khuongvietphong]

Bạn thử thay cái mớ code bài 3 vào xem mỗi lần chạy nó quay tròn quay tròn hay lắm đó.....

Cảm ơn anh. Code của anh thì chạy ngon rồi.

 

[tueyennhi]

Hay ghê, vậy có kiểu nào mà nếu dữ liệu vượt quá cảnh báo thì tại cell chỉ định nó sẽ sáng dần lên rồi lại tắt giống như cái bóng đèn nhấp nháy, chu trình lặp đi lặp lại mà không hiện con chuột quay quay không anh chị?

Em sưu tập được cái này nó nháy chữ trong cell A1 nhưng mà chuột cứ quay quay theo dễ mỏi mắt.

Sub StartBlink()
    Dim xCell As Range
    Dim xTime As Variant
    Set xCell = Range("A1")
 
    With ThisWorkbook.Worksheets("Sheet2").Range("A1").Font
        If xCell.Font.Color = vbRed Then
            Application.Cursor = xlNorthwestArrow
            xCell.Font.Color = vbWhite
       
        Else
            xCell.Font.Color = vbRed
            Application.Cursor = xlNorthwestArrow
        End If
    End With
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Update: Em mới sưu tập được thêm Application.Cursor = xlNorthwestArrow dùng để tắt cập nhật chuột.
Mỗi tội nếu đang mở một file excel thì khi tắt file này nó lại tự mở lại ngay (
Nguồn:
https://www.extendoffice.com/documents/excel/3812-excel-blinking-text.html
https://www.mrexcel.com/forum/excel-questions/34492-stopping-mouse-pointer-flashing.html