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,867 Được thích 37,605 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,867 Được thích 37,605 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,982

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,982

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

Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 87 Đọc 3K Hôm nay lúc 04:32 SA_DQ C

• Question Question

Tự động điền thông tin từ danh sách vào template, nhờ anh chị trợ giúp (1 người xem)

• chienminhanh
• Hôm qua, lúc 22:19
• Lập Trình với Excel

Trả lời 0 Đọc 31 Hôm qua, lúc 22:19 chienminhanh C

• Question Question

Lấy tỷ giá ngân hàng về file Excel bằng Power Query

• Cá ngừ F1
• 13/8/21
• PowerQuery

Trả lời 11 Đọc 3K Hôm qua, lúc 21:35 ptm0412 SodokuX nhờ Copilot trợ giúp

• SA_DQ
• Hôm qua, lúc 14:14
• Chơi Game với Excel

Trả lời 0 Đọc 41 Hôm qua, lúc 14:14 SA_DQ TaxCode v4.36 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat (2 người xem)

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 21 Đọc 3K Hôm qua, lúc 14:05 HeSanbi A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (9 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 21 Đọc 6K Hôm qua, lúc 11:20 adua29 A

• Dán lên cao

Phần mềm quản lý kho chuyên nghiệp BS Silver (3 người xem)

• Nguyễn Duy Tuân
• 1/10/12
• BLUESOFTS: A-Excel, A-Tools

2 Trả lời 131 Đọc 46K Hôm qua, lúc 08:54 Nguyễn Duy Tuân Sản phẩm từ Python với sự giúp đỡ của Copilot (2 người xem)

• • 
  • 

• Maika8008
• 25/2/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 22 Đọc 609 Thứ hai lúc 13:57 SA_DQ T Xin đoạn code để gửi mail hàng loạt có đính kèm file PDF (1 người xem)

• tuquyen1711
• Chủ nhật lúc 22:26
• Macro4.0 và Dialog Sheet 5.0

Trả lời 1 Đọc 113 Thứ hai lúc 09:25 Thóc Sama Năm mới cháu chúc mừng các bác và toàn thể gia đình GPE (1 người xem)

• • 
  • 

• hongphuong1997
• Chủ nhật lúc 17:18
• Gặp gỡ Offline

Trả lời 2 Đọc 110 Thứ hai lúc 09:23 Thóc Sama

• Question Question

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

• • 
  • 
  • 

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

5 6 7 Trả lời 638 Đọc 95K Chủ nhật lúc 22:14 lephucueh L H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự (1 người xem)

• • 

• hotboykute
• 22/2/26
• Những vấn đề chung

Trả lời 14 Đọc 347 Chủ nhật lúc 15:53 Maika8008 H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp (2 người xem)

• hoanghanh80
• 31/5/24
• Hàm và công thức Excel

Trả lời 10 Đọc 2K Thứ bảy lúc 22:26 dong.nguyen.hdkt D A Gửi tặng file excel kiểm phiếu bầu cử Đại biểu Quốc hội và Hội đồng nhân dân các cấp (2 người xem)

• • 
  • 

• adua29
• 19/5/11
• Ứng dụng cho lĩnh vực khác

Trả lời 24 Đọc 29K Thứ bảy lúc 16:10 ngoclamthkg N Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn

• phuongnam366377
• Thứ bảy lúc 15:27
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 90 Thứ bảy lúc 15:27 phuongnam366377

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (2 người xem)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 79 Đọc 31K Thứ bảy lúc 12:17 HeSanbi V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 22 Đọc 1K Thứ bảy lúc 09:19 Ttipit76 T phân lớp đắp trong san nền và đường giao thông

• vuanhdungtb
• 20/1/10
• Excel và Kỹ Thuật

Trả lời 19 Đọc 55K Thứ sáu lúc 23:03 hoangdung09x2 H Hàm EXACT (1 người xem)

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 5 Đọc 9K Thứ năm lúc 20:46 ptm0412 TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL (4 người xem)

• • 

• vn81206
• 2/2/23
• Cơ sở dữ liệu

Trả lời 70 Đọc 27K Thứ năm lúc 10:29 minhhueyb21 M 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

• SA_DQ 3
• Maika8008 2
• adua29 2
• ThuyMay93 1
• Tuanba1992 1
• fdxfdcfd 1
• lephucueh 1
• tuquyen1711 1
• Thóc Sama 1
• HeSanbi 1
• chienminhanh 1
• ptm0412 1

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

• Maika8008 3
• SA_DQ 2
• ThuyMay93 1
• adua29 1
• ptm0412 1

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