Nhờ giúp cách lấy số biên bản

[dangky47h]

Trân trọng chào các thầy, các anh, chị và các bạn.
Em làm bên văn thư văn phòng, phải lấy số biên bản để soạn thảo văn bản.
Xin được giúp đỡ em vấn đề sau:
Em có ngày/tháng/năm biên bản ở ô C1 trong excel là 01/08/2015.
Xét: ngày/tháng/năm trên để lấy số biên bản cần điền vào ô C2 theo quy luật: 0801/******/2015 với (*****) là chuỗi ký tự bất kỳ (tự điền theo tùy trường hợp).
Có thể dùng hàm sẵn có trong excel hoặc ngôn ngữ VBA để tự tạo hàm nào đó có tác dụng như trên được không ạ?
Em xin được nhờ sự giúp đỡ bằng cả 2 cách (dùng hàm sẵn có) hoặc tạo hàm bằng ngôn ngữ VBA (phương án này cần với em vì có thể vận dung linh hoạt và em có thêm cái để tham khảo).
Mong mọi người giúp em.!

 

[batman1]

Trân trọng chào các thầy, các anh, chị và các bạn.
Em làm bên văn thư văn phòng, phải lấy số biên bản để soạn thảo văn bản.
Xin được giúp đỡ em vấn đề sau:
Em có ngày/tháng/năm biên bản ở ô C1 trong excel là 01/08/2015.

Cái này là ngày tháng hay là TEXT giả bộ ngày tháng? Không có tập tin thì chịu.

Xét: ngày/tháng/năm trên để lấy số biên bản cần điền vào ô C2 theo quy luật: 0801/******/2015 với (*****) là chuỗi ký tự bất kỳ (tự điền theo tùy trường hợp).

Lấy từ đâu? Không có tập tin thì viết hàm, code bằng niềm tin?

Tốt nhất đính kèm tập tin + cho vd. cụ thể + cho biết kết quả với ví dụ đang xét.

 

[dangky47h]

Cái này là ngày tháng hay là TEXT giả bộ ngày tháng? Không có tập tin thì chịu.

Lấy từ đâu? Không có tập tin thì viết hàm, code bằng niềm tin?

Tốt nhất đính kèm tập tin + cho vd. cụ thể + cho biết kết quả với ví dụ đang xét.

Em đã đính file lên, bác làm ơn giúp em mới nhé!
Cảm ơn bác!

 

[batman1]

Nhập "QĐ-UBND" vào vd. D1.

Công thức cho C2

=REPLACE(TEXT(C1,"mmddyyyy"),5,0,"/"&D1&"/")

 

[dangky47h]

Nhập "QĐ-UBND" vào vd. D1.

Công thức cho C2

=REPLACE(TEXT(C1,"mmddyyyy"),5,0,"/"&D1&"/")

Nếu có thể bác giúp em dùng ngôn ngữ VBA để hình thành hàm tự tạo =Layso(C2;*******) để được kết quả như trên, với ****** là các ký tự được điền vào khi dùng hàm tự tạo, như vậy thì sẽ tốt quá để em vận dụng vào công việc của em.
Làm phiền bác thêm chút xíu.
Cám ơn bác nhiều!

 

[batman1]

Hoặc

=REPLACE(TEXT(C1,"mmdd//yyyy"),6,0,D1)

Nếu có thể bác giúp em dùng ngôn ngữ VBA để hình thành hàm tự tạo

Nếu bạn muốn VBA thì hãy chọn 1 bài nào đó. Bài này đơn giản thế còn VBA làm gì?
Nhắc lại: muốn VBA thì hãy chọn bài khác. Bài này không bõ công.

 

[dangky47h]

Hoặc

=REPLACE(TEXT(C1,"mmdd//yyyy"),6,0,D1)

Nếu bạn muốn VBA thì hãy chọn 1 bài nào đó. Bài này đơn giản thế còn VBA làm gì?
Nhắc lại: muốn VBA thì hãy chọn bài khác. Bài này không bõ công.

Vâng, bác làm ơn giúp em mới vì đặc thù công việc nên em cần nhiều trong quá trình làm việc.
Có nghĩa là em dùng nhiều và không có không gian để tạo thêm một ô liên kết như bác giúp em như trên.
Cảm ơn bác, đặc thù công việc mà, mong bác giúp em.

 

[batman1]

Thôi được.
Ví dụ.

Function Layso(ByVal ngaythang As Double, ByVal text As String) As String
    Application.Volatile
    Layso = Format(ngaythang, "mmdd/") & text & "/" & Year(ngaythang)
End Function

Cách dùng

=layso(C1;D1)
=layso(C1;"QĐ-UBND")
=layso(42217;"QĐ-UBND")
=layso(42217,33;"QĐ-UBND")

Dấu thập phân của bạn có thể là dấu chấm ".", và dấu phân cách các parameter có thể là dấu phẩy. Tự sửa trong các công thức ở trên.

 

[VetMini]

Vâng, bác làm ơn giúp em mới vì đặc thù công việc nên em cần nhiều trong quá trình làm việc.
Có nghĩa là em dùng nhiều và không có không gian để tạo thêm một ô liên kết như bác giúp em như trên.
Cảm ơn bác, đặc thù công việc mà, mong bác giúp em.

Bạn viết thử hàm ấy đi rồi tôi chỉ cách sửa cho đúng.
Trễ rồi, bác kia viết giùm rồi

 

[dangky47h]

Thôi được.
Ví dụ.

Function Layso(ByVal ngaythang As Double, ByVal text As String) As String
    Application.Volatile
    Layso = Format(ngaythang, "mmdd/") & text & "/" & Year(ngaythang)
End Function

Cách dùng

=layso(C1;D1)
=layso(C1;"QĐ-UBND")
=layso(42217;"QĐ-UBND")
=layso(42217,33;"QĐ-UBND")

Dấu thập phân của bạn có thể là dấu chấm ".", và dấu phân cách các parameter có thể là dấu phẩy. Tự sửa trong các công thức ở trên.

Cám ơn bác!