Xin hàm liệt kê tất cả số tổ hợp chuỗi 10 ký tự tạo nên từ hai ký tự A và B

[Hugo Nguyen]

Chào mọi người!
Mình có một bài toán như tiêu đề, nhờ mọi người giúp đỡ ạ.
Xin cảm ơn mọi người!

 

[tigertiger]

Chào mọi người!
Mình có một bài toán như tiêu đề, nhờ mọi người giúp đỡ ạ.
Xin cảm ơn mọi người!

2 ký tự A và B, thì chỉ có 1 tổ hợp : AB

 

[Hugo Nguyen]

2 ký tự A và B, thì chỉ có 1 tổ hợp : AB

Ý mình là số tổ hợp 10 ký tự tạo nên từ A và B ạ, bạn có thể xem nội dung trong file thì rõ hơn ạ, cảm ơn bạn!

 

[CHAOQUAY]

Chào mọi người!
Mình có một bài toán như tiêu đề, nhờ mọi người giúp đỡ ạ.
Xin cảm ơn mọi người!

Thử công thức này xem

=SUM(INDEX(COMBIN(10,ROW(A1:A10)),,))

 

[Hugo Nguyen]

Thử công thức này xem

=SUM(INDEX(COMBIN(10,ROW(A1:A10)),,))

Ý mình mong muốn liệt kê ra tất cả tổ hợp đó bạn ạ, cảm ơn bạn nhiều!

 

[VetMini]

Toán đại số nhị phân: A là 0, B là 1 thì 10 chữ số tức là 1024 số.
Theo lẽ thì hàm DEC2có thể làm ngon lành. Nhưng rất tiếc hàm này chỉ làm việc với số 0-511 (512 số đầu). Vì vậy phải cần thêm thủ thuật cho 512-1024

=IF(ROW()<=512, "A", "B") & SUBSTITUTE(SUBSTITUTE(DEC2BIN(MOD(ROW()-1,512),9), "0", "A"), "1", "B")
Kéo từ dòng 1 đến 1024

 

[Hugo Nguyen]

Toán đại số nhị phân: A là 0, B là 1 thì 10 chữ số tức là 1024 số.
Theo lẽ thì hàm DEC2có thể làm ngon lành. Nhưng rất tiếc hàm này chỉ làm việc với số 0-511 (512 số đầu). Vì vậy phải cần thêm thủ thuật cho 512-1024

=IF(ROW()<=512, "A", "B") & SUBSTITUTE(SUBSTITUTE(DEC2BIN(MOD(ROW()-1,512),9), "0", "A"), "1", "B")
Kéo từ dòng 1 đến 1024

Xin cảm ơn công thức của bác, nhưng nếu trường hợp cần tạo thành dãy nhiều ký tự hơn, tầm trên 20 ký tự thì có cách gì không bác?

 

[ndu96081631]

Xin cảm ơn công thức của bác, nhưng nếu trường hợp cần tạo thành dãy nhiều ký tự hơn, tầm trên 20 ký tự thì có cách gì không bác?

Viết hàm tự tạo Dec2Bin, ví dụ:

Function D2B(ByVal Num As Long, Optional ByVal Places As Long = 1) As String
  Dim qt As Long, rd As Long, Tmp As String
  qt = Num
  Do
    rd = qt Mod 2
    qt = Int(qt / 2)
    Tmp = rd & Tmp
  Loop Until qt = 0
  D2B = Format(Val(Tmp), String(Places, "0"))
End Function

Rồi cứ thế mà kéo fill trên bảng tính theo công thức sau:

=SUBSTITUTE(SUBSTITUTE(d2b(ROW(A1),10),0,"A"),1,"B")

------------------------------------------------------------------------
Cái này sao thấy giống giống dò tìm password protect sheet quá ta?

 

[HieuCD]

Xin cảm ơn công thức của bác, nhưng nếu trường hợp cần tạo thành dãy nhiều ký tự hơn, tầm trên 20 ký tự thì có cách gì không bác?

20 ký tự

=SUBSTITUTE(SUBSTITUTE(DEC2BIN(INT((ROW()-1)/262144),2)&DEC2BIN(MOD(INT((ROW()-1)/512),512),9)&DEC2BIN(MOD(ROW()-1,512),9),0,"A"),1,"B")

23 ký tự

=SUBSTITUTE(SUBSTITUTE(DEC2BIN(INT((ROW()-1)/262144),5)&DEC2BIN(MOD(INT((ROW()-1)/512),512),9)&DEC2BIN(MOD(ROW()-1,512),9),0,"A"),1,"B")

 

[VetMini]

Xin cảm ơn công thức của bác, nhưng nếu trường hợp cần tạo thành dãy nhiều ký tự hơn, tầm trên 20 ký tự thì có cách gì không bác?

Trước khi hỏi thì bạn có đoán thử 20 ký tự sẽ cho ra bao nhiêu kết quả chưa?

 

[tigertiger]

Trước khi hỏi thì bạn có đoán thử 20 ký tự sẽ cho ra bao nhiêu kết quả chưa?

Chắc người hỏi, chỉ hỏi cho vui: không hiểu cái này ứng dụng vào đâu? mà phải liệt kê ra hết cỡ ngần đó số.

 

[VetMini]

Chắc người hỏi, chỉ hỏi cho vui: không hiểu cái này ứng dụng vào đâu? mà phải liệt kê ra hết cỡ ngần đó số.

Xem bài #8.
Cái vụ AB này người ta dùng để phá password của Excel. Nhưng tôi nhớ thì hình như chỉ cần tới 8 ký tự, Excel cắt bỏ phần còn lại.

 

[befaint]

Xem bài #8.
Cái vụ AB này người ta dùng để phá password của Excel. Nhưng tôi nhớ thì hình như chỉ cần tới 8 ký tự, Excel cắt bỏ phần còn lại.

Em thì đoán 99.99% cái này là tài xửu đó anh ơi.

 

[VetMini]

Em thì đoán 99.99% cái này là tài xửu đó anh ơi.
...

Bây giờ người ta chơi tài xỉu nhiều vậy hả?
Chắc là dạng bài bạc on-lai.

 

[Hugo Nguyen]

Viết hàm tự tạo Dec2Bin, ví dụ:

Function D2B(ByVal Num As Long, Optional ByVal Places As Long = 1) As String
  Dim qt As Long, rd As Long, Tmp As String
  qt = Num
  Do
    rd = qt Mod 2
    qt = Int(qt / 2)
    Tmp = rd & Tmp
  Loop Until qt = 0
  D2B = Format(Val(Tmp), String(Places, "0"))
End Function

Rồi cứ thế mà kéo fill trên bảng tính theo công thức sau:

=SUBSTITUTE(SUBSTITUTE(d2b(ROW(A1),10),0,"A"),1,"B")

------------------------------------------------------------------------
Cái này sao thấy giống giống dò tìm password protect sheet quá ta?

Xin cảm ơn code của bác ndu96081631 nhiều ạ!

Bài đã được tự động gộp: 24/11/20

Trước khi hỏi thì bạn có đoán thử 20 ký tự sẽ cho ra bao nhiêu kết quả chưa?

Mình biết số tổ hợp sẽ là 2^(số ký tự mỗi số), nên mới hỏi ví dụ trên 20 ký tự nó vượt qua giới hạn số dòng của excel thì có cách gì xử lý không ý mà.

Bài đã được tự động gộp: 24/11/20

Chắc người hỏi, chỉ hỏi cho vui: không hiểu cái này ứng dụng vào đâu? mà phải liệt kê ra hết cỡ ngần đó số.

Mình đang có bài toán: cho một dãy số và 1 tổng là tổng của một vài số trong dãy số đó, cần tìm các số tạo nên tổng đó bạn à.

 

[huuthang_bd]

Bao nhiêu ký tự cũng được. Muốn bao nhiêu ký tự thì nhập vào A1 bấy nhiêu chữ A. Công thức sau áp dụng cho chuỗi từ 100 ký tự trở xuống.

A2=LEFT(REPLACE(A1,MATCH(2,1/(MID(A1,ROW($1:$100),1)="A")),100,"B"&REPT("A",100)),LEN(A1))

 

[Hugo Nguyen]

Em thì đoán 99.99% cái này là tài xửu đó anh ơi.

View attachment 249885

Bạn đừng hiểu lầm, bài toán của mình là: cho một dãy số và 1 tổng là tổng của một vài số trong dãy số đó, cần tìm các số tạo nên tổng đó.

 

[huuthang_bd]

Bạn đừng hiểu lầm, bài toán của mình là: cho một dãy số và 1 tổng là tổng của một vài số trong dãy số đó, cần tìm các số tạo nên tổng đó.

Ủa, sao mình không đi thẳng vào vấn đề ngay từ đầu luôn?

 

[befaint]

Ở đây có tiết mục treo củ cải đầu cái sào rồi.




----
@Thớt:
Từ khóa: Solver.

 

[Hugo Nguyen]

Bao nhiêu ký tự cũng được. Muốn bao nhiêu ký tự thì nhập vào A1 bấy nhiêu chữ A. Công thức sau áp dụng cho chuỗi từ 100 ký tự trở xuống.

A2=LEFT(REPLACE(A1,MATCH(2,1/(MID(A1,ROW($1:$100),1)="A")),100,"B"&REPT("A",100)),LEN(A1))

Xin cảm ơn công thức của bác rất nhiều ạ!

Bài đã được tự động gộp: 24/11/20

Ủa, sao mình không đi thẳng vào vấn đề ngay từ đầu luôn?

Mình đang làm bị vướng ở phần này nên hỏi phần này, phần này mình hỏi được rồi mình nghĩ phần sau có thể tự làm bạn ạ, cảm ơn bạn