Thay Code cho hàm Vlookup() (1 người xem)

0905744404 · 9/7/14

Em nhờ mọi cả nhà giúp em viết code chuyển từ hàm Vlookup() sang Code VBA

Hau151978 · 28/5/15

Code của bác Sealand không khác gì vlookup thông thường cả, tức là chỉ tìm giá trị đầu tiên. Ở đây đề bài mà bác Let Gâu là sau khi tìm được "Nguyễn Văn 12" lần 1 ở hàng 2 (kết quả 20) rồi thì lần 2 sẽ tìm từ hàng sau trở đi (kết quả ở hàng 5 là 28). Nếu không tìm thấy thì để trống.
Đây là code của mình: tạo cột phụ đánh STT, sort dữ liệu nguồn và đích theo cột tên, so sánh lần lượt từ trên xuống, gán kết quả xuống sheet, sort theo STT, xóa cột phụ.

Mã:

Sub MyVlookup()
    Dim arr1(), arr2(), i&, j&
    
    j = Range("B65000").End(xlUp).Row
    Range("C2") = 1
    Range("C2").AutoFill Range("C2:C" & j), xlFillSeries
    Range("A2:C" & j).Sort Range("A2")
    arr1 = Range("A2:B" & j)
    Range("A2:C" & j).Sort Range("C2")
    Range("C2:C" & j).Clear
    
    j = Range("F65000").End(xlUp).Row
    Range("E2") = 1
    Range("E2").AutoFill Range("E2:E" & j), xlFillSeries
    Range("E2:F" & j).Sort Range("F2")
    arr2 = Range("F2:G" & Range("F65000").End(xlUp).Row)
    
    For j = 1 To UBound(arr2)
        If i > UBound(arr1) - 1 Then
            arr2(j, 2) = ""
        Else
            Do While i <= UBound(arr1) - 1
                i = i + 1
                If arr1(i, 1) = arr2(j, 1) Then
                    arr2(j, 2) = arr1(i, 2)
                    Exit Do
                ElseIf arr1(i, 1) > arr2(j, 1) Then
                    arr2(j, 2) = ""
                    i = i - 1
                    Exit Do
                End If
            Loop
        End If
    Next
    Range("F2:G" & j) = arr2
    Range("E2:G" & j).Sort Range("E2")
    Range("E2:E" & j).Clear
End Sub

concogia · 28/5/15

Nếu đề bài như cũ & không cho sử dụng em "Đít-to", mình "chôm" code của Thầy Sealand sửa lại tý tẹo:

Mã:

Sub NoneDic()
    Dim Vung, Tim, Tm, I, J
        Vung = Range([A2], [A50000].End(xlUp)).Resize(, 2)
        Tim = Range([F2], [F50000].End(xlUp)).Resize(, 2)
        Tm = Range([A2], [A50000].End(xlUp))
            On Error Resume Next
                For I = 1 To UBound(Tim, 1)
                    J = WorksheetFunction.Match(Tim(I, 1), Tm, 0)
                    If J > 0 Then Tim(I, 2) = Vung(J, 2): Tm(J, 1) = "": J = ""
                Next
        Range([F2], [F50000].End(xlUp)).Resize(, 2) = Tim
End Sub

Buồn ngủ quá

ndu96081631 · 29/5/15

Hau151978 đã viết:
Code của bác Sealand không khác gì vlookup thông thường cả, tức là chỉ tìm giá trị đầu tiên. Ở đây đề bài mà bác Let Gâu là sau khi tìm được "Nguyễn Văn 12" lần 1 ở hàng 2 (kết quả 20) rồi thì lần 2 sẽ tìm từ hàng sau trở đi (kết quả ở hàng 5 là 28). Nếu không tìm thấy thì để trống.

Tôi hiểu giải thuật của anh Sealand

Mã:

Sub NoneDic()
  Dim Vung, Tim, Tm, i, j
  Vung = Range([A2], [A50000].End(xlUp)).Resize(, 2)
  Tim = Range([F2], [F50000].End(xlUp)).Resize(, 2)
  Tm = Range([A2], [A50000].End(xlUp))
  On Error Resume Next
  For i = 1 To UBound(Tim, 1)
    j = WorksheetFunction.Match(Tim(i, 1), Tm, 0)
    If Err.Number > 0 Then
      Tim(i, 2) = ""
      Err.Clear
    Else
      Tim(i, 2) = Vung(j, 2)
      [COLOR=#ff0000]Vung(j, 1) = ""[/COLOR]
    End If
  Next
  Range([F2], [F50000].End(xlUp)).Resize(, 2) = Tim
End Sub

Mấu chốt nằm ở chỗ màu đỏ ấy
Có thể anh Sealand viết nhầm, lý ra phải là Tm(j, 1) = "" mới đúng

sealand · 29/5/15

ndu96081631 đã viết:
Tôi hiểu giải thuật của anh Sealand

Mã:

Sub NoneDic() Dim Vung, Tim, Tm, i, j Vung = Range([A2], [A50000].End(xlUp)).Resize(, 2) Tim = Range([F2], [F50000].End(xlUp)).Resize(, 2) Tm = Range([A2], [A50000].End(xlUp)) On Error Resume Next For i = 1 To UBound(Tim, 1) j = WorksheetFunction.Match(Tim(i, 1), Tm, 0) If Err.Number > 0 Then Tim(i, 2) = "" Err.Clear Else Tim(i, 2) = Vung(j, 2) [COLOR=#ff0000]Vung(j, 1) = ""[/COLOR] End If Next Range([F2], [F50000].End(xlUp)).Resize(, 2) = Tim End Sub

Mấu chốt nằm ở chỗ màu đỏ ấy
Có thể anh Sealand viết nhầm, lý ra phải là Tm(j, 1) = "" mới đúng

Ndu96081631 hoàn toàn chính xác và hiểu ý mình và mong thông cảm vì viết "chay" chưa Test được. Nói cái cách của mình (Gọi là giải thuật nó to tát quá) nó như thế này:

1/Mình áp điều kiện tìm kiếm cho hàm Match=0 buộc hàm phải tìm phải trả về vị trí giá trị chính xác tìm thấy đầu tiên, nếu không tìm thấy thì trả về lỗi.

2/Trong vùng kết quả mỗi giá trị ta tìm vị trí đầu tiên trong Tm. Biết được vị trí thì ta sẽ lấy được giá trị cần tìm. Đồng thời ta xóa giá trị đó trong Tm. Khi gặp lại giá trị này Hàm Match lại trả về vị trí đầu tiên( Thực chất là vị trí tiếp theo vì vị trí trước đã xóa ) Cứ thế đến hết. Nếu Hàm Match trả về giá trị lỗi (Tức là vùng kết quả yêu cầu lần tìm vượt vùng nguồn) thì trả về giá trị tùy ý, "" hoặc "Không có đơn hàng này".

VetMini · 29/5/15

1. Nếu tôi viết code này thi thay vì xoá, tôi thay nó bằng một giá trị đặc biệt nào đó. Như vậy code đọc dễ hiểu hơn.

2. Hàm Match, nếu tìm thấy thì nó luôn trả về một con số. Nếu không tìm thấy thì nó coi như lỗi. Lỗi chứa trong Error Object.
Nếu gọi nó trong ngữ cảnh WorksheetFunction thì Object Error sẽ gây hiện tượng Error. Vì vậy khi gọi ở đây, ta luôn luôn phải bẫy lỗi.
Nếu gọi nó trong ngữ cảnh Application thì đối tượng Application sẽ kềm hiện tượng lỗi lại và đưa luôn cái Object lỗi này cho Match. Vì vậy ta không cần bẫy lỗi. Trong trường hợp này ta xét thẳng tính chất của đối tượng do hàm Match trả về, nếu nó không phải là một con số thì kết luận là tìm không được.
(Đây chỉ là nói trên quan điểm tìm được hay không tìm được thôi. Nếu bạn cần phải phân tách nhiều trường hợp lỗi thì bắt buộc phải bẫy lỗi)

ndu96081631 · 29/5/15

VetMini đã viết:
Nếu gọi nó trong ngữ cảnh Application thì đối tượng Application sẽ kềm hiện tượng lỗi lại và đưa luôn cái Object lỗi này cho Match. Vì vậy ta không cần bẫy lỗi. Trong trường hợp này ta xét thẳng tính chất của đối tượng do hàm Match trả về, nếu nó không phải là một con số thì kết luận là tìm không được.

Vừa thử xong:

Mã:

TypeName(Application.Match("a",Range("A1:A10"),0))

Nếu kết quả trả về là "Error" thì có nghĩa là không tìm thấy
-------------------
Sao chưa thấy ai dùng Find Method nhỉ?

sealand · 29/5/15

ndu96081631 đã viết:
Vừa thử xong:

Mã:

TypeName(Application.Match("a",Range("A1:A10"),0))

Nếu kết quả trả về là "Error" thì có nghĩa là không tìm thấy
-------------------
Sao chưa thấy ai dùng Find Method nhỉ?

Phương thức Find ít được dùng ở đây theo chủ quan của mình:

-Find tìm kiếm khi định dạng dữ liệu thay đổi sẽ ảnh hưởng đến kết quả tìm kiếm (Nhất là ngày tháng)
-Find tìm kiếm trên Range lên hạn chế về tốc độ

doveandrose · 31/5/15

bới lên cái nữa
đã muộn nhưng có vẫn vui
xin được góp vui 1 cách dùng hàm excel
công thức tại ô H2

Mã:

{=IF(ISERROR(MATCH(F2,$A$2:$A$12,0)),"not found in tb",IF(COUNTIF($F$2:F2,F2)>COUNTIF($A$2:$A$12,F2),"out side",INDEX($A$2:$B$12,SMALL(IF($A$2:$A$12=F2,ROW($A$2:$A$12)),COUNTIF($F$2:F2,F2))[B][SIZE=4]-1[/SIZE][/B],2)))}

với số -1 còn tùy vào việc đặt bảng dò ở đâu . ví dụ bảng dò bắt đầu từ dòng số 10 thì phải -9

Phuocam · 31/5/15

doveandrose đã viết:
bới lên cái nữa
đã muộn nhưng có vẫn vui
xin được góp vui 1 cách dùng hàm excel
công thức tại ô H2

Mã:

{=IF(ISERROR(MATCH(F2,$A$2:$A$12,0)),"not found in tb",IF(COUNTIF($F$2:F2,F2)>COUNTIF($A$2:$A$12,F2),"out side",INDEX($A$2:$B$12,SMALL(IF($A$2:$A$12=F2,ROW($A$2:$A$12)),COUNTIF($F$2:F2,F2))[B][SIZE=4]-1[/SIZE][/B],2)))}

với số -1 còn tùy vào việc đặt bảng dò ở đâu . ví dụ bảng dò bắt đầu từ dòng số 10 thì phải -9

Góp vui thêm công thức có thông báo:

Mã:

{=IF(COUNTIF($A$2:$A$12,F2)=0,"not found in tb",IFERROR(INDEX($B$2:$B$12,SMALL(IF($A$2:$A$12=F2,ROW($A$2:$A$12)-1,""),COUNTIF($F$2:F2,F2))),"out side"))}

Nếu bỏ thông báo, công thức đơn giản hơn:

Mã:

{=IFERROR(INDEX($B$2:$B$12,SMALL(IF($A$2:$A$12=F2,ROW($A$2:$A$12)-1,""),COUNTIF($F$2:F2,F2))),"")}

tacongthang · 18/9/15

ndu96081631 đã viết:

Vẫn áp dụng bài này:
http://www.giaiphapexcel.com/forum/...ết-dùng-mã-vba-thay-thế-cho-hàm-vlookup/page3
Ta làm như sau:
1> Code trong module

Mã:

Public Chk As Boolean, Dic As Object, aResult()
Sub Auto_Open()
  Dim wks As Worksheet, SrcRng As Range, sArray
  Dim lR As Long, i As Long, n As Long, tmp
  On Error Resume Next
  Set wks = Sheets("Sheet2")
  Set SrcRng = wks.Range("A2:C10000")
  sArray = SrcRng.Value
  ReDim aResult(1 To UBound(sArray, 1), 1 To UBound(sArray, 2))
  Set Dic = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(sArray, 1)
    If CStr(sArray(i, 1)) <> "" Then
      tmp = sArray(i, 1)
      If Not Dic.Exists(tmp) Then
        lR = lR + 1
        Dic.Add tmp, lR
        aResult(lR, 1) = tmp
        aResult(lR, 2) = sArray(i, 2)
        aResult(lR, 3) = sArray(i, 3)
      End If
    End If
  Next
End Sub

2> Code trong sheet2

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
  Chk = True
End Sub
Private Sub Worksheet_Deactivate()
  If Chk Then
    Auto_Open
    Chk = False
  End If
End Sub

3> Code cho sheet 3

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rTarget As Range, aTarget, i As Long
  Dim arr(), tmp
  On Error Resume Next
  If Dic Is Nothing Then Auto_Open
  If Not Intersect(Range("B3:B1000"), Target) Is Nothing Then
    Set rTarget = Intersect(Range("B3:B1000"), Target)
    If IsArray(rTarget.Value) Then
      aTarget = rTarget.Value
    Else
      ReDim aTarget(1 To 1, 1 To 1)
      aTarget(1, 1) = rTarget.Value
    End If
    ReDim arr(1 To UBound(aTarget, 1), 1 To 2)
    For i = 1 To UBound(aTarget, 1)
      If aTarget(i, 1) <> "" Then
        tmp = aTarget(i, 1)
        If Dic.Exists(tmp) Then
          arr(i, 1) = aResult(Dic.Item(tmp), 2)
          arr(i, 2) = aResult(Dic.Item(tmp), 3)
        End If
      End If
    Next
    rTarget.Offset(, 1).Resize(, 2).Value = arr
  End If
End Sub

các bác cho hỏi luôn làm cách nào để tự động them code cho sheet3, vì sheet3 của mình do PM xuất, không có code sẵn, chỉ có giá trị ở cột B, còn lại phải vlookup từ 1 sheet danh mục như sheet 2

Cá ngừ F1 · 18/9/15

tacongthang đã viết:
các bác cho hỏi luôn làm cách nào để tự động them code cho sheet3, vì sheet3 của mình do PM xuất, không có code sẵn, chỉ có giá trị ở cột B, còn lại phải vlookup từ 1 sheet danh mục như sheet 2

Tốt nhất bạn nên mở topic mới kèm file + kết quả mong muốn lên.
chứ hỏi thế này khó hình dung lắm.

mrt137 · 2/8/16

Kính nhờ các cao nhân trợ giúp. Mong muốn của em là thay vì dùng hàm Vlookup không thể Ctrl [ để đến cell đang liên kết trực tiếp giá trị và hàm Vlookup cũng làm nặng file rất nhiều. Em làm bên xây dựng, việc lập giá dự toán, dự thầu sẽ dùng rất nhiều đến tính năng này. Cụ thể em đã có 1 file tổng hợp các vật tư cần dùng bao gồm có cột mã vật tư, tên vật tư, đơn vị tính và giá vật tư hiện tại. 1 file đích thì đang cần nối giá vật tư hiện tại vào cũng có các cột tương tự là MSVT, tên vật tư, đơn vị tính và cột giá cần nối đến.
Trân trọng cảm ơn mọi người đã quan tâm.

Cá ngừ F1 · 7/8/16

mrt137 đã viết:
Kính nhờ các cao nhân trợ giúp. Mong muốn của em là thay vì dùng hàm Vlookup không thể Ctrl [ để đến cell đang liên kết trực tiếp giá trị và hàm Vlookup cũng làm nặng file rất nhiều. Em làm bên xây dựng, việc lập giá dự toán, dự thầu sẽ dùng rất nhiều đến tính năng này. Cụ thể em đã có 1 file tổng hợp các vật tư cần dùng bao gồm có cột mã vật tư, tên vật tư, đơn vị tính và giá vật tư hiện tại. 1 file đích thì đang cần nối giá vật tư hiện tại vào cũng có các cột tương tự là MSVT, tên vật tư, đơn vị tính và cột giá cần nối đến.
Trân trọng cảm ơn mọi người đã quan tâm.

1. Click Button
2. Chọn đến File nguồn "0. Gia vat tu.xlsx"
Có rủi ro là chọn không đúng file thì sẽ không ra kết quả gì.

Theo tôi, bạn nên copy các code mã vật tư và 1 sheet, từ đó tìm kiếm bằng phương thức Find là nhanh nhất. Thực chất thì code của tôi cũng là copy bảng MSVT vào file gốc, rồi tìm kiếm trên đó thôi.
[gpecode=vb]
Sub FindMethod()

Dim FileName As String, sArr(), i&, MSVT(), KQ1(), KQ2(), Rng As Range

If Not Application.FindFile Then Exit Sub
With ActiveWorkbook
FileName = .Name
With .ActiveSheet
sArr = .Range(.[B4], .[E65000].End(3)).Value
End With
.Close False
End With

Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4) = sArr

MSVT = Range(Sheets("TH vat tu XD").[B8], Sheets("TH vat tu XD").[B65000].End(3))
ReDim KQ1(1 To UBound(MSVT), 1 To 2)
ReDim KQ2(1 To UBound(MSVT), 1 To 1)
For i = 1 To UBound(MSVT)
Set Rng = Sheets("TH vat tu XD").[AA1:AA50000].Find(MSVT(i, 1), , , 1)
If Not Rng Is Nothing Then
KQ1(i, 1) = Rng(, 2)
KQ1(i, 2) = Rng(, 3)
KQ2(i, 1) = Rng(, 4)
End If
Next
Sheets("TH vat tu XD").[C8].Resize(i - 1, 2) = KQ1
Sheets("TH vat tu XD").[G8].Resize(i - 1, 1) = KQ2
Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4).Clear
Erase sArr
End Sub[/gpecode]

[note]Lần sau bạn nên mở 1 Topic mới để đặt câu hỏi, đừng chèn câu hỏi vào topic của người khác[/note]

mrt137 · 9/8/16

Cá ngừ F1 đã viết:
1. Click Button
2. Chọn đến File nguồn "0. Gia vat tu.xlsx"
Có rủi ro là chọn không đúng file thì sẽ không ra kết quả gì.

Theo tôi, bạn nên copy các code mã vật tư và 1 sheet, từ đó tìm kiếm bằng phương thức Find là nhanh nhất. Thực chất thì code của tôi cũng là copy bảng MSVT vào file gốc, rồi tìm kiếm trên đó thôi.
[gpecode=vb]
Sub FindMethod()

Dim FileName As String, sArr(), i&, MSVT(), KQ1(), KQ2(), Rng As Range

If Not Application.FindFile Then Exit Sub
With ActiveWorkbook
FileName = .Name
With .ActiveSheet
sArr = .Range(.[B4], .[E65000].End(3)).Value
End With
.Close False
End With

Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4) = sArr

MSVT = Range(Sheets("TH vat tu XD").[B8], Sheets("TH vat tu XD").[B65000].End(3))
ReDim KQ1(1 To UBound(MSVT), 1 To 2)
ReDim KQ2(1 To UBound(MSVT), 1 To 1)
For i = 1 To UBound(MSVT)
Set Rng = Sheets("TH vat tu XD").[AA1:AA50000].Find(MSVT(i, 1), , , 1)
If Not Rng Is Nothing Then
KQ1(i, 1) = Rng(, 2)
KQ1(i, 2) = Rng(, 3)
KQ2(i, 1) = Rng(, 4)
End If
Next
Sheets("TH vat tu XD").[C8].Resize(i - 1, 2) = KQ1
Sheets("TH vat tu XD").[G8].Resize(i - 1, 1) = KQ2
Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4).Clear
Erase sArr
End Sub[/gpecode]

[note]Lần sau bạn nên mở 1 Topic mới để đặt câu hỏi, đừng chèn câu hỏi vào topic của người khác[/note]

Em cảm ơn Anh nhiều. Nếu có giữ được link = trực tiếp từ file nguồn để bấm Ctrl [ sẽ đến được địa chỉ đang link thì tròn bài Anh ạ. Việc đổ ra giá trị (số chết) này nhanh hơn dùng hàm Vlookup nhưng click vào hàm Vlookup ít ra vẫn biết được giá trị lấy từ đâu. Em được voi đòi luôn cả bà tưng nữa Anh thông cảm nhé. Trân trọng.

Cá ngừ F1 · 11/8/16

mrt137 đã viết:
Em cảm ơn Anh nhiều. Nếu có giữ được link = trực tiếp từ file nguồn để bấm Ctrl [ sẽ đến được địa chỉ đang link thì tròn bài Anh ạ. Việc đổ ra giá trị (số chết) này nhanh hơn dùng hàm Vlookup nhưng click vào hàm Vlookup ít ra vẫn biết được giá trị lấy từ đâu. Em được voi đòi luôn cả bà tưng nữa Anh thông cảm nhé. Trân trọng.

Tôi cũng chưa hiểu thao tác ctrl [ là để làm j nữa.
Những để lấy tên file và đường dẫn của file nguồn dán kết quả vào 1 ô nào đó để biết đó là file nào thì có đúng ý bạn không?

mrt137 · 13/8/16

Cá ngừ F1 đã viết:
Tôi cũng chưa hiểu thao tác ctrl [ là để làm j nữa.
Những để lấy tên file và đường dẫn của file nguồn dán kết quả vào 1 ô nào đó để biết đó là file nào thì có đúng ý bạn không?

Ví dự như giá trị ô C1 sheet1 đang được lấy từ ô A1 sheet 3. Tại ô C1 sheet bấm Ctrl [ thì lập tức đến được ô A1 sheet3.
Thao tác này để kiểm tra các file excel quá tiện anh ạ.
https://www.fshare.vn/file/79G69GASSEAW Anh tải về file nén, giải nén, sau đó bấm mở file 2. Nha de xe, tại ô G8 sheet TH vat tu bấm Ctrl [ là hiểu ý đồ của em ngay anh ạ.

vu_tuan_manh_linh · 13/8/16

mrt137 đã viết:
Ví dự như giá trị ô C1 sheet1 đang được lấy từ ô A1 sheet 3. Tại ô C1 sheet bấm Ctrl [ thì lập tức đến được ô A1 sheet3.
Thao tác này để kiểm tra các file excel quá tiện anh ạ.
https://www.fshare.vn/file/79G69GASSEAW Anh tải về file nén, giải nén, sau đó bấm mở file 2. Nha de xe, tại ô G8 sheet TH vat tu bấm Ctrl [ là hiểu ý đồ của em ngay anh ạ.

Sao không ném luôn cái file giá vật tư vào file Nha de xe đi bạn!!! Làm như thế có phải đỡ tốn công hơn không. Muốn link trực tiếp viết code cũng được, mà chả cần code kiếc gì, viết hàm kết hợp thủ thuật là có liên kết trực tiếp thôi. Còn cái sheet vật tư trong Nhà để xe thì liên kết với File giá vật tư, trong trường hợp nhiều file dự toán cùng liên kết đến 1 giá vật tư gốc thì thay đổi file gốc là các file khác updata theo, nhưng không ảnh hưởng đến liên kết nội bộ file.
Bạn xem cái này để biết cách dùng hàm rồi chuyển thành liên kết trực tiếp nhé!
https://www.youtube.com/watch?v=CjiDUilfz2Y

mrt137 · 13/8/16

Nếu làm như video thì không ổn lắm, file 0. Gia vat tu là 1 file em tổng hợp tất cả các vật tư sẽ dùng trên công trình, sau đó đi tìm giá nhập vào. Trong 1 công trình có khoảng 30 hạng mục như nhà để xe đó. Thủ công thì đứt điện ngay.
Nếu là chỉ để em làm ra giá trị thì không vấn đề, hàm Vlookup thì chỉ vài nốt nhạc là xong, nhưng quan trọng là giúp cho người kiểm tra dễ kiểm tra. Cách của anh Cá ngừ ở trên nhanh hơn hàm Vlookup rồi nhưng không biết lấy từ đâu thì chưa tròn bài.
Xin cảm ơn ACE đã quan tâm.

Cá ngừ F1 · 13/8/16

mrt137 đã viết:
Nếu làm như video thì không ổn lắm, file 0. Gia vat tu là 1 file em tổng hợp tất cả các vật tư sẽ dùng trên công trình, sau đó đi tìm giá nhập vào. Trong 1 công trình có khoảng 30 hạng mục như nhà để xe đó. Thủ công thì đứt điện ngay.
Nếu là chỉ để em làm ra giá trị thì không vấn đề, hàm Vlookup thì chỉ vài nốt nhạc là xong, nhưng quan trọng là giúp cho người kiểm tra dễ kiểm tra. Cách của anh Cá ngừ ở trên nhanh hơn hàm Vlookup rồi nhưng không biết lấy từ đâu thì chưa tròn bài.
Xin cảm ơn ACE đã quan tâm.

Việc biết lấy dữ liệu ở đâu đơn giản thôi mà bạn.
Bài trên tôi cũng đã nói rồi. Gán đường dẫn và tên file nguồn vào một ô nào đấy là xong.

vu_tuan_manh_linh · 14/8/16

mrt137 đã viết:
Nếu làm như video thì không ổn lắm, file 0. Gia vat tu là 1 file em tổng hợp tất cả các vật tư sẽ dùng trên công trình, sau đó đi tìm giá nhập vào. Trong 1 công trình có khoảng 30 hạng mục như nhà để xe đó. Thủ công thì đứt điện ngay.
Nếu là chỉ để em làm ra giá trị thì không vấn đề, hàm Vlookup thì chỉ vài nốt nhạc là xong, nhưng quan trọng là giúp cho người kiểm tra dễ kiểm tra. Cách của anh Cá ngừ ở trên nhanh hơn hàm Vlookup rồi nhưng không biết lấy từ đâu thì chưa tròn bài.
Xin cảm ơn ACE đã quan tâm.

Thế nào là thủ công nhỉ?? File ví dụ của tôi có vài dòng thì tôi F2 Enter cho nó tiện. Chứ file có hàng nghìn dòng làm thế sao được. Dùng chức năng Find an Replace tùy chọn Formula, 1 nháy xong ngay.

Thay Code cho hàm Vlookup() (1 người xem)

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

Thành viên thường trực

Thành viên tích cực

Gội rồi mới Cạo

Huyền thoại GPE

Thành viên gạo cội

Ăn cùng góc phố

Huyền thoại GPE

Thành viên gạo cội

hello

File đính kèm

Thành viên mới

Thành viên mới

( ͡° ͜ʖ ͡°)

Thành viên mới

File đính kèm

( ͡° ͜ʖ ͡°)

File đính kèm

Thành viên mới

( ͡° ͜ʖ ͡°)

Thành viên mới

linhvtm84@gmail.com

Thành viên mới

( ͡° ͜ʖ ͡°)

linhvtm84@gmail.com

Đếm ngược thời gian