Xin được giúp Em về Định dạng lại đường viền trong bảng (1 người xem)

[dangky47h]

Em có dử dụng code định dạng bảng trong diễn đàn, Code đó như sau:
Sub FormatCif()
Application.ScreenUpdating = False

Dim data(), i As Long, t, n As Long
t = Timer
n = [D65536].End(xlUp).Row
Range("A" & n + 1 & ":Z65536").Clear

With [A1:Z3]
.Borders(xlInsideVertical).LineStyle = 1
.Borders(xlEdgeTop).LineStyle = 1
.Borders(xlEdgeLeft).LineStyle = 1
.Borders(xlEdgeRight).LineStyle = 1
.Borders(xlInsideHorizontal).LineStyle = 2
End With
With [A2]
.NumberFormat = "00"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

[A2:Z2].Copy
Range("A3:Z" & n).PasteSpecial 4
[A1:Z2].Borders(xlInsideHorizontal).LineStyle = 1
Range("A" & n & ":Z" & n).Borders(xlEdgeBottom).LineStyle = 1

n = n - 1
ReDim data(1 To n, 1 To 1)
For i = 1 To n
data(i, 1) = i
Next
[A2].Resize(n).Value2 = data


Application.ScreenUpdating = True
MsgBox Timer - t
End Sub
Em muốn đường ở định dạng bảng thay đổi như hình ảnh sau:
Mong Các Thầy, Anh Chị giúp Em mới Ạ!

 

[SA_DQ]

Có khi ta cứ định dạng trước 1 số dòng đủ lớn nào đó;
Khi đỗ dữ liệu xong, ta chỉ việc ẩn các dòng đã định dạng nhưng đang không chứa dữ liệu đi.
Việc ẩn hiện & tìm những dòng có dữ liệu cuối trong 1 CSDL cũng dễ thực hiện mà.

Nói rằng có khi, có nghĩa là tùy thuộc vô dữ liệu nữa.
Nói thêm: Việc làm này có thể kèm thêm công thức tính tổng những cột cần nào đó đã được gán sẵn trước

 

[dangky47h]

Sub ToVieng() With Worksheets("Sheet1") .Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous .Range("A1").CurrentRegion.Borders(xlInsideHorizontal).Weight = xlHairline End With End Sub

Dạ! Cám ơn Thầy, Em mới về làm hồ sơ ở phòng chất lượng, bên công ty em có làm một số công trình bên QĐ Thầy ạ!

 

[vova2209]

Dạ! Cám ơn Thầy, Em mới về làm hồ sơ ở phòng chất lượng, bên công ty em có làm một số công trình bên QĐ Thầy ạ!

Bạn làm ở đâu thế! con gái mò mẫm cái này cũng giỏi đấy hì.. mình cũng làm giống bạn

 

[be_09]

Bạn làm ở đâu thế! con gái mò mẫm cái này cũng giỏi đấy hì.. mình cũng làm giống bạn

Địa chỉ ở đây: Đường Nguyên Hồng, Quận Đống Đa, Hà Nội.

 

[dangky47h]

Bạn làm ở đâu thế! con gái mò mẫm cái này cũng giỏi đấy hì.. mình cũng làm giống bạn

Em làm ở TP Ninh Bình Anh ạ! E cũng mới làm thôi, e học kinh tế nhưng giờ làm thêm cái này, cũng mới nên phải mò mới biết Anh ạ! có gì nhờ Anh Chị Giúp e ạ!

Bài đã được tự động gộp: 10/7/18

Bạn làm ở đâu thế! con gái mò mẫm cái này cũng giỏi đấy hì.. mình cũng làm giống bạn

Anh làm ở đâu ạ!

 

[vova2209]

Em làm ở TP Ninh Bình Anh ạ! E cũng mới làm thôi, e học kinh tế nhưng giờ làm thêm cái này, cũng mới nên phải mò mới biết Anh ạ! có gì nhờ Anh Chị Giúp e ạ!

Bài đã được tự động gộp: 10/7/18

Anh làm ở đâu ạ!

Tuyên Quang bạn nhé ^^! mình cũng đang phải nhờ anh chị giúp nhiều, có cái này làm nhàn đi nhiều, chân tay đỡ to hơn

 

[dangky47h]

Tuyên Quang bạn nhé ^^! mình cũng đang phải nhờ anh chị giúp nhiều, có cái này làm nhàn đi nhiều, chân tay đỡ to hơn

Vâng, nói chung E còn gà hi, nên cũng nhờ Thầy Cô và các Anh Chị chỉ bảo, có gì Anh giúp đỡ E nhé! hi