Nhảy đến dòng có cell có giá trị = giá trị tìm kiếm

[manhhung12]

Chào các bạn
Tôi có 1 bảng tính rất lứn cõ 400trang. khi tôi cần edit số liêu hay nhập liệu trên 1 dòng nào đố thì tôi muốn:
1) co 1 ô nhập giá trị tìm kiếm (giả sử đó là mã khách).
2) sau khi nhập xong mã khách thì nó tìm và so khớp với dl trên bảng, nếu tìm thấy thì con trỏ nhảy về dòng hay ô vừa tìm thấy.
các bạn giúp đỡ với.

cảm ơn nhiều

 

[SA_DQ]

Bạn chạy Code của ai thì hỏi đích danh đi chứ!

sAO KG CÓ AI GIÚP ĐỠ CẢ NHỈ? HÀM CHẠY BÁO LỖI CÁC BẠN GIÚP VỚI. cẢM ƠN NHIỀU

Có mấy người đưa ra tác phẩm của mình; Bạn nói vậy thì ai biết đó là đâu để sửa lỗi giúp bạn (!)
Nếu trong các dòng lệnh, có chưa lệnh tìm kiếm; nếu tìm không thấy & không /chưa có bẩy lỗi thì hiện ra lỗi;
Bạn cho biết có mã lỗi hay không?
Chứ số 4163 này chưa ai gán cho nó là lỗi nào/gì mà!
Chờ tin bạn; Thân ái.!

 

[manhhung12]

TÔI CẢM ƠN BẠN. QUẢ THỰC LÚC LÀM MÀ BỊ CHI PHỐI BỞI Y/C THỜI GIAN THÌ ĐẦU ÓC BI LẪN. VI TRONG CODE TÔI ĐỂ SAI PHƯƠNG THỨC ACTIVATE LAI VIẾT LÀ ACTIVE
CÒN DATA CÓ FORMAT LA TEXT THÌ ỔN NHƯNG ĐỂ GENERAL THÌ NÓ RẤT BỰC MÌNH VÌ CHỈ CẦN TÔI ĐƯA CON TRỎ VÀO Ô SAU ĐÓ ENTER THÌ Y NHƯ RẰNG SỐ 0 Ở ĐẦU BỊ MẤT ĐI. VI DỤ: 024333 THÌ NÓ HIỂN THỊ LA 24333

TÔI BỊ ĐIỀU NÀY LÀM CHO LUẨN QUẢN TỪ SÁNG TỚI GIÒ BẠN À.

cẢM ƠN BẠN NHIỀU

 

[manfred]

cảm ơn đoạn code viết rất hay mình đã sử dụng được nhưng mình vẫn muốn biết thêm về code này, bạn nào có bản hướng dẫn lập trình VBA cho excel không cho mình xin với....nếu mình đọc tài liệu VB6 thì có thể làm được hông? Nhờ mọi người cho mình xin tí kiến thức ạ..

 

[truonghieudt]

Option Explicit

Sub FindID()
Dim Rng As Range, MaKH As String

MaKH = Range("B1")
With Worksheets(1).Range("a1:a" & Range("A65432").End(xlUp).Row)
    Set Rng = .Find(MaKH, LookIn:=xlValues)
    If Not Rng Is Nothing Then Rng.Activate
End With

End Sub

Hãy xem trong file mình đính kèm.

chủ để này lâu rồi,nhưng hi vọng có ai đó có thể giúp mình. nếu trường hợp không có dữ liệu trùng khớp và mình muốn hiện ra thông báo thì làm thế nào nhỉ.

 

[Cu Tồ]

chủ để này lâu rồi,nhưng hi vọng có ai đó có thể giúp mình. nếu trường hợp không có dữ liệu trùng khớp và mình muốn hiện ra thông báo thì làm thế nào nhỉ.

Chỗ này

 If Not Rng Is Nothing Then Rng.Activate

Bạn thay bằng

        If Not Rng Is Nothing Then
                    Rng.Activate
        Else
                MsgBox "khong tim thay"
        End If

 

[SA_DQ]

Viết thế này vui hơn nè:

If  Rng Is Nothing Then
     MsgBox "Không Tìm Thây", ,"Xin Chào!"         
 Else
          Rng.Activate       
 End If

 

[truonghieudt]

MsgBox "Không Tìm Thây", ,"Xin Chào!" Else Rng.Activate

Thật sự cảm ơn bạn. mừng quá cứ nghĩ lâu rồi không ai trả lời. nhưng khi copy đoạn code của bạn vào thì nó cứ hiện thông báo là không tìm thấy dù dữ liệu cần tìm có trong file.

Bài đã được tự động gộp: 18/11/20

Chỗ này

 If Not Rng Is Nothing Then Rng.Activate

Bạn thay bằng

        If Not Rng Is Nothing Then
                    Rng.Activate
        Else
                MsgBox "khong tim thay"
        End If

cảm ơn bạn. Mình đang gà mờ học VBA. bạn có thể giải thích thêm về cách hoạt động của If Not *** Is nothing then không ạ

 

[Cu Tồ]

If Not *** Is nothing then không ạ

IF = nếu , not = phủ định cái gì đó , *** = chủ thể tìm kiếm , is = đại khái là là ,
Nothing = không có gì hay nói cách khác là không tìm thấy . thể phủ định của phủ định = khẳng định .

 

[Nhattanktnn]

IF = nếu , not = phủ định cái gì đó , *** = chủ thể tìm kiếm , is = đại khái là là ,
Nothing = không có gì hay nói cách khác là không tìm thấy . thể phủ định của phủ định = khẳng định .

Chắc phải cụ thể hơn là với biến sau if not (tức Rng hoặc gì đó) phải là Object type, nếu không thì không sử dụng được is nothing

 

[Cu Tồ]

Chắc phải cụ thể hơn là với biến sau if not (tức Rng hoặc gì đó) phải là Object type, nếu không thì không sử dụng được is nothing

Đang giải thích cái câu đó thôi chứ chưa chuyên sâu code
mà đoán là đọc xong cũng hơi mơ hồ chơi

 

[SA_DQ]

. . . . . . . nhưng khi copy đoạn code của bạn vào thì nó cứ hiện thông báo là không tìm thấy dù dữ liệu cần tìm có trong file. . . . cảm ơn bạn. Mình đang gà mờ học VBA. bạn có thể . . .

Phải có file mới xét đoán bệnh này được, chứ khơi khơi mò cua đáy biển mà thôi!