Cách tạo mã code VBA cho hàm vloopkup, chèn thêm dòng dữ liệu (1 người xem)

Liên hệ QC

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

Tôi tuân thủ nội quy khi đăng bài

Huonggiang13

Thành viên chính thức
Tham gia
11/4/23
Bài viết
79
Được thích
0
Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.
 

File đính kèm

Upvote 0
Em đăng mới viết chi tiết hơn và rõ hơn. Anh giúp em nhé

Dạ bên kia em nói không rõ nên e đang lại, trình bầy rõ hơn để nhờ mọi người giúp ạ
Anh giúp em với ạ
1/ Bạn không nên sốt ruột, các thành viên có giúp bạn thì cũng cần thời gian suy nghĩ, viết code, chạy thử, chỉnh sửa... Có thể còn phải hỏi thêm một số ý chưa rõ.
Ví dụ:
A/ Ở file này của bạn tại sheet Điều tra có mã mà bên sheet Dữ liệu không có mã đó thì để trống hay xóa đi hay thế nào...
B/ Nếu lấy hết dữ liệu bên sheet Dữ liệu sang sheet Điều tra thì copy là xong chứ cần gì phải dùng Vlookup nhỉ?
2/ Bạn vội vàng quá nên lại mắc lỗi nữa rồi kìa, chữ đỏ đỏ đó.
 
Upvote 0
1/ Bạn không nên sốt ruột, các thành viên có giúp bạn thì cũng cần thời gian suy nghĩ, viết code, chạy thử, chỉnh sửa... Có thể còn phải hỏi thêm một số ý chưa rõ.
Ví dụ:
A/ Ở file này của bạn tại sheet Điều tra có mã mà bên sheet Dữ liệu không có mã đó thì để trống hay xóa đi hay thế nào...
B/ Nếu lấy hết dữ liệu bên sheet Dữ liệu sang sheet Điều tra thì copy là xong chứ cần gì phải dùng Vlookup nhỉ?
2/ Bạn vội vàng quá nên lại mắc lỗi nữa rồi kìa, chữ đỏ đỏ đó.
1/ em không sốt ruột nhưng mong anh và mọi người giúp em
A/ Nếu ở sheet Điều tra có mã mà bên sheet dữ liệu không có mã đó thì để trống
B/ Vì đây chỉ là VD thôi em cần link dữ liệu hàng trăm hàng, và các công đoạn khác nhau
2/ Em nói em mới nên thông cảm giúp em mà
 
Upvote 0
1/ em không sốt ruột nhưng mong anh và mọi người giúp em
A/ Nếu ở sheet Điều tra có mã mà bên sheet dữ liệu không có mã đó thì để trống
B/ Vì đây chỉ là VD thôi em cần link dữ liệu hàng trăm hàng, và các công đoạn khác nhau
2/ Em nói em mới nên thông cảm giúp em mà
Như vậy là tại cột A sheet Điều tra thì bạn chỉ cần thêm các mã bên cột A sheet Dữ liệu có mà cột A sheet Điều tra chưa có và sắp xếp theo thứ tự thôi đúng không?
 
Upvote 0
Như vậy là tại cột A sheet Điều tra thì bạn chỉ cần thêm các mã bên cột A sheet Dữ liệu có mà cột A sheet Điều tra chưa có và sắp xếp theo thứ tự thôi đúng không?
Dạ bình thường file dữ liệu của em nhập rất nhiều hàng mà điều tra thì chỉ hàng sự cố. họ sẽ là người gửi list yêu cầu tất cả 50 phòng điều tra lấy dữ liệu
VD: List điều tra là nguyên nhưng thục tế công đoạn mình chia thành 00001-01 hoặc 00001-02 thì mình cần lấy cả ạ. Em không biết làm code thì mới nhờ mọi người nếu đơn giản như anh nói e cung thủ công vlookup được mà. Mong muốn nếu giúp được anh giúp.
Không để người khác giúp em cũng được. Cảm ơn anh(Hạnh họe hơi nhiều ạ)
 
Upvote 0
Dạ bình thường file dữ liệu của em nhập rất nhiều hàng mà điều tra thì chỉ hàng sự cố. họ sẽ là người gửi list yêu cầu tất cả 50 phòng điều tra lấy dữ liệu
VD: List điều tra là nguyên nhưng thục tế công đoạn mình chia thành 00001-01 hoặc 00001-02 thì mình cần lấy cả ạ. Em không biết làm code thì mới nhờ mọi người nếu đơn giản như anh nói e cung thủ công vlookup được mà. Mong muốn nếu giúp được anh giúp.
Không để người khác giúp em cũng được. Cảm ơn anh(Hạnh họe hơi nhiều ạ)
Mình hỏi cho kỹ bởi vì cấu trúc bảng tính của bạn chắc chắn không như ví dụ. Nếu không có cấu trúc chuẩn thì sau này sẽ phải sửa đi sửa lại code. Bạn càng mô tả chuẩn đến đâu thì sẽ có code nhanh và chính xác đến đó. Nhưng nếu bạn nói mình là "Hạnh họe" thì bạn chịu khó chờ người khác vậy.
 
Upvote 0
Mình hỏi cho kỹ bởi vì cấu trúc bảng tính của bạn chắc chắn không như ví dụ. Nếu không có cấu trúc chuẩn thì sau này sẽ phải sửa đi sửa lại code. Bạn càng mô tả chuẩn đến đâu thì sẽ có code nhanh và chính xác đến đó. Nhưng nếu bạn nói mình là "Hạnh họe" thì bạn chịu khó chờ người khác vậy.
Em đưa ra cấu trúc bảo dữ liệu sẽ là như thê. Chứ e đâu dở hơi mức đi hỏi 1 đường làm 1 nẻo phí công à. Vâng để em nhờ người khác. Sau nếu mà bài viết mà có ai như em có nghĩa người mới người ta chưa hiếu diễn đàn nên anh đừng hạnh họe qua. thân ái!!!
CẢM ƠN
 
Upvote 0
Em đưa ra cấu trúc bảo dữ liệu sẽ là như thê. Chứ e đâu dở hơi mức đi hỏi 1 đường làm 1 nẻo phí công à. Vâng để em nhờ người khác. Sau nếu mà bài viết mà có ai như em có nghĩa người mới người ta chưa hiếu diễn đàn nên anh đừng hạnh họe qua. thân ái!!!
CẢM ƠN
Đang viết cho bạn gần xong rồi, chỉ hỏi thêm thông tin cho cẩn thận mà... tiếc quá.
1681318988053.png
 
Upvote 0
Đang viết cho bạn gần xong rồi, chỉ hỏi thêm thông tin cho cẩn thận mà... tiếc quá.
View attachment 288907
Thì em chia sẻ thật mà. Anh thử đặt địa vị anh vào em đi. Nếu đi nhờ vả mà người ta cứ thế hoài thì mình rất khó chịu ấy. E đã nói ở trên em mới tập học VBA và mới vào diễn đàn có gì không nên thì bỏ qua giúp em. Nếu giúp được em điều em biết ơn. Còn e cung diễn giả mong muốn.
Sheet điều tra là khách hàng yêu cầu chúng em làm
Sheet dữ liệu sheet chúng em nhập
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Nếu anh làm được thì anh làm giúp em ạ
 
Upvote 0
Option Explicit

Sub BaoCao()
Dim ws_Data, ws_Dieu_tra As Worksheet
Dim Source, SQL_Command As String

Set ws_Data = ThisWorkbook.Worksheets(SHEET_Data)
Set ws_Dieu_tra = ThisWorkbook.Worksheets(SHEET_Dieu_tra)

Source = ThisWorkbook.FullName

SQL_Command = "SELECT [Ten_Ma_Hang]" & _
"FROM [Data$] " & _
"GROUP BY [Ten_Ma_Hang] " & _
"ORDER BY [Ten_Ma_Hang] ASC "

SQL_QUERY Source, SQL_Command, SHEET_Dieu_tra, "A1"
End Sub

Của bạn nhé không biết có đúng ý của bạn không
1681320426575.png
 

File đính kèm

Upvote 0
Option Explicit

Sub BaoCao()
Dim ws_Data, ws_Dieu_tra As Worksheet
Dim Source, SQL_Command As String

Set ws_Data = ThisWorkbook.Worksheets(SHEET_Data)
Set ws_Dieu_tra = ThisWorkbook.Worksheets(SHEET_Dieu_tra)

Source = ThisWorkbook.FullName

SQL_Command = "SELECT [Ten_Ma_Hang]" & _
"FROM [Data$] " & _
"GROUP BY [Ten_Ma_Hang] " & _
"ORDER BY [Ten_Ma_Hang] ASC "

SQL_QUERY Source, SQL_Command, SHEET_Dieu_tra, "A1"
End Sub

Của bạn nhé không biết có đúng ý của bạn không
View attachment 288910
Dạ chị ơi em muốn được như này ạ
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Cột A bên sheet điều tra là mã bên khách hàng yêu cầu mình phải lấy
 

File đính kèm

  • z4260021439158_dcb35fa74d2d4afd37fd72e5007ff4dc.jpg
    z4260021439158_dcb35fa74d2d4afd37fd72e5007ff4dc.jpg
    118.9 KB · Đọc: 18
Lần chỉnh sửa cuối:
Upvote 0
Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.
@vungoc
Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.
@ngocbaovu Anh giúp em được không ạ
 
Upvote 0
Dạ chị ơi em muốn được như này ạ
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Cột A bên sheet điều tra là mã bên khách hàng yêu cầu mình phải lấy
Dữ kiện bạn đưa ra bị thiếu:
1. sheet điều tra có mà bên sheet dữ liệu không có: được
2. sheets dữ liệu có thì bên sheet điều tra (không có) sẽ tự động inset chèn thêm dòng: được
3. Thế còn sheet điều tra có + bên sheet dữ liệu cũng có: bạn có nêu ra là làm thế nào đâu. Lẽ ra bạn phải nói là lấy hết dữ liệu qua nếu 2 bên cùng có (để khẳng định, vì sẽ có trường hợp cả 2 bên cùng có thì không làm gì cả)

Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?
 
Upvote 0
Dữ kiện bạn đưa ra bị thiếu:
1. sheet điều tra có mà bên sheet dữ liệu không có: được
2. sheets dữ liệu có thì bên sheet điều tra (không có) sẽ tự động inset chèn thêm dòng: được
3. Thế còn sheet điều tra có + bên sheet dữ liệu cũng có: bạn có nêu ra là làm thế nào đâu. Lẽ ra bạn phải nói là lấy hết dữ liệu qua nếu 2 bên cùng có (để khẳng định, vì sẽ có trường hợp cả 2 bên cùng có thì không làm gì cả)

Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?
Dạ đúng ý em là như thế đấy ạ. Tại em không biết diễn giải sao ý. Em sẽ rút kinh nghiệm. Chị làm giúp em với ạ
 
Upvote 0
Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?
Vấn đề này em đã nêu ra ở bài #7 rồi, nhưng bạn ấy không hiểu cách mình làm lại còn cười và bảo là mình "hạnh họe", khổ thế chứ. Viết xong từ lúc ấy rồi đấy nhưng chán chả buồn đưa lên nữa.
 
Upvote 0
Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.
Đọc chú thích trong code:
Rich (BB code):
Sub DoTimCapNhatDL()
    Dim aKT, aDL, aKQ, i&, j&, k&, rw&, endR&, dic As Object, Rng As Range
    endR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    aDL = Sheet1.Range("A2:F" & endR).Value
    endR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    aKT = Sheet2.Range("A2:F" & endR).Value
    ReDim aKQ(1 To UBound(aDL) * 2, 1 To UBound(aDL, 2))
    Set dic = CreateObject("Scripting.Dictionary")
    
    'Duyet + lay du lieu sheet Du LIEU
    For i = 1 To UBound(aDL)
        If Not dic.Exists(aDL(i, 1)) Then
            dic(aDL(i, 1)) = i
            k = k + 1
            For j = 1 To UBound(aDL, 2)
                aKQ(k, j) = aDL(i, j)
            Next
        End If
    Next
    
    'Duyet + lay du lieu sheet Dieu tra ma sheet DU LIEU khong co
    For i = 1 To UBound(aKT)
        If Not dic.Exists(aKT(i, 1)) Then
            k = k + 1
            aKQ(k, 1) = aKT(i, 1)
        End If
    Next
    
    'Chep vao J2 va sap xep theo cot ma so (thay J2 bang dia chi mong muon)
    Set Rng = Sheet2.Range("J2")
    With Rng.Resize(k, UBound(aDL, 2))
        .Value = aKQ
        .Sort Key1:=Rng, Order1:=xlAscending
    End With
End Sub
 
Upvote 0
Vấn đề này em đã nêu ra ở bài #7 rồi, nhưng bạn ấy không hiểu cách mình làm lại còn cười và bảo là mình "hạnh họe", khổ thế chứ. Viết xong từ lúc ấy rồi đấy nhưng chán chả buồn đưa lên nữa.
Dạ e cũng đã nói là vấn đề do cách em không biết diễn giải. Và em cũng có xin lỗi anh rồi. Nếu anh làm được rồi. Anh cho e xin file ấy ạ.Em mới nhiều cái không biết. Em cũng có tiếp thu và sửa chứ em không có nang và bảo thủ. Anh làm xong rồi anh cho e xin file nhé. Mọi cái e nói không phải xin anh bỏ qua giúp em
Bài đã được tự động gộp:

Bạn có bị "làm sao" không vậy? Hay uống quá chén?
Dạ tại em vào xem là nam hay nữ mà không thấy hiển thị ạ. Với tên là Maika e nghĩ là con gái ấy. Nên nếu là nam e xin lỗi ạ. E sẽ sửa lại cách xưng hô
 
Upvote 0
Dạ tại em vào xem là nam hay nữ mà không thấy hiển thị ạ. Với tên là Maika e nghĩ là con gái ấy. Nên nếu là nam e xin lỗi ạ. E sẽ sửa lại cách xưng hô
Tôi đã cảnh báo ở bên bể sô rồi mà mau quên vậy. Nhưng cũng lạ: bài viết #21 với code cho mình thì không đề cập mà chỉ phân bua.
 
Upvote 0
Bài #15 sao tự dưng lại lôi mình vào nhỉ?? Trên Forum thiếu gì người thừa khả năng giúp đâu?! Mọi người đều rất nhiệt tình đó thôi. Mình cũng thi thoảng rảnh rang thì lướt lát kiểu xem cho vui thôi. Công việc cũng chỉ dùng bảng tính dạng cộng trừ nhân chia. Không rành code lắm nên cấu trúc chắp vá, lủng củng lắm. Bạn thử code bài #21 đi.
 
Upvote 0
Tôi đã cảnh báo ở bên bể sô rồi mà mau quên vậy. Nhưng cũng lạ: bài viết #21 với code cho mình thì không đề cập mà chỉ phân bua.
Dạ do em quên ạ. Em xin lỗi anh nhiều nhé. Code trước anh gửi là làm được đúng không anh. Anh cho e xin file anh làm được không ạ.
Bài đã được tự động gộp:

Bài #15 sao tự dưng lại lôi mình vào nhỉ?? Trên Forum thiếu gì người thừa khả năng giúp đâu?! Mọi người đều rất nhiệt tình đó thôi. Mình cũng thi thoảng rảnh rang thì lướt lát kiểu xem cho vui thôi. Công việc cũng chỉ dùng bảng tính dạng cộng trừ nhân chia. Không rành code lắm nên cấu trúc chắp vá, lủng củng lắm. Bạn thử code bài #21 đi.
Dạ em cảm ơn anh ạ
 
Upvote 0
Upvote 0
Vấn đề này em đã nêu ra ở bài #7 rồi, nhưng bạn ấy không hiểu cách mình làm lại còn cười và bảo là mình "hạnh họe", khổ thế chứ. Viết xong từ lúc ấy rồi đấy nhưng chán chả buồn đưa lên nữa.
Anh ơi a giúp em với ạ. Cho em xin bản anh đã làm với. Em đang phải làm mà lâu quá. Anh bỏ qua giúp em với ạ
 
Upvote 0
E đã nói ở trên em mới tập học VBA ...
Như đã trích dẫn thì có học VBA mà tại sao:
1. Cái dấu nháy đơn trong code của tôi bạn vứt đi để cho VBA không chấp nhận ở mấy cái dòng đỏ đỏ này?
1681360481484.png
2. Bạn không biết chạy 1 macro bằng cách nào?
 
Upvote 0

File đính kèm

Upvote 0
Dạ đây file em đã gán code vào. Anh xem giúp em sai đâu nhé
Tôi viết code khi sheet1 trong file bài #1 là sheet Dữ liệu, Sheet2 là sheet Điều tra. Chừ bạn xóa mất Sheet1 rồi biến Sheet3 thành sheet Điều tra, Sheet4 thành sheet Dữ liệu. Thế thì code làm sao chạy.

Ở bài #26, tôi bảo bạn lấy file ở bài #1 chép code vào mà bạn không thấy sao?

Tôi đưa thực phẩm, chỉ cách nấu rồi mà bạn vẫn không ra được món thì ...
 
Lần chỉnh sửa cuối:
Upvote 0
Tôi viết code khi sheet1 trong file bài #1 là sheet Dữ liệu, Sheet2 là sheet Điều tra. Chừ bạn xóa mất Sheet1 rồi biến Sheet3 thành sheet Điều tra, Sheet4 thành sheet Dữ liệu. Thế thì code làm sao chạy.

Ở bài #26, tôi bảo bạn lấy file ở bài #1 chép code vào mà bạn không thấy sao?

Tôi đưa thực phẩm, chỉ cách nấu rồi mà bạn vẫn không ra được món thì ...
Dạ tại em đang tập tành mới tìm hiểu VBA. Nên em chưa rõ lắm. Cái dữ liệu này em đang cần làm gấp. Anh làm ơn làm giúp e file e vừa gửi giúp em được không ạ. Sau lần này e sẽ học thêm về mảng này ạ.Anh làm xong cho e xin file được không anh!!!
 
Upvote 0
Dạ tại em đang tập tành mới tìm hiểu VBA. Nên em chưa rõ lắm. Cái dữ liệu này em đang cần làm gấp. Anh làm ơn làm giúp e file e vừa gửi giúp em được không ạ. Sau lần này e sẽ học thêm về mảng này ạ.Anh làm xong cho e xin file được không anh!!!
Mời bạn đọc lại bài #5, #7, #9.
Người ta muốn nắm cấu trúc của file thực để mà còn viết code "chạy đúng" cho dữ liệu thực của bạn mà bạn lại dùng từ đáp lại khá khó nghe.

Bây giờ bạn thấy được cái hệ quả khi file này khác file kia có tí ti (do chính bạn làm cho khác đi) mà code đã không chạy rồi huống gì khi dùng cho file thực (mà tôi đoán là nó sẽ khác nhiều lắm).

Chừ bạn nói tôi nghe: có lý do gì ngăn cản bạn không dùng file bài #1 để chạy code mà nhất quyết phải dùng file bài #31?
 
Upvote 0
Mời bạn đọc lại bài #5, #7, #9.
Người ta muốn nắm cấu trúc của file thực để mà còn viết code "chạy đúng" cho dữ liệu thực của bạn mà bạn lại dùng từ đáp lại khá khó nghe.

Bây giờ bạn thấy được cái hệ quả khi file này khác file kia có tí ti (do chính bạn làm cho khác đi) mà code đã không chạy rồi huống gì khi dùng cho file thực (mà tôi đoán là nó sẽ khác nhiều lắm).

Chừ bạn nói tôi nghe: có lý do gì ngăn cản bạn không dùng file bài #1 để chạy code mà nhất quyết phải dùng file bài #31?
Anh ơi e dán code vào file bài #1 rồi. Em có chuyển sang xlsm rồi mà không biết sai đây không được dữ liệu. Anh làm ơn xem giúp em ạ.
E sẽ chú ý hơn lời ăn tiếng nói của mình ạ
Anh xem giùm e sai đâu em sửa để dùng được ạ.
 

File đính kèm

  • 983AED6B-B749-4258-9D87-21B406BEDB0C.jpeg
    983AED6B-B749-4258-9D87-21B406BEDB0C.jpeg
    181.5 KB · Đọc: 11
  • C6998280-6FC2-43CD-B3DA-6BF6F4FFF3B7.jpeg
    C6998280-6FC2-43CD-B3DA-6BF6F4FFF3B7.jpeg
    150.1 KB · Đọc: 11
Upvote 0
Anh ơi e dán code vào file bài #1 rồi. Em có chuyển sang xlsm rồi mà không biết sai đây không được dữ liệu. Anh làm ơn xem giúp em ạ.
E sẽ chú ý hơn lời ăn tiếng nói của mình ạ
Anh xem giùm e sai đâu em sửa để dùng được ạ.
Đưa cái file lên coi bạn dán thế nào?
 
Upvote 0
Dạ đây ạ. Anh xem giúp em nhé.
Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.
 
Upvote 0
Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.
Lao được phóng rồi, không được "quạo" nha bác!!!
 
Upvote 0
Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.
Anh cho em xin file anh làm với ạ. Tại em chỉ dán code vào và đổi file thành xlsm giống như anh chỉ dậy mà không được. A làm được thì cho em xin lại file anh làm nhé.
 
Upvote 0
Upvote 0
Thế sao không chạy macro để kết thúc câu chuyện này đi mà hỏi lại làm gì?
Bạn là cái gân gà chính hiệu.
Thì bắt đầu chưa biết gì. Đúng là gà công nghiệp luôn ấy. Nếu đã biết nhiều người ta gọi là am hiểu rồi. Nãy e chạy không được. Thôi chắc do máy em làm sao ấy. Để e xem lại ạ
 
Upvote 1
Em chưa biết chuyện đó bác ơi!
Có nhiều cách để biết chuyện này mà, ví dụ:

(1) Nhờ ai đó mới đăng chưa đến 30 bài đăng bài vô mục '2uảng cáo. . .'
(2) Tạo thêm 1 NICKNAME cho chính mình & tự thử
(3) Hỏi anh Hai Lúa - phụ trách kỹ thuật diễn đàn
(4) . . . . .
 
Upvote 0
Đọc chú thích trong code:
Rich (BB code):
Sub DoTimCapNhatDL()
    Dim aKT, aDL, aKQ, i&, j&, k&, rw&, endR&, dic As Object, Rng As Range
    endR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    aDL = Sheet1.Range("A2:F" & endR).Value
    endR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    aKT = Sheet2.Range("A2:F" & endR).Value
    ReDim aKQ(1 To UBound(aDL) * 2, 1 To UBound(aDL, 2))
    Set dic = CreateObject("Scripting.Dictionary")
   
    'Duyet + lay du lieu sheet Du LIEU
    For i = 1 To UBound(aDL)
        If Not dic.Exists(aDL(i, 1)) Then
            dic(aDL(i, 1)) = i
            k = k + 1
            For j = 1 To UBound(aDL, 2)
                aKQ(k, j) = aDL(i, j)
            Next
        End If
    Next
   
    'Duyet + lay du lieu sheet Dieu tra ma sheet DU LIEU khong co
    For i = 1 To UBound(aKT)
        If Not dic.Exists(aKT(i, 1)) Then
            k = k + 1
            aKQ(k, 1) = aKT(i, 1)
        End If
    Next
   
    'Chep vao J2 va sap xep theo cot ma so (thay J2 bang dia chi mong muon)
    Set Rng = Sheet2.Range("J2")
    With Rng.Resize(k, UBound(aDL, 2))
        .Value = aKQ
        .Sort Key1:=Rng, Order1:=xlAscending
    End With
End Sub
Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với
 
Upvote 0
Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với
Thôi. Tôi dừng hỗ trợ bạn.
 
Upvote 0
Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với
Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn
 
Upvote 0
Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn
Chủ bài đăng đã đạt chuẩn trên 30 bài rồi; Ha, ha, ha, ha,. . . .

 
Lần chỉnh sửa cuối:
Upvote 0
Thôi. Tôi dừng hỗ trợ bạn.
Dạ vâng em cảm ơn
Bài đã được tự động gộp:

Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn
Dạ vâng ạ. Em cảm ơn anh
 
Lần chỉnh sửa cuối:
Upvote 0

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

Back
Top Bottom