Cập Nhật Tên File

[thanhhung1324]

trong lúc thống kê các số liệu hằng ngày, mình thấy công việc hiện tại của mình làm quá ư là thủ công. ngồi nhập liệu từng con số 1, từng tên file 1. quá mất thời gian.
Mong được các bác xem thử vấn đề và góp ý giải quyết vấn đề gúp mình với!

 

[nguyentuhp]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B65000")) Is Nothing Then
If Cells(Target.Row, 2) <> "" Then Cells(Target.Row, 3) = _
"FAX" & Format(Now(), "yyyymmdd") & Right(Cells(Target.Row, 2).Value, 4)
End If
End Sub

Bạn copy đoạn code trên, right click vào Sheet nhập liệu, view code, paste vào, sau đó trở về sheet và thử nhập liệu vào cột B xem kết quả.

Chúc thành công!

 

[DOSNET]

- Bạn Formats cột F định dạng là date
- C5="FAX"&DAY(F5)&MONTH(F5)&YEAR(F5)&RIGHT(B5,4)
- Fill xuống
- Bạn có thể sắp xếp lại ngày tháng năm theo ý mình

 

[anhtuan1066]

Như vầy mới đúng chứ:

="FAX"&TEXT(F5,"yyyymmdd")&RIGHT(B5,4)

Nếu ko thì tháng 3 nó sẽ lấy ra số 3 chứ ko phải là 03
ANH TUẤN

 

[thanhhung1324]

Vậy Nếu Như Trong ô Tên Fax, Nếu 3 Ký Tự đầu Không Là "fax" Mà Là Những Ký Tự Khác Thì Nó Sẽ Không Hiểu đúng Nữa.
Bởi Vì Có Khách Hàng Sẽ đặt Tên La Faxyyyymmdd, Có Khách Hàng đặt Tên Fax Là Scoyyymmdd, Scayyyymmdd,....
Vậy Mình Sẽ Xử Lý Việc Này Như Thế Nào?

 

[anhtuan1066]

Vậy Nếu Như Trong ô Tên Fax, Nếu 3 Ký Tự đầu Không Là "fax" Mà Là Những Ký Tự Khác Thì Nó Sẽ Không Hiểu đúng Nữa.
Bởi Vì Có Khách Hàng Sẽ đặt Tên La Faxyyyymmdd, Có Khách Hàng đặt Tên Fax Là Scoyyymmdd, Scayyyymmdd,....
Vậy Mình Sẽ Xử Lý Việc Này Như Thế Nào?

Vậy thì bạn phải tạo thêm 1 cột nữa chứ.. cột này quy định về cách đặt tên.. Tôi làm thử bạn tham khảo nhé...
Quy định ngầm rằng: nếu ko ghi gì vào cột phụ này thì xem như chọn 3 ký tự đầu là FAX, nếu có ghi thì lấy nó là ký tự đầu
ANH TUẤN