Tạo Bảng Màu Thường Dùng

[chuot0106]

Ngứa tay quá nên nhào vô chơi tí. Thích màu nào thì cứ sửa lại màu của mấy cái shapes là được

Sub tomau()
With ActiveCell.Interior
   If .ColorIndex <> xlNone Then
      .Color = xlNone
   Else
      .Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB
   End If
End With
End Sub
Sub ChuNghieng()
With ActiveCell.Characters.Font
   If .ColorIndex <> 3 Then
      .ColorIndex = 3
      .Italic = True
   Else
      .ColorIndex = xlAutomatic
      .Italic = False
   End If
End With
End Sub

Code của anh hải chỉ áp tô màu cho 1 cell, có lẽ lên sửa lại chút cho linh hoạt hơn!

 

[Quang_Hải]

Code của anh hải chỉ áp tô màu cho 1 cell, có lẽ lên sửa lại chút cho linh hoạt hơn!

Chẳng qua là mình muốn ôn lại cái vụ Caller thôi. Không xài ắt sẽ quên mất.

 

[ndu96081631]

Chẳng qua là mình muốn ôn lại cái vụ Caller thôi. Không xài ắt sẽ quên mất.

Chính xác là cái Caller này chứ ai lại chơi mỗi shape mỗi code cho.. dở ẹc

 

[Takehi_JP]

Tks QuangHai, Tks Chuot.

2 bài so cool

 

[kbw1]

Làm thế nào để áp dụng cho các file excell khác các bạn?
Cho mình xin đoạn code được ko.
mấy cái shapes la cái gì vậy bạn?

 

[chuot0106]

Làm thế nào để áp dụng cho các file excell khác các bạn?
Cho mình xin đoạn code được ko.
mấy cái shapes la cái gì vậy bạn?

Bạn tải file về và nhập dữ liệu vào file đó thế là xong. Nhớ chừa dòng 1 ra nhé.