Giúp code: Tự động gạch chéo các dòng trống sau khi chọn Target! (1 người xem)

[dongducnhiem]

Chào các bạn thành viên!
Nhờ các bạn viết giùm code Tự động gạch chéo các dòng trống sau khi chọn Cell Target là E4
Các dòng trống này có chứa cthức.
Xin xem mô tả trong File.
Xin cảm ơn!
---------
P/s: tôi đã tìm trên GPE nhưng không fù hợp, Vì trường hợp của tôi có chứa cthức trả về rỗng nên không gạch chéo được.

 

[nghiaphuc]

Chào các bạn thành viên!
Nhờ các bạn viết giùm code Tự động gạch chéo các dòng trống sau khi chọn Cell Target là E4
Các dòng trống này có chứa cthức.
Xin xem mô tả trong File.
Xin cảm ơn!
---------
P/s: tôi đã tìm trên GPE nhưng không fù hợp, Vì trường hợp của tôi có chứa cthức trả về rỗng nên không gạch chéo được.

1. Đổi tên cho cái đường kẻ của bạn thành "Gach", sau này bạn muốn trang trí cho nó thế nào tùy bạn, nhưng đừng đổi tên, ẩn hay xóa nó.
2. Sử dụng code sau cho sheet PN và sheet PX:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range 'Ô đầu tiên không có giá trị'
    If Target.Address <> "$E$4"  then Exit Sub
    On Error Resume Next
    Set Cll = [B12:B22].Find("*", [B12], xlValues, xlPart, , xlPrevious).Offset(1)
    If Cll Is Nothing Then Set Cll = [B12]
    With ActiveSheet.Shapes("Gach")
        .Top = Cll.Top
        .Left = Cll.Left
        .Height = Range(Cll, [B22]).Height
        .Width = Range(Cll, [B22]).Width
    End With
End Sub

Nếu bạn không thích 2 sheet PN, PX đều có đoạn code giống nhau như vậy thì có thể bỏ chúng đi và sử dụng code sau cho đối tượng ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Cll As Range 'Ô đầu tiên không có giá trị'
    If Sh.Name <> "PN" And Sh.Name <> "PX" Or Target.Address <> "$E$4" Then Exit Sub
    On Error Resume Next
    Set Cll = Sh.[B12:B22].Find("*", Sh.[B12], xlValues, xlPart, , xlPrevious).Offset(1)
    If Cll Is Nothing Then Set Cll = Sh.[B12]
    With ActiveSheet.Shapes("Gach")
        .Top = Cll.Top
        .Left = Cll.Left
        .Height = Range(Cll, Sh.[B22]).Height
        .Width = Range(Cll, Sh.[B22]).Width
    End With
End Sub

 

[ndu96081631]

Chào các bạn thành viên!
Nhờ các bạn viết giùm code Tự động gạch chéo các dòng trống sau khi chọn Cell Target là E4
Các dòng trống này có chứa cthức.
Xin xem mô tả trong File.
Xin cảm ơn!
---------
P/s: tôi đã tìm trên GPE nhưng không fù hợp, Vì trường hợp của tôi có chứa cthức trả về rỗng nên không gạch chéo được.

Đã code thì code luôn toàn bộ... Khi ấy ta sẽ xuất ra 1 phiếu vừa đủ, không có dòng trống nào bên dưới nên cũng sẽ không cần gạch chéo làm gì
Thêm nữa: Sao bạn chắc rằng 1 phiếu luôn chứa tối đa 11 dòng? ---> Lỡ như có trường hợp 1 phiếu chứa 15 dòng hoặc hơn nữa thì bạn tính sao?

 

[Quang_Hải]

Theo mình thì dùng code ẩn hết những dòng trống cho khỏe, tội gì phải nhức đầu thêm cái gạch chéo này

 

[dongducnhiem]

Đã code thì code luôn toàn bộ... Khi ấy ta sẽ xuất ra 1 phiếu vừa đủ, không có dòng trống nào bên dưới nên cũng sẽ không cần gạch chéo làm gì
Thêm nữa: Sao bạn chắc rằng 1 phiếu luôn chứa tối đa 11 dòng? ---> Lỡ như có trường hợp 1 phiếu chứa 15 dòng hoặc hơn nữa thì bạn tính sao?

1/ Trình độ của mình chưa thể viết code, chỉ có thể lập cthức như thế này thôi
2/ Trước đây tôi cũng có dùng code để "Ẩn dòng trống", vấn đề này tôi đã hỏi Ðề tài: [URL="http://www.giaiphapexcel.com/forum/showthread.php?67440-Code-ẩn-dòng-không-tác-dụng-trong-trường-hợp-này!"]Code ẩn dòng không tác dụng trong trường hợp này![/URL] nhưng đến nay tôi vẫn không hiểu tại sao máy tính của tôi không chịu hiểu!? Nếu dùng code "Loc", "Khong loc" của anh và các tác giả khác đã viết, thì sẽ mất nhiều động tác cho mỗi lần in fiếu (3 động tác)
3/ Tôi có khống chế số lượng dòng trên fiếu nhập, xuất không vượt quá 10 dòng (vĩ mỗi hóa đơn tài chính chỉ có 10 dòng đồng thời in vừa đủ khổ giấy A5)
Cảm ơn các bạn đã quan tâm & giúp đỡ.

 

[H_loc]

em cũng đang có thắc mắc về vấn đề gạch dưới này . xin tác giả hướng dẫn thêm cho em với nhe
http://www.giaiphapexcel.com/forum/showthread.php?72492-Xin-Gi%C3%BAp-em-ho%C3%A0n-th%C3%A0nh-PM-In-HD-VAT

 

[keke355992]

E bới mộ các bác thông cảm, cũng có yêu cầu như thế này, gà code quá nên k thể sửa đc, mọi người giúp với , k hiểu sao e k đính kèm đc file. sory mọi người

 

[keke355992]

E bới mộ các bác thông cảm, cũng có yêu cầu như thế này, gà code quá nên k thể sửa đc, Xin cảm ơn ạ