Xin code sửa ngày hàng loạt tại các sheet khác nhau trong 1 file excel

[n0thing1988]

Em đang có vấn đề này mà chưa biết cách làm. Mong cộng đồng GPE giúp đỡ
Mọi trợ giúp em có ghi tại file đính kèm
Cảm ơn các anh chị đã đọc

 

[doveandrose]

Public Sub hello()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("I" & WorksheetFunction.Max((ws.Range("I1000000").End(xlUp).Row - 2), 1)).Value = 42370
Next
End Sub

 

[gtri]

Em đang có vấn đề này mà chưa biết cách làm. Mong cộng đồng GPE giúp đỡ
Mọi trợ giúp em có ghi tại file đính kèm
Cảm ơn các anh chị đã đọc

Thử với cái này xem sao

Public Sub Sua_Ngay()
Dim Ws As Worksheet

For Each Ws In Worksheets
Ws.Range("I1000000").End(xlUp).Offset(-2) = "01/01/2016"
Next Ws

End Sub

 

[n0thing1988]

Cảm ơn 2 bạn code chạy rất tốt. Đỡ mất công 1 buổi sáng rồi.

 

[n0thing1988]

Sau khi hoàn thành file năm 2015 được. Giờ sang file thứ 2 em đã sửa code nhưng không hiểu sao file này code lại báo lỗi
Kỳ lạ ở chỗ em 2 file em để merge cell như nhau mà 1 file chạy 1 file ko
Nhờ anh chị đi qua xem giúp em.
Em cảm ơn

 

[giangleloi]

Sau khi hoàn thành file năm 2015 được. Giờ sang file thứ 2 em đã sửa code nhưng không hiểu sao file này code lại báo lỗi
Kỳ lạ ở chỗ em 2 file em để merge cell như nhau mà 1 file chạy 1 file ko
Nhờ anh chị đi qua xem giúp em.
Em cảm ơn

File trên là file excel 2003 phải sửa lại code, mượn code trong file luôn nhé:

Sub GPE()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A" & WorksheetFunction.Max((ws.Range("A65000").End(xlUp).Row - 6), 1)).Value = 42370
Next
End Sub

 

[n0thing1988]

File trên là file excel 2003 phải sửa lại code, mượn code trong file luôn nhé:

Sub GPE()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A" & WorksheetFunction.Max((ws.Range([COLOR=#ff0000]"A65000"[/COLOR]).End(xlUp).Row - 6), 1)).Value = 42370
Next
End Sub

Em quả thực ko để ý đến phiên bản. Xin cảm ơn anh

 

[sonuq215]

Bạn thử dùng chức năng Find & Replace được không. Có vẻ nhanh hơn viết code

 

[doveandrose]

Bạn thử dùng chức năng Find & Replace được không. Có vẻ nhanh hơn viết code

mình thích những bạn lạc quan yêu đời như này . hihi

 

[n0thing1988]

Bạn thử dùng chức năng Find & Replace được không. Có vẻ nhanh hơn viết code

Cảm ơn bạn. Nhưng mà khi đó nếu trong file của mình nó có dữ liệu ngày như vậy sẽ đổi luôn.
Mình chỉ cần đổi ở hàng cuối cùng thôi

 

[befaint]

File trên là file excel 2003 phải sửa lại code, mượn code trong file luôn nhé:

Sub GPE()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A" & WorksheetFunction.Max((ws.Range("A65000").End(xlUp).Row - 6), 1)).Value = 42370
Next
End Sub

Sửa như vầy thì hay hơn (Excel 2003 hay 2013 đều được):

.Max((ws.Range("A" & Rows.Count).End(xlUp).Row - 6), 1))

 

[giangleloi]

Sửa như vầy thì hay hơn (Excel 2003 hay 2013 đều được):

.Max((ws.Range("A" & Rows.Count).End(xlUp).Row - 6), 1))

Tôi biết điều đó mà. Nhưng sửa vậy để cho anh chủ thớt đẹp trai biết là nguyên do mình sửa. Và sửa ở đâu. Vì tôi biết chủ thớt cũng đang tìm hiểu VBA