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

dangky47h · 9/7/18

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 Ạ!

be_09 · 9/7/18

dangky47h đã viết:
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:View attachment 199139
Mong Các Thầy, Anh Chị giúp Em mới Ạ!

Dữ liệu giả định thì đâu có gì bí mật mà không đưa cái File lên.
Ý là sao phải nêu rõ:
1/ Cột A:F nếu có chứa dữ liệu thì tô nét đứt.
2/ Cột A:F tiêu đề và vùng bao quanh dữ liệu thì tô nét liền, còn lại dữ liệu dưới tiêu đề thì tô nét đứt.

be_09 · 9/7/18

dangky47h đã viết:
Em có dử dụng code định dạng bảng trong diễn đàn, Code đó như sau:
Sub FormatCif()
..............................................................
Em muốn đường ở định dạng bảng thay đổi như hình ảnh sau:View attachment 199139
Mong Các Thầy, Anh Chị giúp Em mới Ạ!

Thử code vầy, coi đúng ý không?

Mã:

Sub TaoNetDut_ToViengDam()
    With Worksheets("Sheet2")
        .Range("A1:F1").Borders.LineStyle = xlContinuous
        .Range("A1").CurrentRegion.Offset(1).Borders.LineStyle = xlThin
        .Range("A1").CurrentRegion.BorderAround xlContinuous, xlThick
    End With
End Sub

hhoang_56 · 9/7/18

Vấn đề này cứ record macro là xong

dangky47h · 9/7/18

be09 đã viết:
Dữ liệu giả định thì đâu có gì bí mật mà không đưa cái File lên.
Ý là sao phải nêu rõ:
1/ Cột A:F nếu có chứa dữ liệu thì tô nét đứt.
2/ Cột A:F tiêu đề và vùng bao quanh dữ liệu thì tô nét liền, còn lại dữ liệu dưới tiêu đề thì tô nét đứt.

Hi tại cái file đó Em không lưu lại nên mất, em vừa làm lại file,
E chỉ muốn thay đổi đường nét đứt nằm ngang như trong file
Mong Thầy giúp E ạ!

dangky47h · 9/7/18

be09 đã viết:
Thử code vầy, coi đúng ý không?

Mã:

Sub TaoNetDut_ToViengDam() Sheets("Sheet2").Range("A1:F1").Borders.LineStyle = xlContinuous Sheets("Sheet2").Range("A1").CurrentRegion.Offset(1).Borders.LineStyle = xlThin Sheets("Sheet2").Range("A1").CurrentRegion.BorderAround xlContinuous, xlThick End Sub

View attachment 199156

E cám ơn Thầy, thầy xem file e gui giúp e ạ!

hhoang_56 · 9/7/18

dangky47h đã viết:
Hi tại cái file đó Em không lưu lại nên mất, em vừa làm lại file,
E chỉ muốn thay đổi đường nét đứt nằm ngang như trong file
Mong Thầy giúp E ạ!

Record macro được cái này

Mã:

Sub Macro2()
'
' Macro2 Macro
'
    Range("G14:I16").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlHairline
    End With
End Sub

dangky47h · 9/7/18

hhoang_56 đã viết:

Record macro được cái này

Mã:

Sub Macro2()
'
' Macro2 Macro
'
    Range("G14:I16").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlHairline
    End With
End Sub

Anh ơi sử dụng sao vậy ạ!
E làm như vậy và nhấn Run

thì k thây gì ạ!
Anh giúp E rõ hơn chút, em còn mới nên chưa biết hi

be_09 · 9/7/18

dangky47h đã viết:
E cám ơn Thầy, thầy xem file e gui giúp e ạ!

Tô viềng như File bài 8 thì code thế này:

Mã:

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

dangky47h · 9/7/18

be09 đã viết:
Tô viềng như hình như bài 1 thì code thế này:

Mã:

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

Vâng Em cám ơn Thầy

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

be09 đã viết:
Tô viềng như File bài 8 thì code thế này:

Mã:

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

Thầy ơi thầy giúp e xem lại file 67 e vừa đưa lên ở #8 với A! và thầy sửa giùm em cái đường nét đứt trong đó được k ạ (như trong file 67 em đã ghi ý ạ)
E cám ơn Thầy

be_09 · 9/7/18

dangky47h đã viết:
Vâng Em cám ơn Thầy
Thầy ơi thầy giúp e xem lại file 67 e vừa đưa lên ở #8 với A! và thầy sửa giùm em cái đường nét đứt trong đó được k ạ (như trong file 67 em đã ghi ý ạ)
E cám ơn Thầy

Nó y chang như File bài 9 chứ có gì khác đâu?

dangky47h · 9/7/18

be09 đã viết:
Nó y chang như File bài 9 chứ có khác gì đâu?

Dạ em tải nhầm hi, đây Thầy ạ!
Thầy giúp em thay đổi cái đường nét đứt nằm ngang (cho nó mảnh hơn ) như trong file ý Thầy
E cám ơn Thầy nhìu!

vova2209 · 9/7/18

Anh chị! cho em hỏi
Nên Sử dụng code để định dạng hay định đạng bằng Conditional Formatting

be_09 · 9/7/18

dangky47h đã viết:
Dạ em tải nhầm hi, đây Thầy ạ!
Thầy giúp em thay đổi cái đường nét đứt nằm ngang (cho nó mảnh hơn ) như trong file ý Thầy
E cám ơn Thầy nhìu!

Thay lại code này (em làm bên quân đội à).

Mã:

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

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

vova2209 đã viết:
Anh chị! cho em hỏi
Nên Sử dụng code để định dạng hay định đạng bằng Conditional Formatting

Nếu định đạng bằng Conditional Formatting sẽ làm tăng dung lượng File và sẽ làm File ì ạch, thí nghiệm thử với dữ liệu lớn với code thì sẽ rõ.

vova2209 · 9/7/18

be09 đã viết:
Thay lại code này:

Mã:

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

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

Nếu định đạng bằng Conditional Formatting sẽ làm tăng dung lượng File và sẽ làm File ì ạch, thí nghiệm thử với dữ liệu lớn với code thì sẽ rõ.

file của em đang định dạng hàng chục nghìn dòng cũng thấy chậm đi nhiều. Cảm ơn anh nhiều

be_09 · 9/7/18

hhoang_56 đã viết:
Vấn đề này cứ record macro là xong

Ba cái vụ tạo viềng mà Record macro là ra ra cả đống code.

batman1 · 10/7/18

Nặng hay nhẹ là một chuyện nhưng CF được sinh ra không phải để làm nặng hay làm nhẹ.

Vd. có ô A1 dùng công thức và ta muốn theo dõi giá trị của nó. Nếu >a thì đỏ, nếu >b thì xanh ... thì code thế nào? Chả nhẽ mở tập tin rồi cho chạy "đồng hồ", chốc chốc lại kiểm tra A1 để định dạng? Vì nếu A1 tham chiếu tới vd. Z1 thì khi Z1 thay đổi thì A1 thay đổi. Nhưng nếu ô chứa công thức thì không có Worksheet_Change để nhét code theo dõi vào đấy.

Chỉ nhìn thấy nặng nhẹ là không hiểu tại sao người ta lại "đẻ" thêm ra CF

vova2209 đã viết:
Anh chị! cho em hỏi
Nên Sử dụng code để định dạng hay định đạng bằng Conditional Formatting

Cũng tùy định dạng gì, trường hợp cụ thể thế nào. Một câu chung chung thế thì thánh cũng không trả lời được.

vova2209 · 10/7/18

batman1 đã viết:
Nặng hay nhẹ là một chuyện nhưng CF được sinh ra không phải để làm nặng hay làm nhẹ.

Vd. có ô A1 dùng công thức và ta muốn theo dõi giá trị của nó. Nếu >a thì đỏ, nếu >b thì xanh ... thì code thế nào? Chả nhẽ mở tập tin rồi cho chạy "đồng hồ", chốc chốc lại kiểm tra A1 để định dạng? Vì nếu A1 tham chiếu tới vd. Z1 thì khi Z1 thay đổi thì A1 thay đổi. Nhưng nếu ô chứa công thức thì không có Worksheet_Change để nhét code theo dõi vào đấy.

Chỉ nhìn thấy nặng nhẹ là không hiểu tại sao người ta lại "đẻ" thêm ra CF

Cũng tùy định dạng gì, trường hợp cụ thể thế nào. Một câu chung chung thế thì thánh cũng không trả lời được.

Dùng CF mỗi lần mình điền dữ liệu nó sẽ phải tính toán toàn bộ bảng tính thêm 1 lần nữa, còn dùng code thì cho hàm loại bỏ tính toán, em nghĩ vậy không biết đúng không?

batman1 · 10/7/18

vova2209 đã viết:
Dùng CF mỗi lần mình điền dữ liệu nó sẽ phải tính toán toàn bộ bảng tính thêm 1 lần nữa, còn dùng code thì cho hàm loại bỏ tính toán, em nghĩ vậy không biết đúng không?

Tôi đã nói rồi - tùy trường hợp.
Có cần theo dõi giá trị của ô đó không, định dạng có thay đổi theo giá trị của ô không. Còn nếu muốn định dạng cụ thể bất chấp giá trị, định dạng 1 lần cho tới ngày tận thế thì làm bằng tay - tất nhiên không dùng CF - hay bằng code thì là như nhau.

Có nhiều nguyên nhân dẫn tới làm tập tin nặng. Nhiều người tô son trát phấn cho tập tin như thể đó là búp bê, dùng định dạng vô tội vạ, tham chiếu thì cứ toàn bộ cột mà chơi, lạm dụng các hàm volatile ...

vova2209 · 10/7/18

batman1 đã viết:
Tôi đã nói rồi - tùy trường hợp.
Có cần theo dõi giá trị của ô đó không, định dạng có thay đổi theo giá trị của ô không. Còn nếu muốn định dạng cụ thể bất chấp giá trị, định dạng 1 lần cho tới ngày tận thế thì làm bằng tay - tất nhiên không dùng CF - hay bằng code thì là như nhau.

Có nhiều nguyên nhân dẫn tới làm tập tin nặng. Nhiều người tô son trát phấn cho tập tin như thể đó là búp bê, dùng định dạng vô tội vạ, tham chiếu thì cứ toàn bộ cột mà chơi, lạm dụng các hàm volatile ...

Vâng chuẩn! file e định dạng cột full luôn A:A nên chậm quá. cảm ơn a

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

Thành viên thường trực

Biên Hòa, Đồng Nai

Biên Hòa, Đồng Nai

Thành viên hoạt động

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên hoạt động

Thành viên thường trực

File đính kèm

Biên Hòa, Đồng Nai

File đính kèm

Thành viên thường trực

Biên Hòa, Đồng Nai

Thành viên thường trực

File đính kèm

Thành viên tích cực

Biên Hòa, Đồng Nai

File đính kèm

Thành viên tích cực

Biên Hòa, Đồng Nai

Thành viên gạo cội

Thành viên tích cực

Thành viên gạo cội

Thành viên tích cực

Facebook

Group