Thống kê số liệu từ các số có 4 chữ số theo tổ hợp các số có 3 chữ số (1 người xem)

[SA_DQ]

Trên 1 trang tính có cỡ 1 vạn số liệu là những số có 4 chữ số;

Các bạn giúp tôi tìm tất cả các số có chứa {XYZ} (là số có 3 chữ số) trong nó,

Ví dụ ta cung cấp/nhập vô số 234; Thì macro sẽ tìm trong đống số liệu trên có các số thỏa như sau:
2341, 1243, 1324, 1423, 5432, 3420, . . . .


(1) {X}, {Y} & {Z} không trùng nhau

(2) {X}, {Y} & {Z} có thể trùng nhau, nhưng >0

(3) . . . . . . (Các bạn tự ra điềukiện, hì hì,. . . .)

 

[Ba Tê]

Trên 1 trang tính có cỡ 1 vạn số liệu là những số có 4 chữ số;

Các bạn giúp tôi tìm tất cả các số có chứa {XYZ} (là số có 3 chữ số) trong nó,

Ví dụ ta cung cấp/nhập vô số 234; Thì macro sẽ tìm trong đống số liệu trên có các số thỏa như sau:
2341, 1243, 1324, 1423, 5432, 3420, . . . .


(1) {X}, {Y} & {Z} không trùng nhau

(2) {X}, {Y} & {Z} có thể trùng nhau, nhưng >0

(3) . . . . . . (Các bạn tự ra điềukiện, hì hì,. . . .)

Thất nghiệp, làm thí thí cho đỡ buồn.

 

[ChanhTQ@]

Các bạn thử macro đơn giản hơn này xem sao & chúc vui

[B]Sub TTTT()
[/B] Dim Num As Long, jJ As Long, Tmr As Double
 Dim Tr As Long, Ch As Long, DV As Long
 ReDim Arr(1 To 6) As Long
 Dim Rng As Range, sRng As Range, MyAdd As String
 
 Tmr = Timer
 Num = [c1].Value:          Arr(1) = Num
 Tr = Num \ 100:            Set Rng = [A1].CurrentRegion
 Ch = (Num \ 10) Mod 10:    Rng.Interior.ColorIndex = 0
 DV = Num Mod 10
 Arr(2) = Tr * 100 + DV * 10 + Ch
 Arr(3) = Ch * 100 + Tr * 10 + DV
 Arr(4) = Ch * 100 + DV * 10 + Ch
 Arr(5) = DV * 100 + Ch * 10 + Tr
 Arr(6) = DV * 100 + Tr * 10 + Ch
 For jJ = 1 To 6
    Set sRng = Rng.Find(Arr(jJ), , xlFormulas, xlPart)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            sRng.Interior.ColorIndex = 34 + jJ
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
 Next jJ
 [m65500].End(xlUp).Offset(1).Value = Timer - Tmr
[B]End Sub
[/B]