Giúp chỉnh sửa thêm hàm GetUniqueNum (1 người xem)

[khanhtoan_123]

Em thấy anh/chị viết hàm GetUniqueNum rất hay, em đã tải về dùng rất tốt. Vì nhu cầu công việc em tạo thêm 01 Sheet (Dienthoai) có 2 trường là điện thoại và Số CMND (số này được lấy từ CMND do hàm GetUniqueNum tạo ra từ Sheet DATA).
Em muốn ở Sheet (Dienthoai) khi nhập nội dung vào 01 cell bất kỳ của cột A (màu vàng) thì hàm GetUniqueNum sẽ tự động chạy mà không phải qua Sheet DATA nhắp vào.
Nhờ mọi người giúp đỡ. Xim cảm ơn.

 

[khanhtoan_123]

Trời, cao thủ đâu hết rồi ta??????

 

[dhn46]

Bạn đặt Code sau trong Code Sheet2 nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Test1
    End If
End Sub

 

[Quang_Hải]

Em thấy anh/chị viết hàm GetUniqueNum rất hay, em đã tải về dùng rất tốt. Vì nhu cầu công việc em tạo thêm 01 Sheet (Dienthoai) có 2 trường là điện thoại và Số CMND (số này được lấy từ CMND do hàm GetUniqueNum tạo ra từ Sheet DATA).
Em muốn ở Sheet (Dienthoai) khi nhập nội dung vào 01 cell bất kỳ của cột A (màu vàng) thì hàm GetUniqueNum sẽ tự động chạy mà không phải qua Sheet DATA nhắp vào.
Nhờ mọi người giúp đỡ. Xim cảm ơn.

Mở code ra sửa lại chút thế này

Sub Test()
  Sheets("DATA").Range("A1:A50").Value = UniqueRandomNum(100000, 999999, 50)
End Sub

Và thêm code này vào sheet DIENTHOAI

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Test
End Sub

 

[khanhtoan_123]

Cảm ơn các cao thủ nhiều. Em đã làm theo hướng dẫn của quanghai1969 và chạy rất tốt nhưng khi mỗi lần mở file lên thì nó cũng mở thêm file Book1.xls luôn, file này không có nội dung gì hết. Ngoài vấn đề trên em cũng xin hỏi thêm:
1. Em muốn chạy cả hàm Test() và tự động sắp xếp theo cột sapxep ở Sheet DATA luôn (cột này có dùng hàm RAND() để sắp xếp ngẫu nhiên.
2. Em muốn ở Sheet DATA chèn thêm cột hình ảnh (để hiển thị hình ảnh của từng người) và Sheet Dienthoai cũng lấy dữ liệu từ cột này để sau đó em dùng Mail Merger trong Word để xuất thành File CMND ngẫu nhiên.
Xin các cao thủ giúp đỡ. Xin cảm ơn.

 

[Quang_Hải]

Cảm ơn các cao thủ nhiều. Em đã làm theo hướng dẫn của quanghai1969 và chạy rất tốt nhưng khi mỗi lần mở file lên thì nó cũng mở thêm file Book1.xls luôn, file này không có nội dung gì hết. Ngoài vấn đề trên em cũng xin hỏi thêm:
1. Em muốn chạy cả hàm Test() và tự động sắp xếp theo cột sapxep ở Sheet DATA luôn (cột này có dùng hàm RAND() để sắp xếp ngẫu nhiên.
2. Em muốn ở Sheet DATA chèn thêm cột hình ảnh (để hiển thị hình ảnh của từng người) và Sheet Dienthoai cũng lấy dữ liệu từ cột này để sau đó em dùng Mail Merger trong Word để xuất thành File CMND ngẫu nhiên.
Xin các cao thủ giúp đỡ. Xin cảm ơn.

FILE NHIỄM VIRUT CÁC THÀNH VIÊN CẨN THẬN
1. Cái Book1 mở tự động là máy tính bạn nhiễm virut
2. Sửa lại thế này cho sub test

Sub Test()
   With Sheets("DATA").Range("A2:A51")
      .Value = UniqueRandomNum(100000, 999999, 50)
      .Sort .Parent.[A1]
   End With
End Sub

 

[khanhtoan_123]

Còn câu thứ 2 giải quyết thế nào dzậy ta ơi.
2. Em muốn ở Sheet DATA chèn thêm cột hình ảnh (để hiển thị hình ảnh của từng người) và Sheet Dienthoai cũng lấy dữ liệu từ cột này để sau đó em dùng Mail Merger trong Word để xuất thành File CMND ngẫu nhiên.
Xin các cao thủ giúp đỡ. Xin cảm ơn.

 

[khanhtoan_123]

Chờ đợi trong mỏi mòn.

 

[khanhtoan_123]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Test
End Sub

Nếu chạy thêm 2, 3... Macro. Ví dụ macro1, macro2 thì làm thế nào?
Xin cảm ơn.