Chuyên đề giải đáp những thắc mắc về code VBA (12 người xem)

[maytinhvp01]

Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]

 

[vonga.vouu]

Anh chị có thể xem giúp em nội dung này với ạ, em xin cảm ơn!
https://www.giaiphapexcel.com/forum...o-một-đ-kiện-thêm-cột-từ-tên-sheet-thành-phần

 

[Kiều Mạnh]

vụ nầy hơi nghi ngờ, làm đại sai đúng hên xui

If Target.Value > Sheet2.[B:B].Find(Target.Offset(, -2)).Offset(, 2) Then

Tại sao Cels thì đúng cels thì sai là sao ta ....
D10 ;D20 và D21 sai

 

[befaint]

Nhờ các bạn xử lý dùm trong trường hợp này Mình sử dụng Hàm Find nó sai cái gì mà lỗi code ....yêu cầu mong muốn Mình ghi kèm trong File

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Intersect(Target, [D6:D82]) Is Nothing Then
        'If Target.Offset(, -2) > Sheet2.[B6:B20].Find(Target).Offset(, 2) Then
        If Target.Value > Sheet2.[B:B].Find(Target).Offset(, 2) Then
            MsgBox "ok"
        End If
    End If
Application.EnableEvents = True
End Sub

Xin cảm ơn

Thử vầy xem kieu manh

If Target > Sheet2.Range("B:B").Find(Target.Offset(0, -2)).Offset(0, 2) Then

 

[befaint]

Tại sao Cels thì đúng cels thì sai là sao ta ....
D10 ;D20 và D21 sai

Thế phải sửa thành:

If Target > Sheet2.Range("B6:B65000").Find(Target.Offset(0, -2)).Offset(0, 2) Then

Vì [B5]="Tên Hàng"

 

[Kiều Mạnh]

Thử vầy xem kieu manh

If Target > Sheet2.Range("B:B").Find(Target.Offset(0, -2)).Offset(0, 2) Then

Có ma hay sao ý nó chỉ sai cels D10,20,21 còn các Cels khác đúng....Coi Lai Format như nhau mà ...

 

[Kiều Mạnh]

Thế phải sửa thành:

If Target > Sheet2.Range("B6:B65000").Find(Target.Offset(0, -2)).Offset(0, 2) Then

Vì [B5]="Tên Hàng"

OK ...cái này mới chính xác ....Cảm ơn Các Bạn Nhiều Nhiều

 

[ndu96081631]

Có ma hay sao ý nó chỉ sai cels D10,20,21 còn các Cels khác đúng....Coi Lai Format như nhau mà ...

Có ma là do bạn sai 2 chỗ:
1> Thứ nhất: bạn dùng cặp lệnh Application.EnableEvents = False/True ở đầu và cuối code nên trường hợp có lỗi nào đó xuất hiện thì EnableEvents sẽ không trả về True, dẫn đến lệnh Change mất tác dụng, gõ gì cũng.. sai
Giải pháp: Bạn không có code nào tác động trực tiếp lên Target cell nên không cần cặp lệnh trên
2> Find method viết thế là thiếu và sai nghiêm trọng, sẽ có lúc đúng lúc sai
-------------------------
Tóm lại sửa code thế này sẽ ổn:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rFind As Range
  If Not Intersect(Target, [D6:D82]) Is Nothing Then
    Set rFind = Sheet2.Range("B:B").Find(Target.Offset(, -2).Value, , xlValues, xlWhole)  ''<-- Find method viết cho đầy đù, không được viết tắt
    If Not rFind Is Nothing Then
      If Target.Value > rFind.Offset(, 2) Then
        MsgBox "ok"
        Target.Select
      End If
    End If
  End If
End Sub

 

[HieuCD]

Tại sao Cels thì đúng cels thì sai là sao ta ....
D10 ;D20 và D21 sai

trong file có chữ thường và chữ in có lẽ cần khai báo đầy đủ, tạm theo code trước

If Target.Value > Sheet2.[B:B].Find(Target.Offset(, -2), , , xlWhole, MatchCase:=True).Offset(, 2) Then

 

[Kiều Mạnh]

Có ma là do bạn sai 2 chỗ:
1> Thứ nhất: bạn dùng cặp lệnh Application.EnableEvents = False/True ở đầu và cuối code nên trường hợp có lỗi nào đó xuất hiện thì EnableEvents sẽ không trả về True, dẫn đến lệnh Change mất tác dụng, gõ gì cũng.. sai
Giải pháp: Bạn không có code nào tác động trực tiếp lên Target cell nên không cần cặp lệnh trên
2> Find method viết thế là thiếu và sai nghiêm trọng, sẽ có lúc đúng lúc sai
-------------------------
Tóm lại sửa code thế này sẽ ổn:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rFind As Range
  If Not Intersect(Target, [D6:D82]) Is Nothing Then
    Set rFind = Sheet2.Range("B:B").Find(Target.Offset(, -2).Value[COLOR=#ff0000], , xlValues, xlWhole[/COLOR])  ''<-- Find method viết cho đầy đù, không được viết tắt
    If Not rFind Is Nothing Then
      If Target.Value > rFind.Offset(, 2) Then
        MsgBox "ok"
        Target.Select
      End If
    End If
  End If
End Sub

Em cứ nghĩ chỗ màu đỏ bỏ bớt đi cũng ok ...cho nó gọn
Cảm ơn Anh

 

[Kiều Mạnh]

trong file có chữ thường và chữ in có lẽ cần khai báo đầy đủ, tạm theo code trước

If Target.Value > Sheet2.[B:B].Find(Target.Offset(, -2), , , xlWhole, MatchCase:=True).Offset(, 2) Then

OK...chạy Tốt cảm ơn Bạn

 

[AutoReply]

Em cứ nghĩ chỗ màu đỏ bỏ bớt đi cũng ok ...cho nó gọn
Cảm ơn Anh

vì anh nick màu vàng lưng nhiều vết găm quá rồi nên mới đẻ ra cái chỗ màu đỏ . Khi nào Kiều Mạnh đủ sẹo sẽ hiểu chỗ màu đỏ .

 

[ndu96081631]

Em cứ nghĩ chỗ màu đỏ bỏ bớt đi cũng ok ...cho nó gọn
Cảm ơn Anh

Bỏ bớt là SAI NGHIÊM TRỌNG luôn
- xlValues tương đương với bấm Ctrl + F chọn Values trong hộp Look in
- xlWhole tương đương với bấm Ctrl + F và check mục "Match entire cells contents"
Nếu bạn rút gọn thì code sẽ lấy theo lần bạn Find cuối cùng trên bảng tính
---------------------
Tóm lại; cái gì rút gọn được, riêng find method thì không
Ngoài ra nếu không có đoạn If not rFind is nothing thì e rằng không ổn. Ai dám chắc ăn 100% việc tìm kiếm luôn ra kết quả. Nếu tìm không thấy thì sao?

 

[Kiều Mạnh]

Bỏ bớt là SAI NGHIÊM TRỌNG luôn
- xlValues tương đương với bấm Ctrl + F chọn Values trong hộp Look in
- xlWhole tương đương với bấm Ctrl + F và check mục "Match entire cells contents"
Nếu bạn rút gọn thì code sẽ lấy theo lần bạn Find cuối cùng trên bảng tính
---------------------
Tóm lại; cái gì rút gọn được, riêng find method thì không
Ngoài ra nếu không có đoạn If not rFind is nothing thì e rằng không ổn. Ai dám chắc ăn 100% việc tìm kiếm luôn ra kết quả. Nếu tìm không thấy thì sao?

Anh ... có người Bạn mới viết cho Em vầy Anh thấy cách này có hay .... hay cách xài Find hay hơn

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target > Application.WorksheetFunction.VLookup(Target.Offset(, -2), Sheet2.[B6:D20], 3, 0) Then
        MsgBox "ok"
        Target.Select
    End If
End Sub

 

[langtuchungtinh360]

mọi người giúp em lỗi này với nhé. ngồi cả ngày search google rồi, không biết cách khắc phục
nội dung lỗi em có nêu trong file đính kèm

hú bà...........hú bà.................ai giúp em với....................

 

[befaint]

Anh ... có người Bạn mới viết cho Em vầy Anh thấy cách này có hay .... hay cách xài Find hay hơn

Hình như khi dữ liệu lớn thì .Find nhanh hơn á.

 

[VetMini]

Vlookup rất nhanh nếu dữ liệu đã sắp xếp.
Khi tham số cuối là 1 thì các hàm như Vlookup , Match,... dùng phép tìm nhị phân, hội tụ rất nhanh khi dữ liệu lớn.

 

[Gió Đông]

hú bà...........hú bà.................ai giúp em với....................

cODE của bạn tè le khủng khủng thế ai giúp được, nhất là không mô tả chi tiết là lỗi ở đâu, cấu trúc code thế nào, không có ghi chú trong code, thì không ai hiểu mà sửa đâu trừ tác giả viết ra nó
(xin lỗi bạn, lời nói thật như thuốc đắng, nếu sai bỏ qua)

 

[langtuchungtinh360]

nhất là không mô tả chi tiết là lỗi ở đâu

- trong file có mô tả bước làm xảy ra lỗi nhé bạn.
- file ban đầu mình up thì sẽ xuất hiện lỗi vì chưa có textbox
- file hiện tại thì ở B1 và B2 thì ko thấy lỗi được.
- phải xóa đi cái textbox đi rồi thực hiện lại mới có
- mình có nêu chỗ sẽ xảy ra lỗi tại dòng 15 trong file đính kèm nhé

không có ghi chú trong code

- trong file code có ghi chú mà ít thôi chứ không phải không có nhé
ps: mình cũng chả muốn up file 1 đóng code như thế lên đâu. người giúp sẽ ngán khi xem, nhưng nếu up file không đầy đủ code để phục vụ nó thì không thấy được chỗ lỗi thì hỏi làm chi nữa bạn.

 

[Gió Đông]

- trong file có mô tả bước làm xảy ra lỗi nhé bạn.
- file ban đầu mình up thì sẽ xuất hiện lỗi vì chưa có textbox
- file hiện tại thì ở B1 và B2 thì ko thấy lỗi được.
- phải xóa đi cái textbox đi rồi thực hiện lại mới có
- mình có nêu chỗ sẽ xảy ra lỗi tại dòng 15 trong file đính kèm nhé

- trong file code có ghi chú mà ít thôi chứ không phải không có nhé
ps: mình cũng chả muốn up file 1 đóng code như thế lên đâu. người giúp sẽ ngán khi xem, nhưng nếu up file không đầy đủ code để phục vụ nó thì không thấy được chỗ lỗi thì hỏi làm chi nữa bạn.

Thế thì chờ cao nhân giúp vậy, tôi thì không ghi chú đầy đủ thì khó đọc hiểu (nếu không muốn nói là không thể) khi code trên 50 dòng trở lên là bắt đầu rối

 

[ndu96081631]

Anh ... có người Bạn mới viết cho Em vầy Anh thấy cách này có hay .... hay cách xài Find hay hơn

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target > Application.WorksheetFunction.VLookup(Target.Offset(, -2), Sheet2.[B6:D20], 3, 0) Then
        MsgBox "ok"
        Target.Select
    End If
End Sub

Hay dở tôi không dám nói, mà nhanh hay chậm cũng không test được luôn... vì đằng nào cũng tìm có 1 giá trị, vèo cái là xong
Tuy nhiên khi tôi viết code thì rất hạn chế dùng WorksheetFunction, trừ trường hợp bất khả kháng...
(mà dù cho dùng VLOOKUP thì sao bạn vẫn bỏ qua vụ bẫy lỗi nhỉ?)