Tìm các số liền kề với số cần tìm. (1 người xem)

[dung2031983]

[TABLE="class: cms_table"]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][TABLE="width: 500"]
[TR]
[TD]1
[/TD]
[TD]2
[/TD]
[TD]4
[/TD]
[TD]4
[/TD]
[TD]3
[/TD]
[TD]5
[/TD]
[TD]7
[/TD]
[TD]6
[/TD]
[TD]4
[/TD]
[TD]8
[/TD]
[TD]9
[/TD]
[TD][TABLE="class: cms_table"]
[TR="class: px"cms_table_tr""]
[TD]hiện thị số 4 và các số liền kề (24368)
[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="class: cms_table"]
[TR="class: px"cms_table_tr""]
[TD]các số ở ô hiện thị không có (01579)
[/TD]
[TD][/TD]
[/TR]
[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]
Em có một dãy số bất kì thế này và ở ô kết quả em muốn hiện thị một số bất kì và các số liền kề của nó (ở đây em ví dụ tìm số 4 và các số liền kề của nó)

 

[alodie123]

Public Function kiemtralienke(chuoi As String, so_kiem_tra As Integer) As String
kt = ""
If Left(chuoi, 1) Like so_kiem_tra Then
kt = Mid(chuoi, 2, 1) & kt
End If
For i = 2 To Len(chuoi) - 2
If Mid(chuoi, i, 1) Like so_kiem_tra Then
kt = kt & Mid(chuoi, i - 1, 1) & Mid(chuoi, i + 1, 1)
End If
Next i
If Right(chuoi, 1) Like so_kiem_tra Then
kt = kt & Mid(chuoi, Len(chuoi) - 1, 1)
End If
kiemtralienke = kt
End Function
Public Function kiemtrakolienke(chuoi As String, so_kiem_tra As Integer) As String
kt = ""
If Left(chuoi, 1) <> so_kiem_tra And Mid(chuoi, 2, 1) <> so_kiem_tra Then
kt = Left(chuoi, 1) & kt
End If
For i = 2 To Len(chuoi) - 2
If Mid(chuoi, i - 1, 1) <> so_kiem_tra And Mid(chuoi, i + 1, 1) <> so_kiem_tra And Mid(chuoi, i, 1) <> so_kiem_tra Then
kt = kt & Mid(chuoi, i, 1)
End If
Next i
If Right(chuoi, 1) <> so_kiem_tra And Mid(chuoi, Len(chuoi) - 1, 1) <> so_kiem_tra Then
kt = kt & Right(chuoi, 1)
End If
kiemtrakolienke = kt
End Function

bạn bật Alt+F11 => tạo module => copy đoạn code trên vào => đóng lại.
cách dùng : tại ô A1 bạn điền dãy số (VD: 12443576489). Tại ô B1=4. Tại ô C1 =kiemtralienkeo(A1,B1) sẽ cho kết quả.

 

[dung2031983]

Cảm ơn bạn đã trả lời câu hỏi của mình nhưng dãy số của mình nằm ở các cột khác nhau như A1=1, B1=2, C1=4, D1=4....chứ không phải cột A1=1244...Mình cũng thử làm theo cách của bạn nhưng kết quả hiện thị là #NAME?
[TABLE="width: 71"]
[TR]
[TD="class: xl65, width: 71, align: center"][/TD]
[/TR]
[/TABLE]
[TABLE="width: 71"]
[TR]
[TD="class: xl64, width: 71, align: center"][/TD]
[/TR]
[/TABLE]

 

[ChanhTQ@]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[dung2031983]

Cảm ơn
ChanhTQ@ nhé.đúng là cái mình đang cần nhưng bạn có thể cho mình thêm một cột những số từ 0-9 không có trong kết quả được không ví dụ như :kết quả tìm là 01357 còn cột nữa là 24689. Thân!
Mình muốn coppy sang sheet khác hay các hàng tiếp theo thì ko dùng được.Mình chỉ tìm được trong 2 hàng mà bạn gửi cho mình thôi.

 

[dung2031983]

Cảm ơn
ChanhTQ@ nhé.đúng là cái mình đang cần nhưng bạn có thể cho mình thêm một cột những số từ 0-9 không có trong kết quả được không ví dụ như :kết quả tìm là 01357 còn cột nữa là 24689. Thân!

Mình muốn coppy sang sheet khác hay các hàng tiếp theo thì ko dùng được.Mình chỉ tìm được trong 2 hàng mà bạn gửi cho mình thôi.