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
Thử sub này xem bạn: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 đỡ ạ
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ã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
Muốn đến là như thế nào? là con trỏ nhảy về dòng số 7?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 ạ.
đúng rồi anh ạ , nó giống như " control F " ấy ạMuốn đến là như thế nào? là con trỏ nhảy về dòng số 7?