Tìm kiếm dữ liệu trong text box

Liên hệ QC

phonghavan

Thành viên mới
Tham gia
29/4/17
Bài viết
43
Được thích
8
Giới tính
Nam
Em có 1 file gồm nhiều sổ chi tiết , mà các mã mặt hàng nằm trong text box , em muốn tìm nhanh row chứa mã hàng đó
Ví dụ trong file em muốn tìm mã đến"B10871.01 " nằm trong text box
Rất mong được anh chị giúp đỡ ạ
 

File đính kèm

Em có 1 file gồm nhiều sổ chi tiết , mà các mã mặt hàng nằm trong text box , em muốn tìm nhanh row chứa mã hàng đó
Ví dụ trong file em muốn tìm mã đến"B10871.01 " nằm trong text box
Rất mong được anh chị giúp đỡ ạ
Thử sub này xem bạn:
PHP:
Sub GetShapesRow()
  Dim shp As Shape, i As Long, sRow As Long, Txt As String, Val As String
  On Error Resume Next
  Txt = Application.InputBox("Nhap ma can tim", "Tim dong", "B10871.01", Type:=10)
  For Each shp In ActiveSheet.Shapes
    i = i + 1
    Val = shp.TextFrame.Characters.Text
    Debug.Print Val
    sRow = shp.TopLeftCell.Row
    If InStr(Val, Txt) Then
        MsgBox "Dong chua ma " & Txt & " la: " & sRow
        GoTo End_Sub
    End If
  Next
  MsgBox "Khong tim thay du lieu"
End_Sub:
End Sub
 
Lần chỉnh sửa cuối:
dạ em chưa hiểu lắm ạ , em nhờ anh hướng dẫn thêm chút với ạ
Bài đã được tự động gộp:

Thử sub này xem bạn:
PHP:
Sub GetShapesRow()
  Dim shp As Shape, i As Long, sRow As Long, Txt As String, Val As String
  On Error Resume Next
  Txt = Application.InputBox("Nhap ma can tim", "Tim dong", "B10871.01", Type:=10)
  For Each shp In ActiveSheet.Shapes
    i = i + 1
    Val = shp.TextFrame.Characters.Text
    Debug.Print Val
    sRow = shp.TopLeftCell.Row
    If InStr(Val, Txt) Then
        MsgBox "Dong chua ma " & Txt & " la: " & sRow
        GoTo End_Sub
    End If
  Next
  MsgBox "Khong tim thay du lieu"
End_Sub:
End Sub
ý em là em đang ở một ví trí bất kỳ , em muốn tìm đến vị trí chứa các mã mặt hàng ( có thể mã hàng bất kỳ ) , ví dụ mã
B10871.01 ạ.
 
dạ em chưa hiểu lắm ạ , em nhờ anh hướng dẫn thêm chút với ạ
Bài đã được tự động gộp:


ý em là em đang ở một ví trí bất kỳ , em muốn tìm đến vị trí chứa các mã mặt hàng ( có thể mã hàng bất kỳ ) , ví dụ mã
B10871.01 ạ.
Muốn đến là như thế nào? là con trỏ nhảy về dòng số 7?
 
Web KT

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

Back
Top Bottom