Hỏi về kẻ khung border (1 người xem)

[matran25251325]

Đoạn code này nếu em muốn kẻ đường line ngang trong khung là nét mờ thì em phải bổ sung code thế nào?
With Sheets1
.[A11:S1000].ClearContents
.Range("A11:S1000").Borders.LineStyle = xlNone
If K Then
.[A11].Resize(K, 19).Value = Darr
.[A11].Resize(K, 19).Value = .[A11].Resize(K, 19).Value
.[A11].Resize(K, 19).Borders.LineStyle = xlContinuous
End If

 

[matran25251325]

Xin cho hỏi ngoài cách này còn cách nào ngắn hơn ko? và đường line đứt mờ nhất là số máy
With Sheets1
.[A11:S1000].ClearContents
.Range("A11:S1000").Borders.LineStyle = xlNone
If K Then
.[A11].Resize(K, 19).Value = Darr
.[A11].Resize(K, 19).Value = .[A11].Resize(K, 19).Value
.[A11].Resize(K, 19).Borders(xlEdgeLeft).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeTop).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeBottom).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeRight).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlInsideVertical).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlInsideHorizontal).LineStyle = 2

 

[mhung12005]

Xin cho hỏi ngoài cách này còn cách nào ngắn hơn ko? và đường line đứt mờ nhất là số máy
With Sheets1
.[A11:S1000].ClearContents
.Range("A11:S1000").Borders.LineStyle = xlNone
If K Then
.[A11].Resize(K, 19).Value = Darr
.[A11].Resize(K, 19).Value = .[A11].Resize(K, 19).Value
.[A11].Resize(K, 19).Borders(xlEdgeLeft).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeTop).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeBottom).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlEdgeRight).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlInsideVertical).LineStyle = xlContinuous
.[A11].Resize(K, 19).Borders(xlInsideHorizontal).LineStyle = 2

Theo mình thì đoạn code của bạn có thể sửa thành:

.....
If K Then
  With .[A11].Resize(K, 19)
    .Value = Darr
    .Borders.LineStyle = xlContinuous
  End With
End If

 

[matran25251325]

Nếu như code #3 thì đường ngang trong khung là nét liền anh ơi, Điều em hỏi là làm sao để đường ngang trong khung là nét đứt mỏng.

 

[mhung12005]

Nếu như code #3 thì đường ngang trong khung là nét liền anh ơi, Điều em hỏi là làm sao để đường ngang trong khung là nét đứt mỏng.

Muốn nét đứt thì bạn sửa lại chỗ này:

.....
If K Then
  With .[A11].Resize(K, 19)
    .Value = Darr
    .Borders.[COLOR=#ff0000]Weight = 1[/COLOR]
  End With
End If

 

[ptm0412]

If K Then
  With .[A11].Resize(K, 19)
    .Value = Darr
     On Error Resume Next 'truong hop k = 1'
        For i = 7 To 12
           .Borders(i).LineStyle = 1
           .Borders(i).Weight = IIf(i = 12, 1, 2)
        Next
  End With
End If

 

[matran25251325]

Của anh mhung2005 chưa chính xác lắm, của đại ka ptm0412 thì oke rồi. Em đang xem bài cũ của bác Ndu về vấn đề này, có vẻ code bác pmt giống như của bác ndu hướng dẫn nhỉ. Cảm ơn các anh nhiều.