Nhờ giúp Viết macro Timkiem() dùng Inputbox

[ngan_ngo]

xử lý nút tìm kiếm (cmdtimkiem) trên userform
Dùng hàm inputbox() de nhap mã số tài khoản muốn tìm
.nếu tìm thấy : đưa dữ liệu của hàng (Row) vào uerform
.nếu không tìm thấy: xuất thông báo không tìm thấy

e mới học vba nên đành potay. mong anh chi giúp e với...thanks very much!
anh chi xem file vidu và frmcapnhap nha!!

 

[ndu96081631]

xử lý nút tìm kiếm (cmdtimkiem) trên userform
Dùng hàm inputbox() de nhap mã số tài khoản muốn tìm
.nếu tìm thấy : đưa dữ liệu của hàng (Row) vào uerform
.nếu không tìm thấy: xuất thông báo không tìm thấy

e mới học vba nên đành potay. mong anh chi giúp e với...thanks very much!!

Hinh e no day:

Sao bạn không gữi file Excel nhỉ? File frm này không import được

 

[ntxuansuong]

Hình như bạn ấy chung lớp với mình,Cùng đề mà làm chưa có được. Mấy anh chị giúp em với.
View attachment BT TIN TCCB 3.rar flie đính kèm đây

 

[nghiaphuc]

Hình như bạn ấy chung lớp với mình,Cùng đề mà làm chưa có được. Mấy anh chị giúp em với.
View attachment 53883 flie đính kèm đây

Bạn sử dụng code như sau:

Private Sub CmdTimkiem_Click()
    Dim VT As Range
    On Error Resume Next
    Set VT = Range([D11], [D65536].End(xlUp)).Find(TxtSotaikhoan, [D11])
    If VT Is Nothing Then
        MsgBox "Khong co khach hang nao co so tai khoan nay."
    Else
        MsgBox "Thong tin khach hang nam tai hang " & VT.Row
        VT.EntireRow.Select
    End If
    Unload Me
End Sub

Góp ý: Thực ra, để hiển thị ngày hệ thống vào textbox TxtNgayhethong, bạn chỉ cần 1 câu lệnh này là đủ:

TxtNgayhethong = Format(Date, "dd/MM/yyyy")

 

[ntxuansuong]

Bạn sử dụng code như sau:

Private Sub CmdTimkiem_Click()
    Dim VT As Range
    On Error Resume Next
    Set VT = Range([D11], [D65536].End(xlUp)).Find(TxtSotaikhoan, [D11])
    If VT Is Nothing Then
        MsgBox "Khong co khach hang nao co so tai khoan nay."
    Else
        MsgBox "Thong tin khach hang nam tai hang " & VT.Row
        VT.EntireRow.Select
    End If
    Unload Me
End Sub

Góp ý: Thực ra, để hiển thị ngày hệ thống vào textbox TxtNgayhethong, bạn chỉ cần 1 câu lệnh này là đủ:

TxtNgayhethong = Format(Date, "dd/MM/yyyy")

Cảm ơn anh đã giúp đỡ :-*