Tạo hàm sinh ngày tháng ngẫu nhiên tại các row của excel 2003

[thinhnk]

Xin chào ACE tại diễn đàn!
Mình mới tham gia diễn đàn. Hiện tại mình đang làm một bảng thống kê chi tiết về các hàng hóa mình bán ra. Mình muốn ACE trong diễn đàn hướng dẫn mình tạo một hàm theo mô tả như sau:
- Colum1: Mình tạo là cột ngày
- Colum2: Mình tạo là cột tên khách hàng.
Hàm mình muốn tạo có cú pháp như sau:
Khi đánh tên vào colum2 thì colum1 sẽ sinh ra ngày/tháng/năm. Ngày/ tháng/ năm theo lịch của máy tính đang dùng. Many thanks.

 

[thinhnk]

Dear ACE!
Giúp em với hàm như ở trên với nhé. Càng sớm càng tốt.

 

[kilomet]

Xin chào ACE tại diễn đàn!
Mình mới tham gia diễn đàn. Hiện tại mình đang làm một bảng thống kê chi tiết về các hàng hóa mình bán ra. Mình muốn ACE trong diễn đàn hướng dẫn mình tạo một hàm theo mô tả như sau:
- Colum1: Mình tạo là cột ngày
- Colum2: Mình tạo là cột tên khách hàng.
Hàm mình muốn tạo có cú pháp như sau:
Khi đánh tên vào colum2 thì colum1 sẽ sinh ra ngày/tháng/năm. Ngày/ tháng/ năm theo lịch của máy tính đang dùng. Many thanks.

Bạn xem thử có phải như vậy không nhá

 

[SA_DQ]

Hãy thử với cái ni xem sao?!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range([c3], [c999])) Is Nothing Then
    Dim Ten As String, VTr As Byte, Ng As Byte
    
    Randomize:                                      Ng = 1+Int(30*Rnd())
    Ten = Target.Value & Space(3):          VTr = InStr(Ten, " ")
    Target.Offset(, -1).Value = DateSerial(Asc(Left(Ten, 1)), VTr, Ng)
 End If
End Sub

 

[thinhnk]

Dear bạn Kilomet!
Cảm ơn bạn rất nhiều về hàm bạn đã hướng dẫn mình. Mình hơi thắc mắc một chút là hàm đó sau khi bước sang ngày tiếp theo thì cột ngày có đếm theo lịch của máy tính không khi mình nhập số liệu vào?

 

[kilomet]

Xin chào
Tất nhiên là nó sẽ đếm theo lịch rồi. Bạn có thể đổi ngày hệ thống trên máy tính của bạn để kiểm chứng