Hỗ trợ thực hiện hàm Vlookup bằng nút tìm kiếm (2 người xem)

[truyenminh702]

Kính chào các anh chị diễn đàn
Chúc các anh chị nhiều sức khỏe. Do không rành macro.
Cụ thể:
Thực hiện hàm vlookup bằng nút nhấn tìm kiếm. Nếu đánh mã vật tư vô thì chưa hiện, chỉ khi nhấn nút tìm kiếm mới trình bày các dữ liệu bên dưới từ việc vlookup từ dữ liệu ở sheet DATA như đính kèm.
Xin các anh chỉ giúp ạ
Xin chân thành cảm ơn
Trân trọng
Minh Truyền

 

[Hoàng Tuấn 868]

Chúc các anh chị nhiều sức khỏe. Do không rành macro.

Bạn chịu khó sửa tiêu đề về chữ thường cho phù hợp Nội quy Diễn đàn nhé.
Dữ liệu của bạn nếu ít thì dùng hàm cũng tốt mà.

 

[VetMini]

Bạn có thói quen viết tiêu đề toàn chữ hoa nhỉ.

 

[Vàng A Súp]

Bạn có thói quen viết tiêu đề toàn chữ hoa nhỉ.

View attachment 257325

Chắc bác này quen ăn to nói lớn lên viết cũng phải to

 

[SA_DQ]

Chủ bài đăng: Xem bài #14 ở đây: https://www.giaiphapexcel.com/diendan/threads/tạo-code-vba-chạy-hiỂn-thị-các-chỮ-cái-ngẪu-nhiÊn-khÔng-trùng-trong-các-trƯỜng-hỢp.155148/
& chuyện còn lại của bạn là đây:

Sub GPE_COM()
Dim Rng As Range, sRng As Range
Dim Rws As Long

With Sheets("Data")
    Rws = .[B2].CurrentRegion.Rows.Count
    Set Rng = .[A2].Resize(Rws)
    Set sRng = Rng.Find([E8].Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [e10].Value = "Nothing!"
    Else
        [e10].Value = sRng.Offset(, 2).Value 'Tên Tiêng Anh  '
        [E12].Value = sRng.Offset(, 3).Value 'Tên Tiêng Viêt '
        [e16].Value = sRng.Offset(, 1).Value 'Thay Thê   '
        MsgBox "Chúc Vui NHa!", , "GPE.COM Xin Chào!"
    End If
End With
End Sub

 

[truyenminh702]

Bạn chịu khó sửa tiêu đề về chữ thường cho phù hợp Nội quy Diễn đàn nhé.
Dữ liệu của bạn nếu ít thì dùng hàm cũng tốt mà.

cái này chỉ là ít còn bảng tổng rất nhiều cột khác. Chỉ cần làm cái sơ khởi nắm đc cấu trúc sẽ triển tiếp các dữ liệu khác. Xin chân thành cám ơn anh Hoàng Tuấn nhé.

Bài đã được tự động gộp: 19/4/21

Chắc bác này quen ăn to nói lớn lên viết cũng phải to

Cái này do quen khi viết mail cho các phòng ban công ty. bệnh nghề nghiệp đó bạn ơi. Kk

 

[truyenminh702]

Chắc bác này quen ăn to nói lớn lên viết cũng phải to

Cái này do quen khi viết mail cho các phòng ban công ty. bệnh nghề nghiệp đó bạn ơi. Kk

Bạn có thói quen viết tiêu đề toàn chữ hoa nhỉ.

View attachment 257325

Do cái này không biết quy định diễn đàn. lần sau sẽ rút kinh nghiệm. KK

Bài đã được tự động gộp: 19/4/21

Chủ bài đăng: Xem bài #14 ở đây: https://www.giaiphapexcel.com/diendan/threads/tạo-code-vba-chạy-hiỂn-thị-các-chỮ-cái-ngẪu-nhiÊn-khÔng-trùng-trong-các-trƯỜng-hỢp.155148/
& chuyện còn lại của bạn là đây:

Sub GPE_COM()
Dim Rng As Range, sRng As Range
Dim Rws As Long

With Sheets("Data")
    Rws = .[B2].CurrentRegion.Rows.Count
    Set Rng = .[A2].Resize(Rws)
    Set sRng = Rng.Find([E8].Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [e10].Value = "Nothing!"
    Else
        [e10].Value = sRng.Offset(, 2).Value 'Tên Tiêng Anh  '
        [E12].Value = sRng.Offset(, 3).Value 'Tên Tiêng Viêt '
        [e16].Value = sRng.Offset(, 1).Value 'Thay Thê   '
        MsgBox "Chúc Vui NHa!", , "GPE.COM Xin Chào!"
    End If
End With
End Sub

Cám ơn anh.

 

[huhumalu]

Tự edit lại tiêu đề để mấy anh chị đỡ la
Code trong Sheets "GD", thêm cái này vào.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$8" Then
        With Sheets("GD")
            .Range("E10").Value = ""
            .Range("E12").Value = ""
            .Range("E14").Value = ""
        End With
    End If
End Sub

Code trong sub TimKiem

        With Sheets("GD")
            .Range("E10").Value = "=VLOOKUP(E8,DATA!$A$1:$D$7,3,0)"
            .Range("E12").Value = "=VLOOKUP(E8,DATA!$A$1:$D$7,4,0)"
            .Range("E14").Value = "=VLOOKUP(E8,DATA!$A$1:$D$7,2,0)"
        End With

Cách thức là vậy, code theo kiểu quê mùa nhất
còn xào nấu, hay code xịn xò hơn thì tùy biến tiếp.