Tặng các bạn File test các kiểu kẻ bảng bằng VBA. (1 người xem)

[TrungChinhs]

Ví dụ: kẻ nét liền tất cả các ô trong vùng chọn.

1. Nếu dùng Macro ghi lại ta được code như sau:

Sub Macro2()
    Range("H12:I13").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

2. Nếu viết gọn lại thì code trên chỉ còn là

Sub Macro1()
    [h12:i13].Borders.LineStyle = 1
End Sub

Vậy muốn kẻ các kiểu đường khác (trái, phải, trên, dưới, giữa đứng, giữa ngang, chéo ...và bao quanh) thì code viết như thế nào ?

Trong File test các kiểu kẻ bảng có một số câu lệnh mẫu để các bạn tùy chọn sử dụng.

Bạn lần lượt nhập số từ 1 đến 12 vào ô F12 (ô màu vàng) và kết thúc bằng Enter rồi quan sát bên cạnh để thấy kiểu đường kẻ. Khi bạn thấy kiểu nào phù hợp thì lấy số đó thay vào (...) trong câu lệnh mẫu nha.

Chú ý: các đường kẻ liền mới là đường cần kẻ còn đường kẻ chấm là đường hiển thị các ô chọn để dễ quan sát.

Chúc thành công !

 

[ndu96081631]

2. Nếu viết gọn lại thì code trên chỉ còn là

Sub Macro1()
    [h12:i13].Borders.LineStyle = 1
End Sub

Vậy muốn kẻ các kiểu đường khác (trái, phải, trên, dưới, giữa đứng, giữa ngang, chéo ...và bao quanh) thì code viết như thế nào ?

Trong File test các kiểu kẻ bảng có một số câu lệnh mẫu để các bạn tùy chọn sử dụng.

Bạn lần lượt nhập số từ 1 đến 12 vào ô F12 (ô màu vàng) và kết thúc bằng Enter rồi quan sát bên cạnh để thấy kiểu đường kẻ. Khi bạn thấy kiểu nào phù hợp thì lấy số đó thay vào (...) trong câu lệnh mẫu nha.

Chú ý: các đường kẻ liền mới là đường cần kẻ còn đường kẻ chấm là đường hiển thị các ô chọn để dễ quan sát.

Chúc thành công !

Anh thử chạy code này:

Sub Test3()
  ExecuteExcel4Macro ("BORDER(1,1,1,7,7,5,5)")
End Sub

(đương nhiên phải Select vùng nào đó trước khi chạy code)
Chạy xong, nhìn kết quả và xem thử với kết quả đó nếu viết bằng code VBA (không dùng Macro 4) thì anh sẽ viết thế nào?
Ẹc... Ẹc...

 

[hoanganhdl]

Sub Test3()
  ExecuteExcel4Macro ("BORDER(1,1,1,7,7,5,5)")
End Sub

Thầy hướng dẫn thêm chổ này đi thầy

 

[giaiphap]

Anh thử chạy code này:

Sub Test3()
  ExecuteExcel4Macro ("BORDER(1,1,1,7,7,5,5)")
End Sub

(đương nhiên phải Select vùng nào đó trước khi chạy code)
Chạy xong, nhìn kết quả và xem thử với kết quả đó nếu viết bằng code VBA (không dùng Macro 4) thì anh sẽ viết thế nào?
Ẹc... Ẹc...

Tôi thấy trên diễn đàn cũng nhiều người dùng rất nhiều lệnh về ExecuteExcel4Macro, nhưng tôi thì mù tịch về vấn đề này, bác có thể chia sẻ tài liệu về nó được không?

 

[phulien1902]

Tôi thấy trên diễn đàn cũng nhiều người dùng rất nhiều lệnh về ExecuteExcel4Macro, nhưng tôi thì mù tịch về vấn đề này, bác có thể chia sẻ tài liệu về nó được không?

Bác ndu chắc đi công cán nước ngoài rồi hay sao đấy, vì lâu rồi tôi không thấy bác ấy xuất hiện trên diễn đàn.

 

[chucuoi92]

Tôi thấy trên diễn đàn cũng nhiều người dùng rất nhiều lệnh về ExecuteExcel4Macro, nhưng tôi thì mù tịch về vấn đề này, bác có thể chia sẻ tài liệu về nó được không?

Trên GPE có mà
Bạn tìm Ở đây

Tải file MACRO4.0 về, các hàm có tất cả trong đó

 

[giaiphap]

Trên GPE có mà
Bạn tìm Ở đây

Tải file MACRO4.0 về, các hàm có tất cả trong đó

Mình không xem được file MACROFUN.HLP bạn ơi. Mở lên chẳng có gì cả.

 

[chucuoi92]

Mình không xem được file MACROFUN.HLP bạn ơi. Mở lên chẳng có gì cả.

Gô g đi bạn, có hướng dẫn đó.

 

[Kiều Mạnh]

Sub Test3()
  ExecuteExcel4Macro ("BORDER(1,1,1,7,7,5,5)")
End Sub

Thầy hướng dẫn thêm chổ này đi thầy

Thì bạn cứ bôi đen một khúc nào đó xong chạy code ... nó kẻ khung đẹp lắm đó
mà cứ thay đổi mấy số đó xong chạy code mà coi ...cũng hay
...code đó toàn số và số biết được cái đầu phải U mấy cục ..