Kéo (Fill) text trong Excel bằng VBA.

[Duong gia]

Trong bảng tính Excel tại cột B mình muốn kéo PT01/7 xuống nó thành PT02/7, PT03/7 .... bên dưới thì sao nhỉ, nhờ các bạn viết giúp Code để khi kéo xuống nó sẽ tự động tăng dần STT trước dấu "/", còn số 7 là tháng vẫn giữ nguyên. Thanks

 

[MinhNguyệt]

Trong bảng tính Excel tại cột B mình muốn kéo PT01/7 xuống nó thành PT02/7, PT03/7 .... bên dưới thì sao nhỉ, nhờ các bạn viết giúp Code để khi kéo xuống nó sẽ tự động tăng dần STT trước dấu "/", còn số 7 là tháng vẫn giữ nguyên. Thanks

Giả sử chuỗi PT01/7 ở ô B5. Công thức của ô B6 là :

=IF(A6="","","PT" & RIGHT("00" & MID(B5,3,2)+1,2) & "/7")

Nắm fillhand kéo xuống dưới

Hoặc dùng cột phụ : C5 = PT01, nắm Fillhand kéo xuống dưới
Công thức ở B5 là = C5 & "/7", nắm fillhand kéo xuống dưới

Thân

 

[huuthang_bd]

Trong bảng tính Excel tại cột B mình muốn kéo PT01/7 xuống nó thành PT02/7, PT03/7 .... bên dưới thì sao nhỉ, nhờ các bạn viết giúp Code để khi kéo xuống nó sẽ tự động tăng dần STT trước dấu "/", còn số 7 là tháng vẫn giữ nguyên. Thanks

Dùng vòng lặp:

Sub STT()
For i = 1 To 99
Cells(2 + i, 1) = "PT" & Format(i, "00") & "/7"
Next
End Sub

Hoặc công thức:

Sub STT()
[A3:A101].FormulaR1C1 = "=""PT""&TEXT(ROW(R[-2]C),""00"")&""/7"""
[A3:A101] = [A3:A101].Value
End Sub

 

[Duong gia]

Dùng vòng lặp:

Sub STT() For i = 1 To 99 Cells(2 + i, 1) = "PT" & Format(i, "00") & "/7" Next End Sub

Hoặc công thức:

Sub STT() [A3:A101].FormulaR1C1 = "=""PT""&TEXT(ROW(R[-2]C),""00"")&""/7""" [A3:A101] = [A3:A101].Value End Sub

Cám ơn bạn. Trên cột A không chỉ có phiếu thu (PT), mà có nhiều chứng tiừ khác nữa như phiếu chi (PC), phiếu nhập (PN), phiếu xuất kho (PX) .... Khi mình cần kéo fill chứng từ nào thì nó sẽ tự động tăng thêm số ctừ của phiếu kế tiếp thôi, còn những phiếu khác không đổi.

 

[huuthang_bd]

Cám ơn bạn. Trên cột A không chỉ có phiếu thu (PT), mà có nhiều chứng tiừ khác nữa như phiếu chi (PC), phiếu nhập (PN), phiếu xuất kho (PX) .... Khi mình cần kéo fill chứng từ nào thì nó sẽ tự động tăng thêm số ctừ của phiếu kế tiếp thôi, còn những phiếu khác không đổi.

Tốt nhất là bạn gửi một file mẫu lên. Cần làm gì thì ghi chú vào đấy. Chứ tôi thấy mỗi lần post bài yêu cầu của bạn mỗi khác thì tốn thời gian lắm.