Các chọn ngẫu nhiên

[GoHann]

Chào mọi người.
Em đang bị vướng một vấn đề.
Cụ thể là:
Bảng A có 4 phần tử 1 , 2, 3, 4
Bảng B có 4 phần tử 5, 6, 7, 8
Bảng C có 4 phần từ 9, 10, 11, 12
3 bảng này em muốn chọn ngẫu nhiên mỗi bảng 1 phần tử.
trong excel có thể làm được không ah. Không phải tính ra có bao nhiêu cách mà là liệt kê ra cụ thể từ lần chọn.
Mọi người giúp em với ak. Em cảm ơn,

 

[SA_DQ]

Const A4 As String = "ABCD"
Const E4 As String = "EFGH"
Const I4 As String = "IJKL"
Sub LietKe3Chuoi()
 Dim J As Integer, Z As Integer, F As Integer, W As Long
 ReDim Arr(1 To 9999, 1 To 1) As String
 
 For J = 1 To Len(A4)
    For Z = 1 To Len(E4)
        For F = 1 To Len(I4)
            W = W + 1:
            Arr(W, 1) = Mid(A4, J, 1) & Mid(E4, Z, 1) & Mid(I4, F, 1)
        Next F
    Next Z
 Next J
 [B2].Resize(W).Value = Arr()
End Sub

 

[BuiQuangThuan]

Chào mọi người.
Em đang bị vướng một vấn đề.
Cụ thể là:
Bảng A có 4 phần tử 1 , 2, 3, 4
Bảng B có 4 phần tử 5, 6, 7, 8
Bảng C có 4 phần từ 9, 10, 11, 12
3 bảng này em muốn chọn ngẫu nhiên mỗi bảng 1 phần tử.
trong excel có thể làm được không ah. Không phải tính ra có bao nhiêu cách mà là liệt kê ra cụ thể từ lần chọn.
Mọi người giúp em với ak. Em cảm ơn,

Có tính trùng không bạn

 

[GoHann]

Bạn ơi bạn có thể giúp mình cách làm chọn trong trường hợp này không ak. Mình chưa dùng VBA bao h nên chả biết cách sử dụng đoạn Code bạn gửi. Mình cảm ơn bạn nhiều ạ

Bài đã được tự động gộp: 6/10/22

Có tính trùng không bạn

Em úp lại ảnh cụ thể rồi ạ Anh em hộ em ạ

 

[Hoàng Tuấn 868]

Có tính trùng không bạn

Về cơ bản là lại viết code trên nền ảnh rồi.

 

[bebo021999]

Dùng hàm RANDBETWEEN thôi được rồi
Giả sử tên nhóm 1 trong vùng B3:B7
=INDEX($B$3:$B$7,RANDBETWEEN(1,4))
Nhóm khác làm tương tự.

 

[huuthang_bd]

View attachment 281752
Bạn ơi bạn có thể giúp mình cách làm chọn trong trường hợp này không ak. Mình chưa dùng VBA bao h nên chả biết cách sử dụng đoạn Code bạn gửi. Mình cảm ơn bạn nhiều ạ

Bài đã được tự động gộp: 6/10/22

Em úp lại ảnh cụ thể rồi ạ Anh em hộ em ạ

Bạn xem ẢNH nhé.