Xin code kẻ đường viền

[binhpc]

Mình có 1 file excel có nhiều sheet. Trong đó muốn kẻ đường viền 5 học sinh 1. Bác nào biết viết code thì xin chỉ giúp. Làm bằng tay lâ

u quá

 

[Hai Lúa Miền Tây]

Mình có 1 file excel có nhiều sheet. Trong đó muốn kẻ đường viền 5 học sinh 1(xin xem file gởi kèm). Bác nào biết viết code thì xin chỉ giúp. Làm bằng tay lâu quá

Bạn ghi lại Macro của động tác vừa kẻ khung đó rồi chỉnh sửa 1 tí rồi dùng Macro đó sử dụng cho lần sau.
Nếu muốn 1 lần mà kẻ cho cả Workbook thì phải dùng dòng lặp thôi. Nếu bạn có file ở đây thì hay quá.

 

[khoavu87]

Mình có 1 file excel có nhiều sheet. Trong đó muốn kẻ đường viền 5 học sinh 1. Bác nào biết viết code thì xin chỉ giúp. Làm bằng tay lâ

u quá

Cái yêu cầu bạn hỏi mình hiểu theo hai nghĩa:
1/ theo nghĩa tạo border cho tất cả các dòng, bạn dùng chức nangư ghi lại thao tác bạn làm như anh Dom đã nói.

Option Explicit
Private Sub CommandButton1_Click()
Sheet1.Range("a1:f20").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/ Theo nghĩa hai thì mình nghĩ bạn tạo đường viền bao quanh vùng dữ liệu thì bạn dùng code này:

Option Explicit
Sub duongvien()
Worksheets("sheet2").Range("a1:c20").BorderAround LineStyle:=xlDashDot, ColorIndex:=3, Weight:=xlThick
End Sub
''chi tiết xem ở sheet 1 và sheet2

híc sao hôm nay mình ko thấy cái hình để gửi file lên nhỉ? tìm mãi ko thấy đâu đành đưa lên Sh vậy
http://www.4shared.com/file/214109475/4c80faa0/Book2.html

 

[yeuthamhangxom]

Mình có 1 file excel có nhiều sheet. Trong đó muốn kẻ đường viền 5 học sinh 1. Bác nào biết viết code thì xin chỉ giúp. Làm bằng tay lâ

u quá

Cách đơn giản nhất cho bài toán của bạn và cũng là dành cho những ai chưa thạo về VBA là
bạn chọn 5 học sinh đó. ấn vào nút Record Macro. sau đó bạn thao thác kẻ như thế nào là tùy bạn. kẻ xong ấn nút Stop recording. Lúc này Macro đã được ghi. muốn thực hiện lại những thao tác như vậy cho 5 học sinh tiếp theo bạn chỉ cần chọn 5 học sinh tiếp theo ấn nút Runmacro là ok.
chúc vui