Code tạo đường kẻ màu (Border) (1 người xem)

[DMQ]

Các anh chị giúp em tạo đường kẻ (Border) màu với.
có phải là :

.Borders.LineStyle.CorlorIndex = mau Xanh

.

 

[dhn46]

Các anh chị giúp em tạo đường kẻ (Border) màu với.
có phải là :

.Borders.LineStyle.CorlorIndex = mau Xanh

.

Tại sao bạn không ghi Macro để chắt lọc lại phần bạn muốn?

 

[DMQ]

Sao em ghi Marcro:

.Borders.ThemeColor = 5

mà không được anh?

 

[phulien1902]

Các anh chị giúp em tạo đường kẻ (Border) màu với.
có phải là :

.Borders.LineStyle.CorlorIndex = mau Xanh

.

Bạn thử:

Sub abc()
  With Selection.Borders
        .LineStyle = xlContinuous
        .ColorIndex = 50
        .Weight = xlThin
    End With
End Sub

 

[DMQ]

Cám ơn bạn phulien1902, được rồi.
Bạn có thể cho mình biết số của các màu với:
ví dụ : màu xanh là 50, màu vàng, màu cam là bao nhiêu được không ah.

 

[dhn46]

Bạn đưa cả đoạn Code bạn ghi lên đây xem như thế nào nhé. Đã mất công tìm hiểu thì tìm hiểu từ cái dễ nhất đi lần sau ứng dụng cho nhanh.

 

[DMQ]

Cám ơn bạn hpkhuong nhiều.

 

[DMQ]

Dạ code em ghi đây ah:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B3:G22").Select
    Range("B22").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

 

[dhn46]

Bạn phải làm dần từng bước
Bước 1: Ghi
Bước 2: Xóa từ khóa không liên quan

Sub Macro1()
    Range("B3:G22").Select
    With Selection.Borders(xlEdgeLeft)
        .ThemeColor = 5
    End With
    With Selection.Borders(xlEdgeTop)
        .ThemeColor = 5
    End With
    With Selection.Borders(xlEdgeBottom)
        .ThemeColor = 5
    End With
    With Selection.Borders(xlEdgeRight)
        .ThemeColor = 5
    End With
    With Selection.Borders(xlInsideVertical)
        .ThemeColor = 5
    End With
    With Selection.Borders(xlInsideHorizontal)
        .ThemeColor = 5
    End With
End Sub

Bước 3: Cải tiến code như code bài #4

Như vậy nếu bạn làm đến bước 2 thì chắc bạn cũng chẳng cần hỏi bài #5 làm gì.
Những bước căn bản về ghi xóa Macro này tôi có minh họa tại link sau, bạn tham khảo

http://www.giaiphapexcel.com/diendan/threads/chia-s%E1%BA%BB-h%E1%BB%8Dc-vba-c%C4%83n-b%E1%BA%A3n-qua-h%C3%ACnh-%E1%BA%A3nh.125824/

 

[DMQ]

Dạ ý của em là sao làm theo Ghi Marcro (ThemeColor) thì lại không được,
còn dùng ColorIndex thì lại được.

 

[dhn46]

Dạ ý của em là sao làm theo Ghi Marcro (ThemeColor) thì lại không được,
còn dùng ColorIndex thì lại được.

Ai bảo bạn không được? Bạn chạy thử Code #10 xem

 

[be_09]

Các anh chị giúp em tạo đường kẻ (Border) màu với.
có phải là :

.Borders.LineStyle.CorlorIndex = mau Xanh

.

Thử code này:

Sub Macro1()
       Range("B3:G22").Borders.Color = vbBlue
End sub

Muốn màu gì khác thì dùng từ tiếng Anh thay vào chỗ màu xanh, ví dụ:
vbBlue (màu xanh biển).
vbGreen (màu xanh lá cây).
vbBlack (màu đen).
vbRed (màu đỏ).

 

[be_09]

Bài 13 dùng Borders với màu VB có cái thuận lợi là không cần phải nhớ số nào của màu nào, nhưng sẽ hạn chế về việc dùng từ ngữ để thể hiện màu sắc.

Để đa dạng về màu sắc, thông thường người ta dùng mã màu GRB.

Sub Mau_GRB()
    Range("B3:G22").Borders.Color = rgb(0, 0, 255)
End Sub

 

[be_09]

RGB là cụm từ viết tắt của 3 chữ Red Green Blue, gọi là 3 màu cơ bản, dùng kết hợp sẽ tạo ra các màu khác nhau.

Cách xác định mã màu GRB (của A4), xem hình: