Giúp code: Tự động gạch chéo phần còn trống hóa đơn VAT! (1 người xem)

[jb.aof47]

Mình có tự làm 1 phôi in hóa đơn VAT, và đang cố gắng càng đỡ thủ công càng tốt, nhưng đến phần gạch chéo phần còn trống thì không biết làm cách nào, vẫn phải vào Insert kẻ line thủ công. Bạn nào giúp mình code tự động gạch chéo phần còn trống được không. Thanks all!

 

[vu_tuan_manh_linh]

Có 1 giải pháp như thế này cho bạn:
1. Group 2 đường line thành 1 shape
2. Record macro để xem hiệu ứng thay đổi shape này khi thay đổi chiều cao của nó
3. Tùy chỉnh thông số chiều cao của shape tương ứng với chiều cao số dòng còn trống bằng 1 biến.

 

[phulien1902]

Mình có tự làm 1 phôi in hóa đơn VAT, và đang cố gắng càng đỡ thủ công càng tốt, nhưng đến phần gạch chéo phần còn trống thì không biết làm cách nào, vẫn phải vào Insert kẻ line thủ công. Bạn nào giúp mình code tự động gạch chéo phần còn trống được không. Thanks all!

Bạn tham khảo:
Bài viết này

 

[hoanganhdl]

Mình có tự làm 1 phôi in hóa đơn VAT, và đang cố gắng càng đỡ thủ công càng tốt, nhưng đến phần gạch chéo phần còn trống thì không biết làm cách nào, vẫn phải vào Insert kẻ line thủ công. Bạn nào giúp mình code tự động gạch chéo phần còn trống được không. Thanks all!

Chưa có thời gian xem file của bạn. Bạn tham khảo đoạn code trong phần in hóa đơn của mình

Sub gachcheo()

'Xoa duong cheo cu    
For Each shp In ActiveSheet.Shapes            
If shp.Type = 1 Then                
shp.Delete            
End If        
Next shp    
    
'Xac dinh dong cuoi cung trong phan noi dung        
Range("b19").Select        
Do Until Len(ActiveCell) = 0            
ActiveCell.Offset(1, 0).Select        
Loop        
If ActiveCell.Row < 28 Then     
   
'Ke duong ngang            
ActiveSheet.Shapes.AddConnector(1, ActiveCell.Offset(0, -1).Left, (ActiveCell.Top + ActiveCell.Offset(1, 0).Top) / 2, ActiveCell.Offset(0, 1).Left, (ActiveCell.Offset(0, 1).Top + ActiveCell.Offset(1, 0).Top) / 2).Select            
With Selection.ShapeRange.Line                
.Weight = 1                
.ForeColor.ObjectThemeColor = msoThemeColorText1            
End With 
           
'Ke duong cheo            
ActiveSheet.Shapes.AddConnector(1, ActiveCell.Offset(0, 1).Left, (ActiveCell.Offset(0, 1).Top + ActiveCell.Offset(1, 0).Top) / 2, Range("j21").Left, Range("j28").Top + Range("j28").Height).Select            
With Selection.ShapeRange.Line                
.Weight = 1                
.ForeColor.ObjectThemeColor = msoThemeColorText1            
End With                    
End If
End Sub

 

[huuthang_bd]

Mình có tự làm 1 phôi in hóa đơn VAT, và đang cố gắng càng đỡ thủ công càng tốt, nhưng đến phần gạch chéo phần còn trống thì không biết làm cách nào, vẫn phải vào Insert kẻ line thủ công. Bạn nào giúp mình code tự động gạch chéo phần còn trống được không. Thanks all!

Tôi ứng dụng hàm HideMeIf ở link sau:
http://www.giaiphapexcel.com/forum/...hàm-có-chức-năng-đặt-biệt&p=678386#post678386