Nhờ viết hàm tìm kiếm trong VBA (1 người xem)

[LuongVanHieu]

Lần trước đã nhờ các bác giúp đỡ nhưng giờ nảy sinh vấn đề mới là:
Hiện tại mình có file dự liệu
Bình thường mình dùng hàm Vlookup để tìm kiếm dự liệu ở sheets du lieu
Nhưng đợt này do tính chất công việc thay đổi nên mình buộc phải làm giá trị bằng link trực tiếp
Mong các bác giúp đỡ viết hộ mình cái đoạn code này được không

 

[huuthang_bd]

Nhưng có 1 nhược điểm ko hiểu sau khi em Thay = thành = nó ko cho ấy. Em phải click trực tiếp vào nó mới nhảy

Kiểm tra chỗ Match entire cell contents có bị chọn không.

 

[LuongVanHieu]

@PacificPR
Nhờ bác giúp em nếu mình thêm cột thêm hàng cần chỉnh chộ nào trong code
Được bác giúp em giải thích ít về đoạn code này với

Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Dulieu")
tArr = .Range("B1", .Range("B65535").End(3)).Resize(, 2).Value
End With
For I = 2 To UBound(tArr)
Dic.Item(tArr(I, 1)) = I
Next I
With Sheets("DG")
Er = .Range("B65535").End(3).Row
sArr = .Range("A1:A" & Er).Resize(, 3).Value
ReDim dArr(1 To UBound(sArr), 1 To 1)
For I = 2 To UBound(sArr)
K = K + 1
If sArr(I, 1) = Empty Then
R = Dic.Item(sArr(I, 2))
If R Then dArr(K, 1) = "=" & Nguon & "C" & R
End If
Next I

 

[PacificPR]

@PacificPR
Nhờ bác giúp em nếu mình thêm cột thêm hàng cần chỉnh chộ nào trong code
Được bác giúp em giải thích ít về đoạn code này với

Bạn thử xem sao nha

Sub TimDonGia()
    Dim sArr, tArr, dArr, I As Long, K As Long, R As Long, Er As Long, Et As Long
    Dim Dic As Object
Application.ScreenUpdating = False
Const Nguon = "'Dulieu'!"
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Dulieu")
    tArr = .Range("B1", .Range("B65535").End(3)).Resize(, 2).Value
End With
For I = 2 To UBound(tArr)
    Dic.Item(tArr(I, 1)) = I
Next I
With Sheets("DG")
    Er = .Range("F65535").End(3).Row
    sArr = .Range("A4:A" & Er).Resize(, 7).Value
    ReDim dArr(1 To UBound(sArr), 1 To 1)
    For I = 1 To UBound(sArr)
        K = K + 1
        If sArr(I, 1) = Empty Then
            R = Dic.Item(sArr(I, 6))
            If R Then dArr(K, 1) = "=" & Nguon & "C" & R
        End If
    Next I
    If K Then .Range("G4").Resize(K, 1) = dArr
    Et = Er
    For I = Er To 4 Step -1
        If .Range("A" & I) <> Empty Then
            .Range("H" & I) = "=Sum(G" & I + 1 & ":G" & Et & ")"
            Et = I - 1
        End If
    Next I
End With
Application.ScreenUpdating = True
End Sub

 

[Binbo2020]

Mình đang tập áp dụng VBA vào công việc, mày mò hỏi mọi người viết được cái form nhập liệu như này nhưng giờ mình muốn nhập đơn giá trên cơ sở dữ liệu bên "sheet!data" theo loại hàng và phân loại khách hàng vào biểu tổng hợp và tính ra thành tiền mà mò mãi không tìm được code viết tham chiếu và ghi ra giá trị theo 2 điều kiện sau khi nhập dữ liệu từ form vào. Nhờ các cao thủ giúp với. Ngoài ra đoạn code: If Application.WorksheetFunction.CountIf(.Range("f2", .Range("f65000").End(xlUp)), cbkh.Text) = 0 Then là vùng điều kiện của mình nếu mình muốn sửa thành name mình đặt sẵn là ma_khach_hang để mỗi lần nếu có chèn thêm cột không phải sửa lại code thì sửa thế nào.

 

[sondaubac]

Mình thấy Pacific rất hay sử dụng cú pháp Set Dic = CreateObject("Scripting.Dictionary")
....
Rồi sau đó
Dic.Item = I
Bạn có thể giải thích chỗ này rõ 1 chút được không?

 

[PacificPR]

Mình thấy Pacific rất hay sử dụng cú pháp Set Dic = CreateObject("Scripting.Dictionary")
....
Rồi sau đó
Dic.Item = I
Bạn có thể giải thích chỗ này rõ 1 chút được không?

Vậy anh chưa tìm hiểu về Dictionary rồi. Giải thích cũng khó. Trong diễn đàn có bài Tổng quan về Dictionary anh tìm hiểu rồi sẽ rõ ( Cái anh đang hỏi ở mục Thuộc tính Item)

 

[Hoang2013]

Mình đang tập áp dụng VBA vào công việc, mày mò hỏi mọi người viết được cái form nhập liệu như này nhưng giờ mình muốn nhập đơn giá trên cơ sở dữ liệu bên "sheet!data" theo loại hàng và phân loại khách hàng vào biểu tổng hợp và tính ra thành tiền mà mò mãi không tìm được code viết tham chiếu và ghi ra giá trị theo 2 điều kiện sau khi nhập dữ liệu từ form vào. Nhờ các cao thủ giúp với. Ngoài ra đoạn code: If Application.WorksheetFunction.CountIf(.Range("f2", .Range("f65000").End(xlUp)), cbkh.Text) = 0 Then là vùng điều kiện của mình nếu mình muốn sửa thành name mình đặt sẵn là ma_khach_hang để mỗi lần nếu có chèn thêm cột không phải sửa lại code thì sửa thế nào.

Bạn tiết kiệm dấy fẩy, dấu chấm câu hay xuống dòng quá.
Nên đọc hết câu thì quên đầu câu bạn viết gì luôn á!

Gốp í với bạn ngoài lề:
Mã khách hàng (KH) sao không là 101 là lại là 001; Mấy con số không trước số có trị làm ta dễ sai sót & Excel thì tài lanh sẽ làm bạn không kiểm soát được kết quả lúc nào đó cho mà xem.

Vì chưa thể hiểu í của bạn nên chỉ góp đến vậy.

 

[Binbo2020]

Bạn tiết kiệm dấy fẩy, dấu chấm câu hay xuống dòng quá.
Nên đọc hết câu thì quên đầu câu bạn viết gì luôn á!

Gốp í với bạn ngoài lề:
Mã khách hàng (KH) sao không là 101 là lại là 001; Mấy con số không trước số có trị làm ta dễ sai sót & Excel thì tài lanh sẽ làm bạn không kiểm soát được kết quả lúc nào đó cho mà xem.

Vì chưa thể hiểu í của bạn nên chỉ góp đến vậy.

Mình xin tóm tắt và gửi lại file của mình như sau:
Bên trong sheet tonghop tại cột I đơn giá mình đang dùng công thức của excel để tham chiếu ra đơn giá. Mình muốn dùng code VBA thay cho công thức đó vì công việc của mình tham chiếu rất nhiều nên nếu cứ dùng công thức excel thì bị chậm lắm.
Ngoài ra nhiều lúc mình còn phải tham chiếu nhiều điều kiện hơn nữa nên mới mày mò áp dụng VBA.
Còn việc mã khách hàng cám ơn bạn góp ý nhưng đấy là quy ước chung của Công ty nhiều phòng ban dùng, mình sửa thì bộ phận khác không làm được.
Trong file mình gửi lại mình đã bôi đỏ ô mình đang dùng công thức, bạn xem có giúp mình dùng VBA được không.
Bạn Hoang2013 và bạn PacificPR xem hộ mình với

 

[Binbo2020]

Tạm thời mình dùng Record macro và gán luôn giá trị vào cột đơn giá, thành tiền. Nếu mình dùng như này mà số liệu rất nhiều thì có vấn đề gì không. Ai biết tư vấn giúp mình với. Đoạn code mình sửa lại như sau:

Private Sub cmdnhap_Click()
Dim Endr As Long
With Sheets("tonghop")
    Endr = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & Endr + 1) = txtngay.Text
    .Range("B" & Endr + 1) = txtthang.Text
    .Range("C" & Endr + 1) = cbkh.List(cbkh.ListIndex, 0)
    .Range("D" & Endr + 1) = cbkh.List(cbkh.ListIndex, 1)
    .Range("E" & Endr + 1) = cbkh.List(cbkh.ListIndex, 2)
    .Range("f" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 0)
    .Range("g" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 1)
    .Range("h" & Endr + 1) = txtluong.Text
     .Range("i" & Endr + 1).Select
    ActiveCell.FormulaR1C1 = _
      "=IFERROR(INDEX(data!R3C3:R26C5,MATCH(RC[-3],data!R3C1:R26C1,0),MATCH(RC[-4],data!R2C3:R2C5,0)),"""")"
Range("i" & Endr + 1).Value = Range("i" & Endr + 1).Value
 .Range("j" & Endr + 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("j" & Endr + 1).Value = Range("j" & Endr + 1).Value
 End With
 txtngay.SetFocus
End Sub

 

[Horse]

Tạm thời mình dùng Record macro và gán luôn giá trị vào cột đơn giá, thành tiền. Nếu mình dùng như này mà số liệu rất nhiều thì có vấn đề gì không. Ai biết tư vấn giúp mình với. Đoạn code mình sửa lại như sau:

Private Sub cmdnhap_Click()
Dim Endr As Long
With Sheets("tonghop")
    Endr = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & Endr + 1) = txtngay.Text
    .Range("B" & Endr + 1) = txtthang.Text
    .Range("C" & Endr + 1) = cbkh.List(cbkh.ListIndex, 0)
    .Range("D" & Endr + 1) = cbkh.List(cbkh.ListIndex, 1)
    .Range("E" & Endr + 1) = cbkh.List(cbkh.ListIndex, 2)
    .Range("f" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 0)
    .Range("g" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 1)
    .Range("h" & Endr + 1) = txtluong.Text
     .Range("i" & Endr + 1).Select
    ActiveCell.FormulaR1C1 = _
      "=IFERROR(INDEX(data!R3C3:R26C5,MATCH(RC[-3],data!R3C1:R26C1,0),MATCH(RC[-4],data!R2C3:R2C5,0)),"""")"
Range("i" & Endr + 1).Value = Range("i" & Endr + 1).Value
 .Range("j" & Endr + 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("j" & Endr + 1).Value = Range("j" & Endr + 1).Value
 End With
 txtngay.SetFocus
End Sub

Bạn thử như thế này xem

Private Sub cmdnhap_Click()
    Dim Endr As Long, Rng As Range, Col As Long
    With Sheets("data")
        Set Rng = .Range("A3", .Range("A" & Rows.Count).End(3)).Resize(, 5)
        Col = Application.Match(cbkh.List(cbkh.ListIndex, 2), .Range("A2:E2"), 0)
    End With
    With Sheets("tonghop")
        Endr = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & Endr + 1) = txtngay.Text
        .Range("B" & Endr + 1) = txtthang.Text
        .Range("C" & Endr + 1) = cbkh.List(cbkh.ListIndex, 0)
        .Range("D" & Endr + 1) = cbkh.List(cbkh.ListIndex, 1)
        .Range("E" & Endr + 1) = cbkh.List(cbkh.ListIndex, 2)
        .Range("f" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 0)
        .Range("g" & Endr + 1) = cbmathang.List(cbmathang.ListIndex, 1)
        .Range("h" & Endr + 1) = txtluong.Text
        .Range("I" & Endr + 1) = Application.VLookup(cbmathang, Rng, Col, 0)
        .Range("J" & Endr + 1) = CLng(.Range("I" & Endr + 1)) * CLng(.Range("H" & Endr + 1))
    End With
    txtngay.SetFocus
End Sub