Làm thế nào để tự động kẻ một đường thẳng chéo trong bảng tính?

[duongdv]

Mình có một cái mẫu Hóa đơn GTGT như file đính kèm. Giả sử tại cột (B)-Tên hàng hóa dịch vụ mình chỉ chọn 03 mặt hàng, các hàng còn lại từ hàng từ hàng 19-->hàng 23 để trống. Làm thế nào để bẳng tính sẽ tự động vẽ một đường thẳng chéo qua các hàng còn lại ( Như trong file đính kèm). Bác nào biết chỉ giúp.

 

[ndu96081631]

Mình có một cái mẫu Hóa đơn GTGT như file đính kèm. Giả sử tại cột (B)-Tên hàng hóa dịch vụ mình chỉ chọn 03 mặt hàng, các hàng còn lại từ hàng từ hàng 19-->hàng 23 để trống. Làm thế nào để bẳng tính sẽ tự động vẽ một đường thẳng chéo qua các hàng còn lại ( Như trong file đính kèm). Bác nào biết chỉ giúp.

Gọi ý bạn đoạn code này:

  With Rng
    Sheet1.Shapes("Line 1").Top = .Top
    Sheet1.Shapes("Line 1").Left = .Left
    Sheet1.Shapes("Line 1").Width = .Width
    Sheet1.Shapes("Line 1").Height = .Height
  End With

Với Rng là vùng có chưa đoạn text Khong hang ---> Có thể dùng AutoFilter để xác định
Đại khái là thế, bạn làm thử xem, tôi nghĩ không phải là khó lắm
-----------
Nói thêm: File của bạn đầy virus