[Help] Tìm kết quả trong chuỗi với điều kiện

Liên hệ QC
X

xiilliilliix

Thành viên mới
Tham gia
10/3/11
Bài viết
19
Được thích
2
Em có tập hợp các số bao gồm 4 số từ tập hợp {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} như trong file. Đề bài:
1. Hãy tìm ra tập hợp gồm 3 số với điều kiện cứ 2 số cộng lại được số thứ 3, ko cần phân biệt thứ tự, vị trí như ...... số 4159 hoặc 9154 thì sẽ có 1+4=5 và 4+5=9 . Show kết quả 145 và 459
2. Các số liên tiếp vd 3214 thì sẽ ra kết quả là 3 số liên tiếp là 123 và 234; 4 số liên tiếp là 1234. Show kết quả 145 và 459.
3. Các số tăng theo cấp số cộng ( +2, +3). Vd 4027 sẽ có kết quả là 024 (+2) hoặc số 6093 sẽ có kết quả là 036 và 369. Show kết quả 036 và 369.
Vd : số 9453 trong file sẽ có 2 kết quả của điều kiện 1 và điều kiện 2 là 4+5=9 và 3-4-5 liên tục. Show kết quả 459 và 345.

Em quên mất trường hợp sau
+ trong trường hợp 2 số cộng lại được số thứ 3 thì các cộng bằng 10 thì tính số thứ 3 = 0. VD: trường hợp 1 + 9 = 0, 2 + 8 = 0, 3 + 7 = 0
+ các trường hợp như 910 vừa là liên tục (điều kiện 2) vừa là 2 số cộng lại thì số thứ 3 (điều kiện 1) và 901 tính lặp của tập hợp các số từ 0-9 rồi từ 9 lại chạy tiếp về 0 , 1 , 2 (vòng lặp)


Chân thành cảm ơn các anh chị.
Chúc anh chị cuối tuần vui vẻ.
 

File đính kèm

  • GPExcel.xlsx
    9.8 KB · Đọc: 11
Lần chỉnh sửa cuối:
Theo quy tắc 1 thì có tính số 202, 011 (cộng 2 số được số thứ 3). Ý tôi hỏi là trong quy tắc 1 có tính số bị lặp kg
 
xiilliilliix đã viết:
Em có tập hợp các số bao gồm 4 số từ tập hợp {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} như trong file. Đề bài:
1. Hãy tìm ra tập hợp gồm 3 số với điều kiện cứ 2 số cộng lại được số thứ 3, ko cần phân biệt thứ tự, vị trí như ...... số 4159 hoặc 9154 thì sẽ có 1+4=5 và 4+5=9 . Show kết quả 145 và 459
2. Các số liên tiếp vd 3214 thì sẽ ra kết quả là 3 số liên tiếp là 123 và 234; 4 số liên tiếp là 1234. Show kết quả 145 và 459.
3. Các số tăng theo cấp số cộng ( +2, +3). Vd 4027 sẽ có kết quả là 024 (+2) hoặc số 6093 sẽ có kết quả là 036 và 369. Show kết quả 036 và 369.
Vd : số 9453 trong file sẽ có 2 kết quả của điều kiện 1 và điều kiện 2 là 4+5=9 và 3-4-5 liên tục. Show kết quả 459 và 345.
Chân thành cảm ơn các anh chị.
Chúc anh chị cuối tuần vui vẻ.
Nhấp chuột vào đây để mở rộng...
Bạn chạy đoạn code này
Mã: 
Sub XiLiRaCaiZi()
Dim SArr, Res() As String
Dim Tmp, i, j, js
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    If Tmp(0) + Tmp(1) = Tmp(2) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(2)
    If Tmp(0) + Tmp(1) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(3)
    If Tmp(0) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(2) & Tmp(3)
    If Tmp(1) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(2) & Tmp(3)
    For j = 1 To 4
        If InStr(Join(Tmp), Tmp(0) + j) And InStr(Join(Tmp), Tmp(0) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(0) + j & Tmp(0) + j * 2
        End If
        If InStr(Join(Tmp), Tmp(1) + j) And InStr(Join(Tmp), Tmp(1) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(1) + j & Tmp(1) + j * 2
        End If
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
 
TheThienChu đã viết:
Bạn chạy đoạn code này
Mã: 
Sub XiLiRaCaiZi()
Dim SArr, Res() As String
Dim Tmp, i, j, js
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    If Tmp(0) + Tmp(1) = Tmp(2) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(2)
    If Tmp(0) + Tmp(1) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(3)
    If Tmp(0) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(2) & Tmp(3)
    If Tmp(1) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(2) & Tmp(3)
    For j = 1 To 4
        If InStr(Join(Tmp), Tmp(0) + j) And InStr(Join(Tmp), Tmp(0) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(0) + j & Tmp(0) + j * 2
        End If
        If InStr(Join(Tmp), Tmp(1) + j) And InStr(Join(Tmp), Tmp(1) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(1) + j & Tmp(1) + j * 2
        End If
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
TheThienChu đã viết:
Bạn chạy đoạn code này
Mã: 
Sub XiLiRaCaiZi()
Dim SArr, Res() As String
Dim Tmp, i, j, js
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    If Tmp(0) + Tmp(1) = Tmp(2) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(2)
    If Tmp(0) + Tmp(1) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(3)
    If Tmp(0) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(2) & Tmp(3)
    If Tmp(1) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(2) & Tmp(3)
    For j = 1 To 4
        If InStr(Join(Tmp), Tmp(0) + j) And InStr(Join(Tmp), Tmp(0) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(0) + j & Tmp(0) + j * 2
        End If
        If InStr(Join(Tmp), Tmp(1) + j) And InStr(Join(Tmp), Tmp(1) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(1) + j & Tmp(1) + j * 2
        End If
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
Nhấp chuột vào đây để mở rộng...

Em quên mất trường hợp sau
+ trong trường hợp 2 số cộng lại được số thứ 3 thì các cộng bằng 10 thì tính số thứ 3 = 0. VD: trường hợp 1 + 9 = 0, 2 + 8 = 0, 3 + 7 = 0
+ các trường hợp như 910 vừa là liên tục (điều kiện 2) vừa là 2 số cộng lại thì số thứ 3 (điều kiện 1) và 901 tính lặp của tập hợp các số từ 0-9 rồi từ 9 lại chạy tiếp về 0 , 1 , 2 (vòng lặp)
 
TheThienChu đã viết:
Bạn chạy đoạn code này
Mã: 
Sub XiLiRaCaiZi()
Dim SArr, Res() As String
Dim Tmp, i, j, js
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    If Tmp(0) + Tmp(1) = Tmp(2) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(2)
    If Tmp(0) + Tmp(1) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(1) & Tmp(3)
    If Tmp(0) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(2) & Tmp(3)
    If Tmp(1) + Tmp(2) = Tmp(3) Then Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(2) & Tmp(3)
    For j = 1 To 4
        If InStr(Join(Tmp), Tmp(0) + j) And InStr(Join(Tmp), Tmp(0) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(0) & Tmp(0) + j & Tmp(0) + j * 2
        End If
        If InStr(Join(Tmp), Tmp(1) + j) And InStr(Join(Tmp), Tmp(1) + j * 2) Then
            Res(i, 1) = Res(i, 1) & " " & Tmp(1) & Tmp(1) + j & Tmp(1) + j * 2
        End If
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Thanks anh
 
xiilliilliix đã viết:
Em quên mất trường hợp sau
+ trong trường hợp 2 số cộng lại được số thứ 3 thì các cộng bằng 10 thì tính số thứ 3 = 0. VD: trường hợp 1 + 9 = 0, 2 + 8 = 0, 3 + 7 = 0
+ các trường hợp như 910 vừa là liên tục (điều kiện 2) vừa là 2 số cộng lại thì số thứ 3 (điều kiện 1) và 901 tính lặp của tập hợp các số từ 0-9 rồi từ 9 lại chạy tiếp về 0 , 1 , 2 (vòng lặp)
Nhấp chuột vào đây để mở rộng...
Còn quên gì nữa không bạn
 
xiilliilliix đã viết:
da. ko anh. Anh làm ơn giúp em,
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub TheNayDaDungChua()
Dim SArr, Res() As String
Dim Tmp, i, j, js, x
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    For j = 0 To UBound(Tmp) - 1
        For js = j + 1 To UBound(Tmp)
            For x = 0 To UBound(Tmp)
                If x <> j And x <> js Then
                    If (Tmp(j) + Tmp(js)) Mod 10 = Tmp(x) Then
                        Res(i, 1) = Res(i, 1) & " " & Tmp(j) & Tmp(js) & Tmp(x)
                    End If
                End If
            Next x
        Next js
    Next j
    For j = 1 To 4
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10
            End If
        Next js
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) _
            And InStr(Join(Tmp), (Tmp(js) + j * 3) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10 _
                & (Tmp(js) + j * 3) Mod 10
            End If
        Next js
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Res)
Tmp = Split(Res(i, 1))
    For j = 0 To UBound(Tmp)
        If .exists(Tmp(j)) = False Then .Add Tmp(j), ""
    Next j
    Res(i, 1) = Join(.keys)
    .RemoveAll
Next i
End With

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
code này đã loại bỏ những kết quả trùng trong 1 ô cho đỡ rối mắt & đã bổ sung cho dãy 4 số.
Có 1 vài kết quả code tính đúng mà đọc kết quả xong phải nghĩ 1 lúc mới ra cách tính.

Thế mới biết số má vất vả thế nào. Bạn nhỉ?!$@!!//**/
Vui vẻ nhé bạn
 
TheThienChu đã viết:
Mã: 
Sub TheNayDaDungChua()
Dim SArr, Res() As String
Dim Tmp, i, j, js, x
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    For j = 0 To UBound(Tmp) - 1
        For js = j + 1 To UBound(Tmp)
            For x = 0 To UBound(Tmp)
                If x <> j And x <> js Then
                    If (Tmp(j) + Tmp(js)) Mod 10 = Tmp(x) Then
                        Res(i, 1) = Res(i, 1) & " " & Tmp(j) & Tmp(js) & Tmp(x)
                    End If
                End If
            Next x
        Next js
    Next j
    For j = 1 To 4
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10
            End If
        Next js
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) _
            And InStr(Join(Tmp), (Tmp(js) + j * 3) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10 _
                & (Tmp(js) + j * 3) Mod 10
            End If
        Next js
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Res)
Tmp = Split(Res(i, 1))
    For j = 0 To UBound(Tmp)
        If .exists(Tmp(j)) = False Then .Add Tmp(j), ""
    Next j
    Res(i, 1) = Join(.keys)
    .RemoveAll
Next i
End With

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
code này đã loại bỏ những kết quả trùng trong 1 ô cho đỡ rối mắt & đã bổ sung cho dãy 4 số.
Có 1 vài kết quả code tính đúng mà đọc kết quả xong phải nghĩ 1 lúc mới ra cách tính.

Thế mới biết số má vất vả thế nào. Bạn nhỉ?!$@!!//**/
Vui vẻ nhé bạn
Nhấp chuột vào đây để mở rộng...
em không hiểu gì luôn, ngu toán :(
 
Sao mấy cây đại thụ về công thức lại tìm hiểu VBA làm gì vậy hả trời
 
PacificPR đã viết:
Sao mấy cây đại thụ về công thức lại tìm hiểu VBA làm gì vậy hả trời
Nhấp chuột vào đây để mở rộng...

Mấy cái đề bài này thuộc vè lập trình toán. Làm bằng C/C++ dễ hơn nhiều.
VBA là lập trình hổ trợ ứng dụng. Dùng VBA để giải mấy bài này mất thì giờ mà chả học được bao nhiêu.
 
TheThienChu đã viết:
Mã: 
Sub TheNayDaDungChua()
Dim SArr, Res() As String
Dim Tmp, i, j, js, x
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    For j = 0 To UBound(Tmp) - 1
        For js = j + 1 To UBound(Tmp)
            For x = 0 To UBound(Tmp)
                If x <> j And x <> js Then
                    If (Tmp(j) + Tmp(js)) Mod 10 = Tmp(x) Then
                        Res(i, 1) = Res(i, 1) & " " & Tmp(j) & Tmp(js) & Tmp(x)
                    End If
                End If
            Next x
        Next js
    Next j
    For j = 1 To 4
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10
            End If
        Next js
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) _
            And InStr(Join(Tmp), (Tmp(js) + j * 3) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10 _
                & (Tmp(js) + j * 3) Mod 10
            End If
        Next js
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Res)
Tmp = Split(Res(i, 1))
    For j = 0 To UBound(Tmp)
        If .exists(Tmp(j)) = False Then .Add Tmp(j), ""
    Next j
    Res(i, 1) = Join(.keys)
    .RemoveAll
Next i
End With

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
code này đã loại bỏ những kết quả trùng trong 1 ô cho đỡ rối mắt & đã bổ sung cho dãy 4 số.
Có 1 vài kết quả code tính đúng mà đọc kết quả xong phải nghĩ 1 lúc mới ra cách tính.

Thế mới biết số má vất vả thế nào. Bạn nhỉ?!$@!!//**/
Vui vẻ nhé bạn
Nhấp chuột vào đây để mở rộng...
Mấy anh lập trình toàn siêu nhân. Bái phục
 
TheThienChu đã viết:
Mã: 
Sub TheNayDaDungChua()
Dim SArr, Res() As String
Dim Tmp, i, j, js, x
SArr = Sheet1.Range("F2", Sheet1.Range("F2").End(xlDown))
ReDim Res(1 To UBound(SArr), 1 To 1)

For i = 1 To UBound(SArr)
ReDim Tmp(3): js = 0
    For j = 0 To 9
        If Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) >= 1 Then
            For js = js To js + Len(SArr(i, 1)) - Len(Replace(SArr(i, 1), j, "")) - 1
                Tmp(js) = j
            Next js
        End If
    Next j
    For j = 0 To UBound(Tmp) - 1
        For js = j + 1 To UBound(Tmp)
            For x = 0 To UBound(Tmp)
                If x <> j And x <> js Then
                    If (Tmp(j) + Tmp(js)) Mod 10 = Tmp(x) Then
                        Res(i, 1) = Res(i, 1) & " " & Tmp(j) & Tmp(js) & Tmp(x)
                    End If
                End If
            Next x
        Next js
    Next j
    For j = 1 To 4
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10
            End If
        Next js
        For js = 0 To UBound(Tmp)
            If InStr(Join(Tmp), (Tmp(js) + j) Mod 10) And InStr(Join(Tmp), (Tmp(js) + j * 2) Mod 10) _
            And InStr(Join(Tmp), (Tmp(js) + j * 3) Mod 10) Then
                Res(i, 1) = Res(i, 1) & " " & Tmp(js) & (Tmp(js) + j) Mod 10 & (Tmp(js) + j * 2) Mod 10 _
                & (Tmp(js) + j * 3) Mod 10
            End If
        Next js
    Next j
Res(i, 1) = Trim(Res(i, 1))
Next i
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Res)
Tmp = Split(Res(i, 1))
    For j = 0 To UBound(Tmp)
        If .exists(Tmp(j)) = False Then .Add Tmp(j), ""
    Next j
    Res(i, 1) = Join(.keys)
    .RemoveAll
Next i
End With

Sheet1.Range("H2").CurrentRegion.ClearContents
Sheet1.Range("H2").Resize(UBound(SArr), 1) = Res
End Sub
code này đã loại bỏ những kết quả trùng trong 1 ô cho đỡ rối mắt & đã bổ sung cho dãy 4 số.
Có 1 vài kết quả code tính đúng mà đọc kết quả xong phải nghĩ 1 lúc mới ra cách tính.

Thế mới biết số má vất vả thế nào. Bạn nhỉ?!$@!!//**/
Vui vẻ nhé bạn
Nhấp chuột vào đây để mở rộng...
Dòng số 22 cái kết quả 593 là điều kiện gì mà nó ra em cũng ko hiểu? Thanks anh
 

File đính kèm

  • GPExcel.xlsx
    11.4 KB · Đọc: 2
Lần chỉnh sửa cuối:
xiilliilliix đã viết:
Thôi em hiểu rồi, 5+4=9 , 9+4 =13 lấy 3.Thanks anh
Nhấp chuột vào đây để mở rộng...
Xem giờ viết bài thấy sau 31 phút bạn mới hiểu được chuỗi 593. Gặp chuỗi 4 số coi chừng nhũn não.
Thôi thì tham sân si, bớt gì tốt đó.

Hy vọng bạn gặp nhiều may mắn.
Thân chào.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
246
Đọc
13K
trannguyen197
T
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
28
Đọc
607
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
9
Đọc
239
ptm0412
ptm0412
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
14
Đọc
271
ptm0412
ptm0412
B
Định dạng condition formatting, đếm hỗn hợp dữ liệu merge và không merge
Trả lời
7
Đọc
120
Hoàng Tuấn 868
H
T
Tối ưu hóa hàm lấy dữ liệu từ bảng Tổng sang bảng chi tiết
Trả lời
7
Đọc
215
Hoàng Tuấn 868
H
nguyenphuochien166
Cách Vlookup hoặc cách lấy thông tin dữ liệu có dấu mũ lũy thừa?
    • Cười
Trả lời
6
Đọc
109
tigertiger
tigertiger
T
Không đếm dữ liệu rỗng trong PivotTable
Trả lời
8
Đọc
1K
hoangtuaotrang_hp_vn
H
B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
3
Đọc
115
batista911
B
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
1
Đọc
95
hoangtuaotrang_hp_vn
H
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
5
Đọc
158
kimtanmap
kimtanmap
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
1
Đọc
80
hoangtuaotrang_hp_vn
H
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
0
Đọc
53
huynhnhu1234
huynhnhu1234
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
7
Đọc
131
tranvansau278
T
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
123
Nguyễn Linh hn94
N
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
164
zarra
zarra
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Cảm ơn
    • Thích
Trả lời
5
Đọc
296
anhdepjai
A
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
17
Đọc
20K
DeTong
D
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
307
cantl
C
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom