Code kẻ border

[NguyenthiH]

Chào các anh chị!
Em có đoạn code nhập liệu từ Form, em muốn nhập liệu tới đâu thì kẻ Border tới đó, code như sau:

Private Sub CmLuu_Click()
Dim N As Long
    If TbDoc = "" Or TbCus = "" Then MsgBox ("Ban chua nhap DocKet hoac Khach Hang"), vbExclamation: Exit Sub

Application.ScreenUpdating = False 'giup code chay. nhanh hon
    irow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu
        Sheet1.Cells(irow + N, 1) = irow + N - 3
        Sheet1.Cells(irow + N, 2) = "'" & UCase(TbDoc)
        Sheet1.Cells(irow + N, 3) = UCase(TbSty)
        Sheet1.Cells(irow + N, 4) = UCase(TbCus)
        Sheet1.Cells(irow + N, 5) = Application.Proper(TbLab)
        Sheet1.Cells(irow + N, 6) = "'" & Application.Proper(TbFab)
        Sheet1.Cells(irow + N, 7) = Format(TbQty.Value, "#,##0")
        N = N + 1

'    Sheet1.Cells(irow, 1).Resize(N, 8).Borders.LineStyle = 1 <------bị lỗi vàng
TbDoc = "": TbSty = "": TbCus = "": TbLab = "": TbFab = "": TbQty = ""
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "GPE"
TbDoc.SetFocus
End Sub

Mong các anh chị giúp đỡ.

 

[selves037]

Chào các anh chị!
Em có đoạn code nhập liệu từ Form, em muốn nhập liệu tới đâu thì kẻ Border tới đó, code như sau:

Private Sub CmLuu_Click()
Dim N As Long
    If TbDoc = "" Or TbCus = "" Then MsgBox ("Ban chua nhap DocKet hoac Khach Hang"), vbExclamation: Exit Sub

Application.ScreenUpdating = False 'giup code chay. nhanh hon
    irow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu
        Sheet1.Cells(irow + N, 1) = irow + N - 3
        Sheet1.Cells(irow + N, 2) = "'" & UCase(TbDoc)
        Sheet1.Cells(irow + N, 3) = UCase(TbSty)
        Sheet1.Cells(irow + N, 4) = UCase(TbCus)
        Sheet1.Cells(irow + N, 5) = Application.Proper(TbLab)
        Sheet1.Cells(irow + N, 6) = "'" & Application.Proper(TbFab)
        Sheet1.Cells(irow + N, 7) = Format(TbQty.Value, "#,##0")
        N = N + 1

'    Sheet1.Cells(irow, 1).Resize(N, 8).Borders.LineStyle = 1 <------bị lỗi vàng
TbDoc = "": TbSty = "": TbCus = "": TbLab = "": TbFab = "": TbQty = ""
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "GPE"
TbDoc.SetFocus
End Sub

Mong các anh chị giúp đỡ.

Private Sub UserForm_Click()
Dim N As Long
    If TbDoc = "" Or TbCus = "" Then MsgBox ("Ban chua nhap DocKet hoac Khach Hang"), vbExclamation: Exit Sub

Application.ScreenUpdating = False 'giup code chay. nhanh hon
    irow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu
        Sheet1.Cells(irow, 1) = irow - 3
        Sheet1.Cells(irow, 2) = "'" & UCase(TbDoc)
        Sheet1.Cells(irow, 3) = UCase(TbSty)
        Sheet1.Cells(irow, 4) = UCase(TbCus)
        Sheet1.Cells(irow, 5) = Application.Proper(TbLab)
        Sheet1.Cells(irow, 6) = "'" & Application.Proper(TbFab)
        Sheet1.Cells(irow, 7) = Format(TbQty.Value, "#,##0")
      

    Sheet1.Cells(irow, 1).Resize(1, 8).Borders.LineStyle = 1
TbDoc = "": TbSty = "": TbCus = "": TbLab = "": TbFab = "": TbQty = ""
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "GPE"
TbDoc.SetFocus
End Sub

 

[darknightno007]

Chào các anh chị!
Em có đoạn code nhập liệu từ Form, em muốn nhập liệu tới đâu thì kẻ Border tới đó, code như sau:

Private Sub CmLuu_Click()
Dim N As Long
    If TbDoc = "" Or TbCus = "" Then MsgBox ("Ban chua nhap DocKet hoac Khach Hang"), vbExclamation: Exit Sub

Application.ScreenUpdating = False 'giup code chay. nhanh hon
    irow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu
        Sheet1.Cells(irow + N, 1) = irow + N - 3
        Sheet1.Cells(irow + N, 2) = "'" & UCase(TbDoc)
        Sheet1.Cells(irow + N, 3) = UCase(TbSty)
        Sheet1.Cells(irow + N, 4) = UCase(TbCus)
        Sheet1.Cells(irow + N, 5) = Application.Proper(TbLab)
        Sheet1.Cells(irow + N, 6) = "'" & Application.Proper(TbFab)
        Sheet1.Cells(irow + N, 7) = Format(TbQty.Value, "#,##0")
        N = N + 1

'    Sheet1.Cells(irow, 1).Resize(N, 8).Borders.LineStyle = 1 <------bị lỗi vàng
TbDoc = "": TbSty = "": TbCus = "": TbLab = "": TbFab = "": TbQty = ""
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "GPE"
TbDoc.SetFocus
End Sub

Mong các anh chị giúp đỡ.

Bạn thay bằng cái này xem.
Sheet1.Cells(irow+N, 1).Resize(1, 7).Borders.LineStyle = 1

 

[thuhuonglee]

Chào các anh chị!
Em có đoạn code nhập liệu từ Form, em muốn nhập liệu tới đâu thì kẻ Border tới đó, code như sau:

Private Sub CmLuu_Click()
Dim N As Long
    If TbDoc = "" Or TbCus = "" Then MsgBox ("Ban chua nhap DocKet hoac Khach Hang"), vbExclamation: Exit Sub

Application.ScreenUpdating = False 'giup code chay. nhanh hon
    irow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu
        Sheet1.Cells(irow + N, 1) = irow + N - 3
        Sheet1.Cells(irow + N, 2) = "'" & UCase(TbDoc)
        Sheet1.Cells(irow + N, 3) = UCase(TbSty)
        Sheet1.Cells(irow + N, 4) = UCase(TbCus)
        Sheet1.Cells(irow + N, 5) = Application.Proper(TbLab)
        Sheet1.Cells(irow + N, 6) = "'" & Application.Proper(TbFab)
        Sheet1.Cells(irow + N, 7) = Format(TbQty.Value, "#,##0")
        N = N + 1

'    Sheet1.Cells(irow, 1).Resize(N, 8).Borders.LineStyle = 1 <------bị lỗi vàng
TbDoc = "": TbSty = "": TbCus = "": TbLab = "": TbFab = "": TbQty = ""
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "GPE"
TbDoc.SetFocus
End Sub

Mong các anh chị giúp đỡ.

Như vầy có được không bạn ?
Có dữ liệu tại cột B thì sẽ kẻ khung

 

[truongvu317]

Như vầy có được không bạn ?
Có dữ liệu tại cột B thì sẽ kẻ khung

Dùng định dạng theo điều kiện cũng được, áp dụng cho bảng dữ liệu nhỏ thì thích hợp.