Mình đã lập Code tự động in ra phiếu xuất kho, nhưng không biết cách nào để tự động gạch chéo các dòng trống còn lại trên phiếu xuất. Nhờ các A/C trên diễn đàn hướng dẫn giúp. Mình xin cám ơn. Yêu cầu ở trong File gửi kèm.
Giúp code gạch chéo các dòng trống trên phiếu xuất
- Thread starter hanhpptc
- Ngày gửi
- Tham gia
- 4/11/07
- Bài viết
- 14,518
- Được thích
- 37,219
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
PHP:
Sub Resize()
endr = ActiveSheet.[a20].End(xlUp).Row + 1
With ActiveSheet.Shapes("Line 1")
.Top = Cells(endr, 2).Top
.Left = Cells(endr, 2).Left
.Height = Cells(17, 4).Top - Cells(endr, 2).Top
.Width = Cells(17, 4).Left - Cells(endr, 2).Left
End With
End Sub
Upvote
0
huonglanngoc0001
Thành viên mới
- Tham gia
- 15/11/13
- Bài viết
- 30
- Được thích
- 4
mình mình mới bát đầu tìm hiểu nên cũng không rõ vấn đề cho lắm, nhung cũng có cùng mục đáich muốn gạch phần trống, có thể nhờ AC chỉ giúp mình gạch ở file không? cám ơn nhiều
Upvote
0
huonglanngoc0001
Thành viên mới
- Tham gia
- 15/11/13
- Bài viết
- 30
- Được thích
- 4
giúp mình với mình làm mã mà không được trong file của mình từ ô a9:j20 điều có công thức, mình muốn gạch chéo phần trống bắt đầu từ cột g không có dữ liệu đến cuối cột j thì làm sao mong có bạn giúp đỡ . do file có nhiều liên kết nên mình chỉ copy gia trị sheet mình muốn làm thôi. dũ liệu mình lọc dự vào ô k2, đô k2 thay đõi dũ liệu nội dung sẽ thay đổi theo, có nghĩ đưocngf gạch sẽ thay đổi
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,589
- Được thích
- 22,911
- Nghề nghiệp
- U80
Thì bạn sửa lại macro trên như sau
Chú í:
Cột bắt đầu từ [b9] là bạn nhập công thức để hiện số thư tự =IF(C9="","",1)
Tại [B10]: =IF(C10="","",1+B9)
& sau đó FillDown đến dòng 19
Tên của Shapes thích ứng với mũi tên của bạn
Những mong là khỏi đưa file lên; Mà bạn giả lập trang tính khác đưa lên không được hay sao mà cứ fải . . . .
PHP:
Option Explicit
Sub Resize()
Dim Endr As Long, Cls As Range
Endr = ActiveSheet.[B25].End(xlUp).Row
For Each Cls In Range("B9:B" & Endr)
If Cls.Value = "" Then Exit For
Next Cls
With ActiveSheet.Shapes("AutoShape 3")
.Top = Cells(Cls.Row, 3).Top
.Left = Cells(Cls.Row, 3).Left
.Height = Cells(20, 9).Top - Cells(Cls.Row, 2).Top
.Width = Cells(20, 9).Left - Cells(Cls.Row, 2).Left
End With
End SubChú í:
Cột bắt đầu từ [b9] là bạn nhập công thức để hiện số thư tự =IF(C9="","",1)
Tại [B10]: =IF(C10="","",1+B9)
& sau đó FillDown đến dòng 19
Tên của Shapes thích ứng với mũi tên của bạn
Những mong là khỏi đưa file lên; Mà bạn giả lập trang tính khác đưa lên không được hay sao mà cứ fải . . . .
Lần chỉnh sửa cuối:
Upvote
0
huonglanngoc0001
Thành viên mới
- Tham gia
- 15/11/13
- Bài viết
- 30
- Được thích
- 4
Option Explicit
Sub Resize()
Dim Endr As Long, Cls As Range
Endr = ActiveSheet.[B25].End(xlUp).Row
For Each Cls In Range("B9:B" & Endr)
If Cls.Value = "" Then Exit For
Next Cls
With ActiveSheet.Shapes(gach)
.Top = Cells(Cls.Row, 3).Top
.Left = Cells(Cls.Row, 3).Left
.Height = Cells(20, 9).Top - Cells(Cls.Row, 2).Top
.Width = Cells(20, 9).Left - Cells(Cls.Row, 2).Left
End With
End Sub
không biết có gì sai sót ko mà vẫn không hiẽn thì được gì hết, có phải nếu mình muốn đổi tên shap thì click chuột phải chọn assign macro, trong ô macro name xó hết nhập mỗi từ gach khong vậy, là làm mà chưa thấy có hiệu ứng gì thế?
Sub Resize()
Dim Endr As Long, Cls As Range
Endr = ActiveSheet.[B25].End(xlUp).Row
For Each Cls In Range("B9:B" & Endr)
If Cls.Value = "" Then Exit For
Next Cls
With ActiveSheet.Shapes(gach)
.Top = Cells(Cls.Row, 3).Top
.Left = Cells(Cls.Row, 3).Left
.Height = Cells(20, 9).Top - Cells(Cls.Row, 2).Top
.Width = Cells(20, 9).Left - Cells(Cls.Row, 2).Left
End With
End Sub
không biết có gì sai sót ko mà vẫn không hiẽn thì được gì hết, có phải nếu mình muốn đổi tên shap thì click chuột phải chọn assign macro, trong ô macro name xó hết nhập mỗi từ gach khong vậy, là làm mà chưa thấy có hiệu ứng gì thế?
Upvote
0
huonglanngoc0001
Thành viên mới
- Tham gia
- 15/11/13
- Bài viết
- 30
- Được thích
- 4
umk file này mình có xem ùi chỉ là không biết làm thôi, thì ý mình cũng tương tự vậy mà
Upvote
0
hivilee
Thành viên mới
- Tham gia
- 24/1/17
- Bài viết
- 9
- Được thích
- 1
mình dùng code của bạn cho file của mình nhưng không được. Mình thấy nếu xóa line trong file của bạn và thay bằng line khác thì nó cũng không hoạt động được.
Làm ơn giải thích giúp mình với.
Với code này chỉ làm được line trong một cột , có cách nào để line gạch được qua các cột không ạ?
=> đã hiểu cách làm.
Hơi thủ công vì phải vẽ hết các trường hợp
Lần chỉnh sửa cuối:
Upvote
0
Bạn ơi, mình copy code và thay lại thông tin và tên sheet cho phù hợp với file của mình nhưng cũng không được, bị báo lỗi sau. Bạn chỉ giúp mình với, tks! (Mình dùng Office 2013)
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,873
- Nghề nghiệp
- Công chức
Không biết dùng thì nói đại là không biết, chỉ có thêm Worksheet_SelectionChange mà không biết ứng biến thì thôi. Thử lấy code của anhdepjai áp dụng cho File của bạn coi có được không thì biết liền.
Thủ công thì chờ người khác giúp vậy, tôi chạy bạn luôn và sẽ không ý kiến hoặc góp ý cho bất kỳ bài viết nào của bạn.
Lần chỉnh sửa cuối:
Upvote
0
bbkim
Thành viên mới
- Tham gia
- 21/6/12
- Bài viết
- 44
- Được thích
- 1
Bạn nói thế thì mình chịu. Cách làm của bạn mình hiểu và mình làm được nhưng mình muốn chọn phiếu xuất là nó tự động ra luôn.
Bạn không muốn giúp đỡ mình thì mình cũng không giận bạn. Mình vẫn cảm ơn bạn đã giúp mình.
Ở nơi đây không ai có quyền ép ai cả. Tất cả vì đam mê thôi.
Upvote
0
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,873
- Nghề nghiệp
- Công chức
Nếu là đam mê thì sử dụng code bài 14 rồi áp dụng cho File trong bài viết ở Link sau (thì chỉ chọn số phiếu là được kết quả mà chẳng cần làm gì cả).
https://www.giaiphapexcel.com/diend...ruy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/
Upvote
0
