xin giúp đỡ tạo tổ hợp (1 người xem)

[xuanvan]

với tiêu đề như trên mong các bác giúp đỡ theo file đính kèm

 

[TheThienChu]

với tiêu đề như trên mong các bác giúp đỡ theo file đính kèm

Tổ hợp A, B, C và C, B, A có lấy cả không.
n lớn nhất là bao nhiêu.

 

[xuanvan]

có lấy cả 2 tổ hợp đó và n lớn nhất bằng 10 ạ

 

[xuanvan]

e xin lỗi, 2 tổ hợp đó chỉ lấy 1 và n lớn nhất bằng 10 ạ

 

[ChanhTQ@]

Bạn kiểm theo macro sau xem thỏa í bạn chưa?

Sub ToHop()
 Dim StrC As String
 Dim J As Byte, W As Byte, Z As Byte, F As Byte
 ReDim Arr(1 To 90, 1 To 1)
 StrC = "ABCDEF"
 For J = 1 To 6
    For W = J + 1 To 6
        For Z = W + 1 To 6
            F = F + 1
            Arr(F, 1) = Mid(StrC, J, 1) & Mid(StrC, W, 1) & Mid(StrC, Z, 1)
        Next Z
    Next W
 Next J
 [Z1].Resize(F).Value = Arr()
End Sub

 

[xuanvan]

Bạn kiểm theo macro sau xem thỏa í bạn chưa?

Sub ToHop()
 Dim StrC As String
 Dim J As Byte, W As Byte, Z As Byte, F As Byte
 ReDim Arr(1 To 90, 1 To 1)
 StrC = "ABCDEF"
 For J = 1 To 6
    For W = J + 1 To 6
        For Z = W + 1 To 6
            F = F + 1
            Arr(F, 1) = Mid(StrC, J, 1) & Mid(StrC, W, 1) & Mid(StrC, Z, 1)
        Next Z
    Next W
 Next J
 [Z1].Resize(F).Value = Arr()
End Sub

E ko biết sử dụng macro bác ơi, hu hu. Có cách nào dùng công thức không ạ, mấy lần công thức cũng được ạ

 

[ChanhTQ@]

Công thức thì chờ người khác đi vậy; Mình chịu thua món này; Có khi còn thua cả bạn nữa là đằng khác;

Nhưng hàm tự tạo chắc được đó, muốn không?

 

[anhtuanle123]

làm bằng công thức thử
cách làm : chuyển cơ số 10 sang cơ số 6 , vậy là sẽ có các số với cơ số 6 , rồi tách số và tách chuỗi thôi ^^

 

[HieuCD]

E ko biết sử dụng macro bác ơi, hu hu. Có cách nào dùng công thức không ạ, mấy lần công thức cũng được ạ

Tạo công thức cho 2 sheet

 

[xuanvan]

E cám ơn các a chị rất nhiều, công thức của các anh chị cơ bản đúng ý của e, e sẽ dựa vào đấy để phát triển cho hợp ý của mình nhất ạ