Giúp code trộn 4 chuỗi không trùng nhau

[myloveqn2005]

Ví dụ em có 4 chuỗi A, B, C, D
Mọi người giúp em trộn 4 chuỗi này rồi nối lại với nhau mà không bị trùng với ạ.
Vd: ABCD, BCDA....
em cám ơn ạ.

 

[snow25]

Ví dụ em có 4 chuỗi A, B, C, D
Mọi người giúp em trộn 4 chuỗi này rồi nối lại với nhau mà không bị trùng với ạ.
Vd: ABCD, BCDA....
em cám ơn ạ.

Cho cái ví dụ cụ thể lên bạn.Mà có 4 chuỗi hay nhiều hơn.

 

[VetMini]

Cho cái ví dụ cụ thể lên bạn.Mà có 4 chuỗi hay nhiều hơn.

Vấn đề là có chắc 4 chuỗi hôn? Viết code cho đã rồi thành ra n chuỗi.

 

[snow25]

Vấn đề là có chắc 4 chuỗi hôn? Viết code cho đã rồi thành ra n chuỗi.

Có công thức tính được đáp án là bao nhiêu không nhỉ anh.

 

[leonguyenz]

Ví dụ em có 4 chuỗi A, B, C, D
Mọi người giúp em trộn 4 chuỗi này rồi nối lại với nhau mà không bị trùng với ạ.
Vd: ABCD, BCDA....
em cám ơn ạ.

Bạn tham khảo bài này.

 

[snow25]

Ví dụ em có 4 chuỗi A, B, C, D
Mọi người giúp em trộn 4 chuỗi này rồi nối lại với nhau mà không bị trùng với ạ.
Vd: ABCD, BCDA....
em cám ơn ạ.

Thử code.

Sub sdfds()
   Const m = 4
   Dim arr, kq(1 To 1000, 1 To 1), a As Long, dic As Object, kiemtra(0 To 3) As Boolean, i As Long
   Dim s As String, b As Long, c As Long, e As Long, k As Long
   Set dic = CreateObject("scripting.dictionary")
   arr = Array("A", "B", "C", "D", "E")
   k = 1
   For i = 1 To m
       k = k * i
   Next i
    Do
      b = Fix(Rnd() * m)
      If kiemtra(b) = False Then
         c = c + 1
         s = s & arr(b)
         kiemtra(b) = True
      End If
      If c = m Then
         c = 0
         If Not dic.exists(s) Then
            a = a + 1
            kq(a, 1) = s
            dic.Add s, a
         End If
         s = Empty
         Erase kiemtra
      End If
      If a = k Then Exit Do
    Loop
   Sheet1.Range("A1:A1000").ClearContents
   Sheet1.Range("A1").Resize(a).Value = kq
   Set dic = Nothing
End Sub

 

[myloveqn2005]

Cụ thể em có 5 chuỗi ạ.

Bài đã được tự động gộp: 21/12/21

Thử code.

Sub sdfds()
   Const m = 4
   Dim arr, kq(1 To 1000, 1 To 1), a As Long, dic As Object, kiemtra(0 To 4) As Boolean, i As Long
   Dim s As String, b As Long, c As Long, e As Long, k As Long
   Set dic = CreateObject("scripting.dictionary")
   arr = Array("A", "B", "C", "D", "E")
   k = 1
   For i = 1 To m
       k = k * i
   Next i
    Do
      b = Fix(Rnd() * m)
      If kiemtra(b) = False Then
         c = c + 1
         s = s & arr(b)
         kiemtra(b) = True
      End If
      If c = m Then
         c = 0
         If Not dic.exists(s) Then
            a = a + 1
            kq(a, 1) = s
            dic.Add s, a
         End If
         s = Empty
         Erase kiemtra
      End If
      If a = k Then Exit Do
    Loop
   Sheet1.Range("A1:A1000").ClearContents
   Sheet1.Range("A1").Resize(a).Value = kq
   Set dic = Nothing
End Sub[/C
[/QUOTE]

Bài đã được tự động gộp: 21/12/21

Thử code.

Sub sdfds()
   Const m = 4
   Dim arr, kq(1 To 1000, 1 To 1), a As Long, dic As Object, kiemtra(0 To 4) As Boolean, i As Long
   Dim s As String, b As Long, c As Long, e As Long, k As Long
   Set dic = CreateObject("scripting.dictionary")
   arr = Array("A", "B", "C", "D", "E")
   k = 1
   For i = 1 To m
       k = k * i
   Next i
    Do
      b = Fix(Rnd() * m)
      If kiemtra(b) = False Then
         c = c + 1
         s = s & arr(b)
         kiemtra(b) = True
      End If
      If c = m Then
         c = 0
         If Not dic.exists(s) Then
            a = a + 1
            kq(a, 1) = s
            dic.Add s, a
         End If
         s = Empty
         Erase kiemtra
      End If
      If a = k Then Exit Do
    Loop
   Sheet1.Range("A1:A1000").ClearContents
   Sheet1.Range("A1").Resize(a).Value = kq
   Set dic = Nothing
End Sub

Bác ơi em rốt cái excel bác có thể cho em xin file mẫu được không ạ. Em copy vào VBA nhưng không biết Function của nó là gì ạ

Bài đã được tự động gộp: 21/12/21

Vấn đề là có chắc 4 chuỗi hôn? Viết code cho đã rồi thành ra n chuỗi.

Chính xác là em chỉ có 5 chuỗi thôi ạ

 

[snow25]

Cụ thể em có 5 chuỗi ạ.

Bài đã được tự động gộp: 21/12/21

Bài đã được tự động gộp: 21/12/21

Bác ơi em rốt cái excel bác có thể cho em xin file mẫu được không ạ. Em copy vào VBA nhưng không biết Function của nó là gì ạ

Bài đã được tự động gộp: 21/12/21

Chính xác là em chỉ có 5 chuỗi thôi ạ

Đây nhé bạn bấm vào nút chuỗi không được giống nhau không thì chạy mãi không hết.

 

[phihndhsp]

Cho cái ví dụ cụ thể lên bạn.Mà có 4 chuỗi hay nhiều hơn.

Ví dụ em có 4 chuỗi A, B, C, D
Mọi người giúp em trộn 4 chuỗi này rồi nối lại với nhau mà không bị trùng với ạ.
Vd: ABCD, BCDA....

có thể tham khảo bài này nha, bài này tui viết với dữ liệu mặc định là 4 và ABCD, bạn tự phát triển thêm code nha

 

[myloveqn2005]

Đây nhé bạn bấm vào nút chuỗi không được giống nhau không thì chạy mãi không hết.

bác ơi. cho e hỏi chút là mỗi lần sửa chuỗi vào code sửa ạ. Không thể sử dụng bảng ở ngoài được ạ.

 

[snow25]

bác ơi. cho e hỏi chút là mỗi lần sửa chuỗi vào code sửa ạ. Không thể sử dụng bảng ở ngoài được ạ.

Được nếu bạn biết sửa code cái mà nạp vào mảng arr nhé.

 

[myloveqn2005]

Được nếu bạn biết sửa code cái mà nạp vào mảng arr nhé.

bác ơi. em sửa chuỗi trong code nhưng nó không viết được tiếng việt ạ.

 

[phihndhsp]

có thể tham khảo bài này nha, bài này tui viết với dữ liệu mặc định là 4 và ABCD, bạn tự phát triển thêm code nha

Liên kết: https://www.youtube.com/watch?v=lzG1etaDDC4
clip hướng dẫn cơ bản

 

[myloveqn2005]

Liên kết: https://www.youtube.com/watch?v=lzG1etaDDC4
clip hướng dẫn cơ bản

Thành thật rất cám ơn bác. Mỗi tội em ngu lập trình quá, tại em cũng ko nghĩ đề bài này lại nâng cao tới vây. em có dùng "=$F$2&VLOOKUP(RANDBETWEEN(1,5),$E$3:$F$7,2,0)&VLOOKUP(RANDBETWEEN(2,5),$E$3:$F$7,2,0)&VLOOKUP(RANDBETWEEN(3,5),$E$3:$F$7,2,0)&VLOOKUP(RANDBETWEEN(4,5),$E$3:$F$7,2,0)&VLOOKUP(RANDBETWEEN(5,5),$E$3:$F$7,2,0)" nhưng mà nó bị lặp lại.

 

[myloveqn2005]

Cám ơn mọi người ạ.

Được nếu bạn biết sửa code cái mà nạp vào mảng arr nhé.

Cám ơn mọi người ạ. Cám ơn snow25 em dùng file của bác sửa thêm tý chạy ngon rồi ạ.