Rút gọn code

[daodlpc]

CÁc huynh giúp em làm gọn đoạn code này với.

ExcelBook.Sheets(1).Range("b14:s16").Borders.LineStyle = XlLineStyle.xlContinuous
ExcelBook.Sheets(1).Range("b19:s21").Borders.LineStyle = XlLineStyle.xlContinuous
ExcelBook.Sheets(1).Range("b24:s26").Borders.LineStyle = XlLineStyle.xlContinuous
ExcelBook.Sheets(1).Range("b29:n36").Borders.LineStyle = XlLineStyle.xlContinuous

 

[SA_DQ]

Mỗi dòng lệnh đều đem số ô như nhau ra kể khung, đó là số dòng luôn 3 & số cột luôn từ 'B' đến 'S'
(Riêng dòng cuối chỉ đến 'N', & số dòng tăng lên, ta fải thêm 1 anh If . . . Then nữa)

Bạn khai báo thêm 1 biến chạy Jj từ 14 cho đến 29 hay 30 gì đó, Step 5;

Nếu bạn thông thuộc fương thức Resize(3, 19) nữa thì câu lẹnh trông rất là xịn;
Còn không thì thêm 2 biến nữa để biểu thị dòng & cột cần định dạng kể khung là OK thôi

Chúc thành công!

 

[MinhCong]

Cũng có thể dùng phương thức UNION:

With Sheets(1)
    Union(.[b14:s16], .[b19:s21], .[b24:s26], .[b29:n36]).Borders.LineStyle = XlLineStyle.xlContinuous
End With

 

[sealand]

Bạn viết như sau

With Sheets(1)
Union(.[b14:s16], .[b19:s21], .[b24:s26], .[b29:n36]).Borders.LineStyle = XlLineStyle.xlContinuous
End With

Nhờ Mod xoá giùm vì giống bài trước.

 

[ndu96081631]

Thay chữ XlLineStyle.xlContinuous thành số 1 cho rồi

 

[thanhlanh]

Thay chữ XlLineStyle.xlContinuous thành số 1 cho rồi

Thầy làm trò phải suy nghĩ không biết số 1 là gì, "nát óc" một hồi cũng tìm ra, vui:

Sub Bord()
For i = 2 To 26 Step 2
Cells(i, 2).Value = i / 2
Cells(i, 2).Borders.LineStyle = i / 2
Next
End Sub

 

[ndu96081631]

Thầy làm trò phải suy nghĩ không biết số 1 là gì, "nát óc" một hồi cũng tìm ra, vui:

Đây là cách THÍ NGHIỆM hiệu quả nhất để tìm hiểu vấn đề (em cũng thường dùng cách này)
Ngoài ra còn cách khác:
- Alt + F11 rồi bấm F2
- Kéo thanh trượt và tìm từ khóa (ở bài này ta sẽ tìm từ khóa xlContinuous) để xem "nó" nói gì



Cách khác nữa:

Sub Test()
  MsgBox xlContinuous
End Sub