Hỏi: Nhờ các Anh/Chị code để Textbox nhấp nháy (1 người xem)

[pro8x]

Như tiêu đề. Em nhờ các anh/Chị đoạn code để cho các Textbox Note trong sheet nhấp nháy đổi màu với ạ.

P/S: Tiện toppic cho em hỏi luôn sao trong code load ảnh lên file, có đoạn code xoá picture cũ trước khi load ảnh mới rồi, mà khi chạy nó lại k xoá nhỉ
Cụ thẻ các Thầy xem att

 

[Quang_Hải]

Như tiêu đề. Em nhờ các anh/Chị đoạn code để cho các Textbox Note trong sheet nhấp nháy đổi màu với ạ.

P/S: Tiện toppic cho em hỏi luôn sao trong code load ảnh lên file, có đoạn code xoá picture cũ trước khi load ảnh mới rồi, mà khi chạy nó lại k xoá nhỉ
Cụ thẻ các Thầy xem att

Mấy vụ nhấp nháy này ít ai quan tâm lắm vì chẳng thiết thực gì hết.
Nhưng mà muốn nháy cho nháy muốn nhấp cho nhấp
cho code này vào module rồi chạy coi nó nhấp nháy cho vui

Sub Nhapnhay()
Dim a, b, c
Randomize: a = Int((255 * Rnd) + 1)
Randomize: b = Int((255 * Rnd) + 1)
Randomize: b = Int((255 * Rnd) + 1)
ActiveSheet.Shapes("Rounded Rectangular Callout 1").Fill.ForeColor.RGB = RGB(a, b, c)
Application.OnTime Now + TimeValue("00:00:01"), "Nhapnhay"
End Sub

 

[pro8x]

Trước tiên xin cảm ơn thầy đã giúp code chạy rất OK ạ. Thầy có thể sửa thêm giúp em để tất cả đều nháy đc k ạ, vì hiện tại chỉ 1 cái nháy thôi

 

[Quang_Hải]

Trước tiên xin cảm ơn thầy đã giúp code chạy rất OK ạ. Thầy có thể sửa thêm giúp em để tất cả đều nháy đc k ạ, vì hiện tại chỉ 1 cái nháy thôi

Thôi không dám viết cho 2 cái kia đâu, treo máy là cái chắc.

 

[pro8x]

@@. Thế thầy xem giúp em vụ xoá ảnh trước khi load với

 

[ndu96081631]

@@. Thế thầy xem giúp em vụ xoá ảnh trước khi load với

Hỏi sang topic khác nhé! Hai chủ đề không liên quan gì nhau cả