Mong mọi người giúp mình " phân loại số " trong trường hợp này nha !

[Hoang_Sim]

Vấn đề của mình đã được giải quyết !!! Mod xoá dùm mình bài này đi nha để nhường đất cho các bài mới !!! Cám ơn .....

 

[SA_DQ]

Để cụ thể, vẫn fải hỏi lại bạn chút đĩnh nữa

Là 091 là cố định fải hông? (cho hệ mobi)

Như vậy với đề bài 091###8888 ta tạo ra vòng lặp từ 0 đền 999 là được mà!

For jJ = 0  to 999

   SoDep=91 * 10^7 + jj * 1000 + 8888

Next jJ

 

[Hoang_Sim]

Là 091 là cố định fải hông? (cho hệ mobi)

Như vậy với đề bài 091###8888 ta tạo ra vòng lặp từ 0 đền 999 là được mà!

For jJ = 0  to 999

   SoDep=91 * 10^7 + jj * 1000 + 8888

Next jJ

hông fải !!! hông fải !!!!

ở đây Tứ quý ko nhất thiết phải là 091, Nó có thể là 090, 093, 094, 0123, 0122 ....
Những số đầu mình ko quan tâm mà mình chỉ quan tâm đến Những số cuối mà thui !!! Mong bạn giúp mình với nhé !!! Thân !!!!!

 

[SA_DQ]

hông fải !!! hông fải !!!! Ở đây Tứ quý ko nhất thiết phải là 091, Nó có thể là 090, 093, 094, 0123, 0122 ....
Mình chỉ quan tâm đến Những số cuối mà thui !!!!!!

Tại bạn đưa ra số liệu chứ bộ!;
Ai biểu đưa ra toàn số 091(#) làm chi!

Lại xuất hiện câu hỏi nữa:

Độ dài tối đa của các ký số mà bạn quan tâm là bao nhiêu;

(Hình như hệ 01(#) là dài nhất, mà mình không biết là dài bao nhiêu; quả thật cái ni mình không đám khẳng định, sợ sai!)

Có tìm số đẹp cho các số ĐT cố định không vậy?

 

[concogia]

Kính mong mọi người giúp đỡ mình để phân các loại số như sau:


_________________A__________________B_________
1 __________ 0912348888 __________ Tứ Quý
2 __________ 0912345888 __________ Tam Hoa
3 __________ 0912346868 __________ Lộc Phát
4 __________ 0912346688 __________ Lộc Phát
5 __________ 0912348686 __________ Lộc Phát
6 __________ 0912347979 __________ Thần tài
7 __________ 0912343979 __________ Thần tài
8 __________ 0912343979 __________ Thần tài
9 __________ 0912226789 __________ Số Tiến
10 _________ 0912345345 __________ Số Taxi
11 _________ 0912 34 34 34 ________ Số Taxi
11 _________ 0912334455 __________ Số Kép


A: Là cột SỐ SIM đã có sẵn
B: Là cột LOẠI SIM mình đang muốn phân

Trong đó:

+) Tứ quý là các số có 4 số cuối giống nhau, 4 số cuối này khác với số thứ 5 tính từ phải sang trái.Ví dụ xyyyy (x khác y )
+) Tam hoa các số có 3 số cuối giống nhau, 3 số cuối này khác với số thứ 4 tính từ phải sang trái.Ví dụ xyyy (x khác y )
+) Lộc phát là những số có đuôi là : 6868; 6688; 8686
+)Thần tài là những số có đuôi là : 7979; 3939; 3979
+) Số tiến là những số có đuôi : 1234; 2345; 3456; 4567; 5678; 6789
+) Số Taxi là những số có 6 số cuối dạng ABC ABC hoặc AB AB AB
+) Số kép là những số dạng AA BB CC

Trân thành cám ơn !!!!

Chơi cái hàm "nói sao viết vậy" thử xem

Public Function Sim(Vung)
  Dim Tam, I, J, Chu, Ba, Bon, LP, TT, ST
    Ba = "111 222 333 444 555 666 777 888 999"
    Bon = "1111 2222 3333 4444 5555 6666 7777 8888 9999"
    LP = "66886868"
    TT = "39797939": ST = "123456789"
    If Vung = "" Then Sim = "": Exit Function
       For I = 4 To 8
           Tam = Right(Vung, I)
           Chu = Right(Tam, I - 1)
              Select Case I
                 Case 4
                        If InStr(1, Ba, Chu) And Left(Tam, 1) <> Right(Tam, 1) Then Sim = "Tam hoa": Exit Function
                 Case 5
                        If InStr(1, Bon, Chu) And Left(Tam, 1) <> Right(Tam, 1) Then Sim = "Tu quý": Exit Function
                        If InStr(1, LP, Chu) Then Sim = "Lôc phát": Exit Function
                        If InStr(1, TT, Chu) Then Sim = "Thân tài": Exit Function
                        If InStr(1, ST, Chu) Then Sim = "Sô tiên lên": Exit Function
                Case 7
                        If Right(Chu, 3) = Left(Chu, 3) Or Left(Chu, 2) = Mid(Chu, 3, 2) And Left(Chu, 2) = Right(Chu, 2) Then Sim = "Sô Taxi": Exit Function
                       If Left(Chu, 1) <> Mid(Chu, 3, 1) And Left(Chu, 1) <> Right(Chu, 1) And Left(Chu, 1) = Mid(Chu, 2, 1) And Mid(Chu, 3, 1) = Mid(Chu, 4, 1) And Mid(Chu, 5, 1) = Right(Chu, 1) Then Sim = "So kep": Exit Function
                Case 8
                        Sim = "Sô thây mà ghê": Exit Function
            End Select
       Next
End Function

Bạn test thử xem, tối tính, giờ đi họp nhóm cái đã

 

[Hoang_Sim]

Tại bạn đưa ra số liệu chứ bộ!;
Ai biểu đưa ra toàn số 091(#) làm chi!

Lại xuất hiện câu hỏi nữa:

Độ dài tối đa của các ký số mà bạn quan tâm là bao nhiêu;

(Hình như hệ 01(#) là dài nhất, mà mình không biết là dài bao nhiêu; quả thật cái ni mình không đám khẳng định, sợ sai!)

Có tìm số đẹp cho các số ĐT cố định không vậy?

Đúng rùi bạn ạ ! sim giờ có 2 loại :

Sim 10 số là đầu 09 >>> Nó có độ dài là 10 số ; ví như : 0912345678
Sim 11 số là đầu 01 >>> Nó có độ dài là 10 số ; ví như : 01234567899

Mình muốn làm đúng cho cả 2 loại sim 10 số và 11 số

 

[Hoang_Sim]

Chơi cái hàm "nói sao viết vậy" thử xem

Public Function Sim(Vung)
  Dim Tam, I, J, Chu, Ba, Bon, LP, TT, ST
    Ba = "111 222 333 444 555 666 777 888 999"
    Bon = "1111 2222 3333 4444 5555 6666 7777 8888 9999"
    LP = "66886868"
    TT = "39797939": ST = "123456789"
    If Vung = "" Then Sim = "": Exit Function
       For I = 4 To 8
           Tam = Right(Vung, I)
           Chu = Right(Tam, I - 1)
              Select Case I
                 Case 4
                        If InStr(1, Ba, Chu) And Left(Tam, 1) <> Right(Tam, 1) Then Sim = "Tam hoa": Exit Function
                 Case 5
                        If InStr(1, Bon, Chu) And Left(Tam, 1) <> Right(Tam, 1) Then Sim = "Tu quý": Exit Function
                        If InStr(1, LP, Chu) Then Sim = "Lôc phát": Exit Function
                        If InStr(1, TT, Chu) Then Sim = "Thân tài": Exit Function
                        If InStr(1, ST, Chu) Then Sim = "Sô tiên lên": Exit Function
                Case 7
                        If Right(Chu, 3) = Left(Chu, 3) Or Left(Chu, 2) = Mid(Chu, 3, 2) And Left(Chu, 2) = Right(Chu, 2) Then Sim = "Sô Taxi": Exit Function
                       If Left(Chu, 1) <> Mid(Chu, 3, 1) And Left(Chu, 1) <> Right(Chu, 1) And Left(Chu, 1) = Mid(Chu, 2, 1) And Mid(Chu, 3, 1) = Mid(Chu, 4, 1) And Mid(Chu, 5, 1) = Right(Chu, 1) Then Sim = "So kep": Exit Function
                Case 8
                        Sim = "Sô thây mà ghê": Exit Function
            End Select
       Next
End Function

Bạn test thử xem, tối tính, giờ đi họp nhóm cái đã

Mình đã xem nhưng vẫn chưa hiểu lắm ! mình gà excel lắm ! mong bạn chỉ bảo cụ thể hơn ! cám ơn nhiều !!! nếu bạn ơ Hà nội có thể cho phép mình mời bạn cafê để thay lời cám ơn ko ????

Thân !!!!

 

[Hoang_Sim]

Ta có thể dùng hàm Excel trong từng cell.
* vd lọc số tứ quý:
=IF(MOD(MOD(A1,10000),1111)=0,"Tu Quy","Khong")
* vd lọc số tam hoa:
=IF(MOD(MOD(A1,1000),111)=0,"Tam Hoa","Khong")
* Lọc cả Tứ quý cùng Tam hoa:
=IF(MOD(MOD(A1,10000),1111)=0,"Tu Quy",IF(MOD(MOD(A1,1000),111)=0,"Tam Hoa","Khong"))

Có thể tương tự như thế cho các dạng số....
(những số sau dễ hơn)

Cám ơn ba3ba3 nhiều lắm lắm !!!
Công thức mà ba3ba3 nêu trên rất đúng trong trường hợp phân loại sim Tứ Quý và Tam Hoa.Nhưng để phân biệt các loại sim khác thì rất khó như :

Thần tài đuôi: 3979; 3939; 7979
Lộc Phát đuôi: 6868; 6688; 8686
Số Taxi đuôi: abcabc ; ababab
Số kép đuôi: aabbcc
Số tiến đuôi: 0123,1234,2345,3456,4567,5678,6789

Kính mong bạn giúp đỡ mình nốt cách tìm ra các công thức cho từng trường hợp trên nhé !

 

[concogia]

Cám ơn ba3ba3 nhiều lắm lắm !!!
Công thức mà ba3ba3 nêu trên rất đúng trong trường hợp phân loại sim Tứ Quý và Tam Hoa.Nhưng để phân biệt các loại sim khác thì rất khó như :

Thần tài đuôi: 3979; 3939; 7979
Lộc Phát đuôi: 6868; 6688; 8686
Số Taxi đuôi: abcabc ; ababab
Số kép đuôi: aabbcc
Số tiến đuôi: 0123,1234,2345,3456,4567,5678,6789

Kính mong bạn giúp đỡ mình nốt cách tìm ra các công thức cho từng trường hợp trên nhé !

Theo ý kiến riêng của mình bài này mà dùng công thức là ...."đẻee" luôn, công thức:
=IF(MOD(MOD(A1,10000),1111)=0,"Tu Quy",IF(MOD(MOD(A1,1000),111)=0,"Tam Hoa","Khong"))
chỉ đúng với Tam hoa. còn Tứ quý thì...xem lại
Đây là yêu cầu cúa bạn

+) Tứ quý là các số có 4 số cuối giống nhau, 4 số cuối này khác với số thứ 5 tính từ phải sang trái.Ví dụ xyyyy (x khác y )

Bạn thử nhập 5 số cuối giống nhau xem nó sẽ báo Tứ quý : sai
Viết công thức để tính Tam hoa, Tứ quý thì dễ "ẹct" , Số tiến đuôi không khó, chứ đụng mấy "thằng" sau là "tèo" luôn, "xử" nó bằng công thức chắc cũng được nhưng đau đầu lắm ( ứ viết)
Đây là ý kiến riêng của mình thôi nhé
Thân

 

[Hoang_Sim]

* Ra là bạn đồng ý cách làm nầy nhỉ
* Rõ ràng hàm điều kiện IF ta phải áp dụng trước tiên cho dãy đuôi nhiều ký tự số, rồi giảm dần.
vd, đầu tiên xử lý nhóm đuôi 6 số, ta viết thử số Taxi dạng abcabc
=IF(MOD(A1,1000)=MOD(INT(A1/1000),1000),"Taxi","Khong")
-> hàm trên là so sánh 3 số giữa giống 3 số cuối; [nếu 6 số cuối giống nhau (Lục phú) cũng được gọi là Taxi tuốt do ta chưa viết hàm Lục phú nầy!]
Giờ kết hợp Taxi(abcabc) cùng Tứ quý và Tam hoa:
=IF(MOD(A1,1000)=MOD(INT(A1/1000),1000),"Taxi",IF(MOD(MOD(A1,10000),1111)=0,"Tu Quy",IF(MOD(MOD(A1,1000),111)=0,"Tam Hoa","Khong")))
Bạn viết tiếp...
(thần tài đuôi, lộc phát đuôi tương tự như trên. kép đuôi và tiến đuôi có lẽ khó măm)

ba3ba3 ui ! bạn giúp nốt mình viết công thức Hàm của loại sim " Taxi ab ab ab " và công thức " số tiến " , " số kép " đi mà ! Mình nghĩ mãi cả đêm mà ko sao thực hiện được ! Cám ơn bạn lắm lắm! Nếu bạn ở Hà nội có thể gặp mình để mình cảm ơn được ko? Bia hay cafe đều ok ! Có gì hãy trả lời mình sớm nhé hoặc liên lạc với mình theo số 0916 333 888

Thân !!!!

 

[timkiem_abc]

lọc số điện thoại

xem công thức thôi bạn à,còn làm phục vụ công việc hỏi amin vba,không thì lập bảng phụ cho nhanh,lẹ,chính xác