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]

 

[doveandrose]

cũng vui , chúc các bạn Giáng Sinh vui vẽ .

 

[Kiều Mạnh]

Máy mình bấm chạy mấy giây xong lỗi dòng code sau
DoEvents
Cho mớ code sau thay thế code đó nó chạy mỏi chân luôn..không phải cắm điện rút điện nữa ... mệt ra..

Option Explicit
Dim CountDown As Double
Public Sub Chay()
    Application.Calculate
    CountDown = Now + TimeValue("00:00:01")
    Application.OnTime CountDown, "Chay"
End Sub
Public Sub Auto_Open()
    Call Chay
End Sub

 

[khuongvietphong]

Cái này cũng ngộ ngộ í nhỉ. Cảm ơn bạn chủ thớt nhiều nghen

 

[SA_DQ]

Chúc Giáng sinh vui vẻ!

 

[kuldokk]

Nhà mình chắc câu được điện, khỏi cần tiết kiệm . Giáng Sinh vui vẻ

 

[ndu96081631]

Máy mình bấm chạy mấy giây xong lỗi dòng code sau
DoEvents

Tôi cũng bị lỗi tương tự. Thậm chí treo Excel luôn (phải Ctrl + Alt + Del để tắt)

 

[doveandrose]

Tôi cũng bị lỗi tương tự. Thậm chí treo Excel luôn (phải Ctrl + Alt + Del để tắt)

anh này không được đón Giáng sinh vui vẽ rồi . ha ha . em thấy cây thông đẹp mà , có bị sao đâu

 

[ndu96081631]

anh này không được đón Giáng sinh vui vẽ rồi . ha ha . em thấy cây thông đẹp mà , có bị sao đâu

Tôi đâu có biết! Lỗi thì thông báo cho tác giả tìm hiểu thôi
(code ai người nấy tự sửa)

 

[huuthang_bd]

Chơi vầy mới đẹp.

 

[ndu96081631]

Chơi vầy mới đẹp.

Đẹp thì có đẹp nhưng mà nó "đơ" quá. Code chạy là con chuột quay vòng vòng chẳng làm gì được cả

 

[khuongvietphong]

Chơi vầy mới đẹp.

Cho em hỏi cách sử dụng File này thế nào vậy. Em tải File về rồi mà đưa con chỏ chuột vào chữ Start sao nó không hiện lên con chỏ chuột hình mũi tên cho mình bấm nhỉ

 

[khuongvietphong]

Mọi người cho em hỏi sao em tải về mà không sử dụng được File của anh Huuthang vậy nhỉ

 

[ndu96081631]

Mọi người cho em hỏi sao em tải về mà không sử dụng được File của anh Huuthang vậy nhỉ

Bạn dùng phiên bản office nào? Tôi dùng Excel 2010 và Excel 2016 đều mở bình thường

 

[khuongvietphong]

Bạn dùng phiên bản office nào? Tôi dùng Excel 2010 và Excel 2016 đều mở bình thường

Con cho chú xem ảnh nè. Khi đưa chuột vào vùng chữ Start nó bị như vầy. Hình như nó vẫn hiện mũi tên 4 hướng thế này là không được rồi , con mới cài Office 2013 hay là có cần kích hoạt mục nào đó trong VBA không hả chú .

 

[ndu96081631]

Con cho chú xem ảnh nè. Khi đưa chuột vào vùng chữ Start nó bị như vầy. Hình như nó vẫn hiện mũi tên 4 hướng thế này là không được rồi , con mới cài Office 2013 hay là có cần kích hoạt mục nào đó trong VBA không hả chú .

Hay macro bị disable rồi?

 

[befaint]

Con cho chú xem ảnh nè. Khi đưa chuột vào vùng chữ Start nó bị như vầy. Hình như nó vẫn hiện mũi tên 4 hướng thế này là không được rồi , con mới cài Office 2013 hay là có cần kích hoạt mục nào đó trong VBA không hả chú .

Bạn kiểm tra lại mục Design Mode có đang kích hoạt không?


p/s: Nhân tiện chỉ cách chụp màn hình có chỏ chuột.
Vào Run gõ "PSR" rồi tự khám phá nhé (nếu dùng windows7 trở lên)
Problem Steps Recorder sẽ lưu một file .zip, trong đó có file .mht. Mở file .mht bằng IE rồi lấy gì thì lấy.

 

[khuongvietphong]

Hay macro bị disable rồi?

Là sao hả chú lúc đầu mở File con có Enable rồi mà.

 

[khuongvietphong]

Bạn kiểm tra lại mục Design Mode có đang kích hoạt không?
View attachment 153118View attachment 153118

Vẫn không được anh ơi. Khi em Click vào cái đó thì nó thế này:


Em phát hiện ra rằng mấy cái Code mà có liên quan đến cái :Private Sub CommandButton1_Click() thì hình như đều không chạy được hay sao ý. Không biết lý do làm sao....

 

[Kiều Mạnh]

Vẫn không được anh ơi. Khi em Click vào cái đó thì nó thế này:
View attachment 153135

Em phát hiện ra rằng mấy cái Code mà có liên quan đến cái :Private Sub CommandButton1_Click() thì hình như đều không chạy được hay sao ý. Không biết lý do làm sao....

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 đó.....