Hàm VLOOKUP Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Hàm VLOOKUP trong VBA (1 người xem)

• Thread starter Thread starter dat_viet
• Ngày gửi Ngày gửi 6/4/10

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) D

dat_viet

Thành viên mới

Tham gia 2/11/09 Bài viết 5 Được thích 1 'Input documents name in inT Mã: Sao chép. Sub Input_name_inT() Dim par As Integer Dim tem As String Dim name As String Sheets("inT").Select If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter End If If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If Range("D6").Select Do Until Selection.Value = "" If Selection.Offset(0, 12).Value = "" And Selection.Offset(0, 11).Value = "" And Selection.Offset(0, 10).Value = "" Then tem = "8455001-" & Selection.Value [B] name = Application.WorksheetFunction.VLookup(tem, Range(Sheets("CMDR"), "B1:C500"), 2, False)[/B] Selection.Offset(0, 5).Value = name If Selection.Offset(0, 5).Value <> "-" Then Selection.Offset(0, 12).Value = "FL" Else: Selection.Offset(0, 11).Value = "EL" End If End If Selection.Offset(1, 0).Select Loop End Sub Trên đây là đoạn code của em, các bác xem giúp dòng n đậm bị sai chỗ nào. Ý đồ của em là tìm tên của tài liệu phát hành trong sheet inT, dựa trên đối chiếu đánh số của tài liệu đó các tài liệu đã có sẳn tại một sheet khác (CMDR). Hàm em xử dụng trong excel là : =VLOOKUP("8455001-"&D6;FEED!B1:C500;2;FALSE). Chạy đc, nhưng giờ em muốn chuyển qua VBA cho tiện. Chỉnh sửa lần cuối bởi điều hành viên: 6/4/10 Sắp xếp theo thời gian sắp xếp theo bầu chọn

ptm0412

Bad Excel Member

Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,809 Được thích 37,517 Donate (Momo) Giới tính Nam Nghề nghiệp Consultant

name = Application.WorksheetFunction.VLookup(tem, Range(Sheets("CMDR"), "B1:C500"), 2, False) Nhấp chuột vào đây để mở rộng...

1. Không nên đặt tên biến bằng 1 từ khoá như "name" 2. thay Range(Sheets("CMDR"), "B1:C500") bằng Sheets("CMDR").Range("B1:C500") Câu lệnh trở thành: PHP: Sao chép. Name1 = Application.WorksheetFunction.VLookup(tem, Sheets("CMDR").Range("B1:C500"), 2, False) Không có dữ liệu mẫu nên không test được, bạn test thử. Lần chỉnh sửa cuối: 7/4/10 Upvote 0 D

dat_viet

Thành viên mới

Tham gia 2/11/09 Bài viết 5 Được thích 1 Hi cảm ơn bạn đã giải đáp thắc mắc mình. Mình đã sửa lại và it works Mình hỏi tí về định nghĩa một range trong VBA : par = Worksheets("Input").Range("B3") + 4 Set tabfeed = Worksheets("FEED").Range("B3:C-par") Nguyên gốc par là một biến integer trong c trình. Mình muốn tạo một bảng tabfeed trích ra từ sheet FEED, từ ô B3 đến C-par Một lần nữa cảm ơn bạn đã giúp mình. Upvote 0

ptm0412

Bad Excel Member

Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,809 Được thích 37,517 Donate (Momo) Giới tính Nam Nghề nghiệp Consultant PHP: Sao chép. Set tabfeed = Worksheets("FEED").Range("B3:C" & par) Upvote 0

levanduyet

Hãy để gió cuốn đi.

Thành viên danh dự Tham gia 30/5/06 Bài viết 1,798 Được thích 4,707 Giới tính Nam Một dạng hàm VLOOKUP được dùng trong VBA: Mã: Sao chép. Function ReturnInfo(wsName As String, ColToFind As Long, sFindValue As String, ColGetText As Integer) As String 'Return the text at ColGetText with the sName at the first column Dim rFound As Range ' Return: ' error If error occur ' vbNullStrign If can not find ' Value If can find the value On Error GoTo ErrorHandler Set rFound = Sheets(wsName).Columns(ColToFind).Find(sFindValue, lookat:=xlWhole) If rFound Is Nothing Then ReturnInfo = vbNullString Else ReturnInfo = rFound.Offset(, ColGetText).Value End If ErrorExit: Exit Function ErrorHandler: ReturnInfo = "error" Resume ErrorExit End Function Lê Văn Duyệt Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

levanduyet đã viết: Một dạng hàm VLOOKUP được dùng trong VBA: Mã: Sao chép. Function ReturnInfo(wsName As String, ColToFind As Long, sFindValue As String, ColGetText As Integer) As String 'Return the text at ColGetText with the sName at the first column Dim rFound As Range ' Return: ' error If error occur ' vbNullStrign If can not find ' Value If can find the value On Error GoTo ErrorHandler Set rFound = Sheets(wsName).Columns(ColToFind).Find(sFindValue, lookat:=xlWhole) If rFound Is Nothing Then ReturnInfo = vbNullString Else ReturnInfo = rFound.Offset(, ColGetText).Value End If ErrorExit: Exit Function ErrorHandler: ReturnInfo = "error" Resume ErrorExit End Function Lê Văn Duyệt Nhấp chuột vào đây để mở rộng...

Để đạt đến mức độ DÒ TÌM KHÔNG CHÍNH XÁC như VLOOKUP thì không thể dùng Find Methoad được đâu Duyệt à! ---> E rằng để viết 1 hàm y chang như VLOOKUP chắc không dể dàng chút nào! Upvote 0

levanduyet

Hãy để gió cuốn đi.

Thành viên danh dự Tham gia 30/5/06 Bài viết 1,798 Được thích 4,707 Giới tính Nam

ndu96081631 đã viết: Để đạt đến mức độ DÒ TÌM KHÔNG CHÍNH XÁC như VLOOKUP thì không thể dùng Find Methoad được đâu Duyệt à! ---> E rằng để viết 1 hàm y chang như VLOOKUP chắc không dể dàng chút nào! Nhấp chuột vào đây để mở rộng...

Anh nói cụ thể được không? Em dùng hàm này cũng nhiều rồi, nhưng em dò tìm chuổi mà thôi. Thấy kết quả cũng chính xác. Lê Văn Duyệt Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

levanduyet đã viết: Anh nói cụ thể được không? Em dùng hàm này cũng nhiều rồi, nhưng em dò tìm chuổi mà thôi. Thấy kết quả cũng chính xác. Lê Văn Duyệt Nhấp chuột vào đây để mở rộng...

Dò tìm không chính xác thường áp dụng cho trường hợp bảng dò đã được sort trước Ví dụ: =VLOOKUP(Trị dò,$A$1:$B$8,2) Ở đây, trị dò sẽ được dò trong bảng A1:B8, chỉ cần tìm được giá trị nào trong cột A sao cho nó NHỎ HƠN GẦN NHẤT VỚI TRỊ DÒ thì sẽ chiếu sang cột B và lấy kết quả Xếp loại học sinh thường dùng kiểu dò này (Điểm thì đâu khi nào trùng chính xác với bảng dò) Hãy xem file ví dụ đính kèm này ---> Đây chính là kiểu dò tìm không chính xác... Và tôi nghĩ để xây dựng 1 hàm tương tự thế thật chẳng dể dàng gì

File đính kèm

• Test.xls Test.xls 15 KB · Đọc: 770

Upvote 0 M

man231186

Thành viên mới

Tham gia 11/10/07 Bài viết 37 Được thích 10 Xin cho em hỏi với 1 giá trị dò tìm xuất hiện nhiều lần thì phải làm cách nào để có thể phân biệt các lần xuất hiện đó để tìm thấy giá trị tương ứng với từng lần xuất hiện nhỉ? Upvote 0 N

ngocquantt

Thành viên mới

Tham gia 6/11/18 Bài viết 1 Được thích 0

man231186 đã viết: Xin cho em hỏi với 1 giá trị dò tìm xuất hiện nhiều lần thì phải làm cách nào để có thể phân biệt các lần xuất hiện đó để tìm thấy giá trị tương ứng với từng lần xuất hiện nhỉ? Nhấp chuột vào đây để mở rộng...

bạn thử với file này nhé

File đính kèm

• Test.xlsx Test.xlsx 8.2 KB · Đọc: 149

Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

L nhờ hoàn thiện file dò xổ số

• levovantoan
• Hôm qua, lúc 23:25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 21 Hôm qua, lúc 23:25 levovantoan L K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 13 Đọc 274 Hôm qua, lúc 19:07 ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• • 

• HeSanbi
• 13/12/25
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 218 Hôm qua, lúc 17:38 HeSanbi Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 43 Đọc 21K Hôm qua, lúc 15:48 Maika8008 Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 916 Hôm qua, lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Hôm qua, lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• Hôm qua, lúc 14:01
• Google Sheets

Trả lời 0 Đọc 15 Hôm qua, lúc 14:01 Na7979 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 403 Hôm qua, lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 228 Hôm qua, lúc 08:11 minhnghia123 M Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 18 Đọc 626 Hôm qua, lúc 00:08 Gà Con yêu VBA M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 148 Thứ năm lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 152 Thứ năm lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 110 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 331 Thứ tư lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 431 Thứ tư lúc 10:20 dieppk.nb92 D CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 907 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 592 Thứ hai lúc 16:19 eagle12 E H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• 13/12/25
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 158 Thứ hai lúc 05:30 DeTong D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 37
• thanthanhan 22
• dungpham01 19
• ongke0711 19
• eagle12 16
• nguyenanhtruong2409 16
• ptm0412 16
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 9
• dieppk.nb92 8
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6
• kaoehtkid 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 64
• Maika8008 31
• thanthanhan 18
• ongke0711 17
• ptm0412 16
• HeSanbi 14
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Mr_Siro 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom