Mìn và hoa

[kongcom]

Góp vui cùng GPE với hai menu trong file đính kèm . Hi vọng sẽ gíúp các bạn thư giãn chút xíu .

 

[anhtuan1066]

Hay.. nhưng code dài quá...
Này nhé... Nếu là tôi thì tôi sẽ làm như sau:
Tôi dự định chọn vùng cánh hoa và đặt name là HOA... nhưng do Excel ko cho phép đặt name với quá nhiều vùng rời rạc nên tôi chia thành 2 vùng HOA1 và HOA2
Quét chọn vùng thân và đặt name là THAN
Cuối cùng tôi chỉ cần 1 sub nhỏ là xong

Sub Hoa()
   Range("HOA1").Interior.ColorIndex = 3
   Range("HOA2").Interior.ColorIndex = 3
   Range("THAN").Interior.ColorIndex = 50
End Sub

Phần còn lại bạn có thể tự sửa theo hướng này...
Xem file
ANH TUẤN

 

[kongcom]

Nhưng sau khi làm như AT thì Hoa nở nhanh quả không thấy nó vươn lên ??? Làm code "dài "cũng có cái hay của nó chứ AT ?

 

[SA_DQ]

Muốn hoa nở chậm ư, mình giúp cho!

Bạn ghi dòng này lên phần khai báo biến

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Và viết thêm 1 macro để thay toàn bộ các dòng tô màu của bạn
dạng : 1

 Range("AA18").Activate
     Selection.Interior.ColorIndex = 50

dạng 2:

    With Selection.Interior
          .ColorIndex = 3:                    .Pattern = xlSolid
      End With

bằng Sub sau

Sub ToMau(Rng As Range, ChiSo As Byte)
 Dim lJ As Long, lZ As Single
    Sleep 150
    With Rng.Interior
        .ColorIndex = ChiSo:                   .Pattern = xlSolid
    End With
End Sub

Xem thêm trong file gởi kèm!

Chú í 1: số 150 hay lớn bé tùy thuộc vô máy của bạn@
Chú í 2: Lần sau bạn nén file lại, để tiết kiệm tài nguyên chung!

Thân ái!

 

[kongcom]

Đấy ! Vừa chạy marco vừa ngắm hoa nở có phải là thư giãn không nào ? Ha ha !!!! . Sức mạnh tập thể GPE hãy vẽ lên những bông hoa đẹp hơn nữa ....và không phải "quả mìn" như tôi làm mà sẽ phải là những bông pháo hoa nở giữa bầu trời GPE các bạn nhé ?

Trong File mới có chức năng Xoá cho bạn thưởng thức lại thanh menu ....kéo dài cái sự sung sướng ra một chút với Hoa version2

 

[anhtuan1066]

Món này tôi đang nghĩ nếu làm bằng dạng biểu đồ động sẽ tuyệt hơn nhiều đấy!
ANH TUẤN

 

[kongcom]

Hoa Versions 3

Hôm nay hoàn thiện Hoa Versions 3 Post lên mời bà con thưởng thức và cùng góp sức cho chủ đề ngày càng vui hơn . Quả thực tôi cũng không ngờ Excel lại có thể làm nên những điều kì diệu như thế . Mong các cao thủ hãy giúp tôi hoàn thiện trò chơi của mình .