Giúp code tô màu Rectangle theo chu kỳ (1 người xem)

[congnguyen88]

Ví dụ mình vẽ 5 cái Rectangle, màu mặc định của nó là màu trắng, mình muốn khi mình Click vào cái Rectangle nào thì cái Rectangle đó sẽ có màu đỏ ( nhưng Đỏ 1 giây rồi Trắng 1 giây ), nhưng khi click cái nào thì 4 cái còn lại vẫn màu màu trắng bình thường. ý của mình là muốn người dùng Click vào nút bấm nào thì nút bấm sẽ chớp chớp ( Đỏ 1 giây, trắng 1 giây ) để cho họ biết họ đang chọn nút bấm nào, còn cái chuyện nút bấm đó xữ lý dữ liệu thì Code mình đã làm rồi. Mong các bạn giúp đở nhiệt tình

 

[ndu96081631]

Ví dụ mình vẽ 5 cái Rectangle, màu mặc định của nó là màu trắng, mình muốn khi mình Click vào cái Rectangle nào thì cái Rectangle đó sẽ có màu đỏ ( nhưng Đỏ 1 giây rồi Trắng 1 giây ), nhưng khi click cái nào thì 4 cái còn lại vẫn màu màu trắng bình thường. ý của mình là muốn người dùng Click vào nút bấm nào thì nút bấm sẽ chớp chớp ( Đỏ 1 giây, trắng 1 giây ) để cho họ biết họ đang chọn nút bấm nào, còn cái chuyện nút bấm đó xữ lý dữ liệu thì Code mình đã làm rồi. Mong các bạn giúp đở nhiệt tình

Trong file của bạn đang có 5 sub gán cho 5 Rectangles. Tôi có thể rút gọn 5 sub trên chỉ còn 1 sub duy nhất:

Sub Main()
  Sheet1.Rectangles.ShapeRange.Fill.ForeColor.SchemeColor = 9
  Sheet1.Shapes(Application.Caller).Fill.ForeColor.SchemeColor = 10
End Sub

Việc của bạn chỉ là chọn hết 5 Rectangles trên rồi Assign Macro cho sub Main là được
--------------------
Còn cái vụ "nhấp nháy" tự bạn suy nghĩ đi! (Trên GPE cũng có đầy code loại này)

 

[congnguyen88]

Trong file của bạn đang có 5 sub gán cho 5 Rectangles. Tôi có thể rút gọn 5 sub trên chỉ còn 1 sub duy nhất:

Sub Main()
  Sheet1.Rectangles.ShapeRange.Fill.ForeColor.SchemeColor = 9
  Sheet1.Shapes(Application.Caller).Fill.ForeColor.SchemeColor = 10
End Sub

Việc của bạn chỉ là chọn hết 5 Rectangles trên rồi Assign Macro cho sub Main là được
--------------------
Còn cái vụ "nhấp nháy" tự bạn suy nghĩ đi! (Trên GPE cũng có đầy code loại này)

Em làm hoài mà không được em mới lên đây nhờ anh giúp mà,anh giúp em dùm cái em đang cần,mong anh giúp em,em xin cảm ơn, và luôn luôn chúc anh mạnh khoẻ, nhiều tiền........huhuhihi