Hỏi về kết hợp vlookup và vòng lặp For.

Liên hệ QC

beckentan

Thành viên mới
Tham gia
18/3/13
Bài viết
25
Được thích
2
1. Giới thiệu bản thân: Em MỚI tập tành với VBA.
2.Vấn đề:
File của em có 2 sheet(DATA và XUAT), em muốn dùng VBA để lấy dữ liệu từ sheet DATA điền qua sheet XUAT.
Em tự suy luận theo hướng sẽ sử dụng vòng lặp for kết hợp vlookupfunction, nhưng không giải quyết được vấn đề vì code bị lỗi.
Nếu làm bằng hàm excel thì dùng vlookup hoặc Index(Match()), nhưng khi sử dụng VBA để làm thì em không biết phải làm thế nào.
3. Thông tin code như sau:
Sub timkiem()
Dim i, j As Long
Set Vungtimkiem = Sheets(1).Range("B:X")
For i = 12 To 20
For j = 3 To 22
For n = 3 To 23
Sheets(3).Cells(i, j).Value = Application.WorksheetFunction.vlookup(Sheets(3).Cells(i, 1).Value, Vungtimkiem, n, 0)
Next n
Next j
Next i
End Sub
Trong đó i là số hàng, j là số cột, n là sô cột khi dùng hàm vlookup cần trả về.
4. Vấn đề cần hỏi:
Em nhờ mọi người chỉ giúp phần code nêu ở trên sai ở đâu và cách sửa ?
Để giải quyết trường hợp này còn cách khác tốt hơn không ah ?
Từ khóa và bài đăng để tìm hiểu về vấn đề này tìm như thế nào ah vì em đã seach trên diễn đàn nhưng em đọc những bài không liên quan lắm.
5. Cám ơn mọi người đã quan tâm bài viết của em, và cám ơn sự chia sẻ của mọi người ah.
 

File đính kèm

  • admin 11.xlsm
    42.3 KB · Đọc: 14
Lần chỉnh sửa cuối:
Bạn phuocam mình có up file bạn xem giúp mình với, mình đã thử bỏ chữ WorksheetFunction mà vẫn không được hihi. Cám ơn bạn.
 
Upvote 0
(/ấn đề của bạn là đưa file lên & mô tả công việc chỉnh chu để được hướng dẫn tốt hơn.
 
Upvote 0
Dạ em up file lên rồi ah,tại soạn xong em quên ah. Với mô tả công việc em có viết trong phần "2. Vấn đề". Nhờ anh SA_DQ xem giúp em với ah, em cám ơn ah.
 
Upvote 0
Mới học thì cần học từ từ thôi. Nắm chắc 3 bài 4-5-6 rồi mới tính tiếp.
Giờ còn chưa biết khai báo biến cơ mà.


1592801082287.png
 
Upvote 0
Tôi chỉ nói cái gì gây ra lỗi trong code của bạn thôi nhé, không bàn đến mấy cái khác.
Sheets(3) là sheet thứ 3 mà trong file chỉ có 2 sheet >> lỗi
 
Upvote 0
Mới học thì cần học từ từ thôi. Nắm chắc 3 bài 4-5-6 rồi mới tính tiếp.
Giờ còn chưa biết khai báo biến cơ mà.


View attachment 239729
Bài đã được tự động gộp:

Cám ơn bác befaint, cám ơn bác bỏ thời gian ra ngâm cứu với viết code giúp em ah, với chỉ chụp hình cho em đánh lại học được cách viết. Cảm thấy bác có tâm lắm ah, hihi cám ơn bác nhiều ah. Mà bác rảnh xem giúp em lại em đánh ik vậy mà chạy ra chỉ báo " Khong tim thay" thôi ah. em sẽ vào đừng link của bác học ah, trước đó em học youtube. Cám ơn bác lần nwuax nhiều ah.
 
Upvote 0
Vội quá, dục tốc bất đạt.
Bạn hỏi 2 vấn đề. Mới được có 1 mà đã bay đi.

Các bài trên giúp cho bạn bắt lỗi worksheet tùm lum và lỗi hàm VLookup.
Phần sau hướng dẫn vấn đề thứ 2, vòng lặp For:
Biểu thức này chỉ thay đổi với n, vòng lặp trong cùng:
For n = 3 To 23
Sheets(3).Cells(i, j).Value = Application.WorksheetFunction.vlookup(Sheets(3).Cells(i, 1).Value, Vungtimkiem, n, 0)
Next n
Giá trị cột sau sẽ chồng lên giá trị cột trước.
Tức là bạn VLookup 21 lần để chỉ lấy về 1 giá trị cuối cùng tìm được trong cột thứ 21?
 
Lần chỉnh sửa cuối:
Upvote 0
Mới học thì cần học từ từ thôi. Nắm chắc 3 bài 4-5-6 rồi mới tính tiếp.
Giờ còn chưa biết khai báo biến cơ mà.
...
Bạn bị Ti-Kiu-En hớp hồn rồi

1592816227152.png

Trước khi xác định là không có dữ liệu ngày tháng thì Value2 là code nguy hiểm.
1 vài phần ngàn giây hiệu quả tốc độ không xứng đáng để hứng khả năng nguy hiểm.
 
Upvote 0
Cám ơn Bạn VetMini nhiều, phần #9 của bạn nói đúng rồi đó, giờ thì nhờ bạn nói mình hiểu ra vì sao nó vậy rồi. Mình đang đọc và học lại theo bác Befaint chỉ giúp, mặc dù chưa giải quyết được vấn đề nhưng cũng hiểu thêm chút xíu nữa. Bạn VetMini có thể chỉ giúp mình cách giải quyết đc ko ah ? Cám ơn bạn nhiều.
 
Upvote 0
Tôi có hai điều kiện:
1. không trả lời các câu hỏi có từ vết tắt
2. không trả lời các câu có từ giao thiệp hoặc ta thán theo tiếng Tây. (tôi chấp nhận tiếng Tây từ ngữ kỹ thuật mới khó dịch, từ ngữ giao thiệp thì tiếng Việt lịch sự hơn nhiều)

Tuy nhiên, ở diễn đàn này có nhiều người không kiêng cữ gì cả. Chịu khó chờ mấy người ấy.
 
Upvote 0
Tôi chỉ ước mình đừng hớn hở canh từng cái bình luận để rồi đọc được cái bình luận này. Vâng bạn có nguyên tắc của bạn nhưng câu trả lời của bạn khác nào nói những người giúp đỡ tôi không có "kiêng cử". Tôi biết bạn giỏi và tôi cũng không dám nói gì cả. Nhưng giúp được nhau thì giúp không thì thôi, tôi không biết và cũng không quan tâm nguyên tắc của bạn. Không cần trả lời nhé vì câu trả lời của tôi vi phạm nguyên tắc của bạn rồi AH.
 
Upvote 0
Bài #12 tôi không chủ ý nói riêng với bạn. Tôi giải thích chung cho những người khác vì sao tôi không tiếp tục giải phần 2 của bài.

Tôi cố tình không trích dẫn lại câu của bạn là để bạn có cơ hội xoá câu nhờ vả tôi đi.
Nếu bạn xoá đi các đoạn văn ấy là coi như bạn chưa hề nhờ vả với tôi. Và chả còn gì để "ước đừng" cả.
Nước sông và nước giếng sẽ chả liên quan gì nhau.
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn bị Ti-Kiu-En hớp hồn rồi
Đọc lướt qua không quan tâm vì nghĩ bác nói tới nhân vật nào đó trong phim Hàn (chỉ ở Việt Nam người ta mới xem phim Hàn và tốn nhiều giấy, mực bút viết về các cô cậu diễn viên thôi), hoặc manga của Nhật. Về sau nghĩ kỹ mới hểu nhân vật Ti-Kiu-En là nhân vật nào.

Bác có kiểu "dịch" mà phải hạng "cao thủ" mới đoán được. Thường thì tôi đọc nhưng không hiểu. :D
 
Upvote 0
Web KT

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

Back
Top Bottom