Chuyên đề giải đáp những thắc mắc về code VBA

maytinhvp01 · 31/7/13

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]

vova2209 · 15/7/20

Cho em hỏi! Function không hoạt động được ở sheet ạ mà phải cho sang modules mới chạy được..

Mã:

Function MacBeTong(str As String) As Long
    Dim Tmp, J As Long, i As Long, DK As Boolean, LenTex As Long, Num As Long
    DK = False
    Tmp = Split(str, " ")
    For J = 0 To UBound(Tmp)
        LenText = Len(Tmp(J))
        If LenText > 0 Then
            For i = 1 To LenText
                If IsNumeric(Mid(Tmp(J), i, 1)) Then
                    DK = True
                    Num = Num & Mid(Tmp(J), i, 1)
                End If
            Next i
            If DK = True Then
                MacBeTong = Num
                Exit Function
            End If
        End If
    Next J
    End Function

ongke0711 · 15/7/20

Blad01 đã viết:
Bạn biết cách làm chỉ mình với

Mã:

Public Sub TimtenCQ(frm As MSForms.Userform, cboName As String)
Dim i As Integer, j As Integer
Dim k As String

    With frm.Controls(cboName)
        .DropDown
        ......

Gọi Sub trong Userform:

Mã:

Private Sub ComboBox1_Change()
Call TimTenCQ(Me, Me.ComboBox1.Name)

Hoặc:

Call TimTenCQ(Me, "ComboBox1")

End Sub

Blad01 · 15/7/20

nguoiconxunui đã viết:
Đại loại nó thế này:

Mã:

Public function CreateCbo() as ComboBox End function Public sub WorkWithCbo(combox as ComboBox) End sub 'Working: Sub dosomthing() Dim cbox as ComboBox= CreateCbo() call WorkWithCbo(cbox) end sub

ongke0711 đã viết:

Mã:

Public Sub TimtenCQ(frm As MSForms.Userform, cboName As String)
Dim i As Integer, j As Integer
Dim k As String

    With frm.Controls(cboName)
        .DropDown
        ......

Gọi Sub trong Userform:

Mã:

Private Sub ComboBox1_Change()
Call TimTenCQ(Me, Me.ComboBox1.Name)

Hoặc:

Call TimTenCQ(Me, "ComboBox1")

End Sub

cảm ơn bạn, thật tuyệt, mình làm được rồi. Với đối tượng là Checkbox hoặc OptionButtun thì phải khai như thế nào vậy bạn. Chỉ giúp mình luôn được không.

ongke0711 · 15/7/20

Blad01 đã viết:
cảm ơn bạn, thật tuyệt, mình làm được rồi. Với đối tượng là Checkbox hoặc OptionButtun thì phải khai như thế nào vậy bạn. Chỉ giúp mình luôn được không.

Thì cứ thay tên control bất kỳ nào cũng được miễn là cái Sub/ Function thực hiện các phương thức thuộc tính phù hợp với control đó thôi.
Vd: Call TimTenCQ (Me, “txtTen”)

VetMini · 15/7/20

ongke0711 đã viết:
Thì cứ thay tên control bất kỳ nào cũng được miễn là cái Sub/ Function thực hiện các phương thức thuộc tính phù hợp với control đó thôi.
Vd: Call TimTenCQ (Me, “txtTen”)

Tìm thì phỉ trả về chứ. Đó là tại sao "hàm" mà không phải là "sub"

nguoiconxunui đã viết:
...
'Working:
Sub dosomthing()

deploy (sử dụng), không phải "working"

vova2209 đã viết:
Cho em hỏi! Function không hoạt động được ở sheet ạ mà phải cho sang modules mới chạy được..
...

Bao giờ quý vị mới chịu học cách đặt câu hỏi cho rõ ràng nhỉ?

"không hoạt động được ở sheet" có nghĩa là gì? code của sheet không gọi được nó? nó là code của sheet? code nào gọi nó?

Mỗi module là một không gian ký danh (namespace) riêng. Code nằm trong module thường thì được mặc định không gian, trừ phi chúng trùng tên nhau. Code nằm trong sheet thì không được mặc định. Muốn gọi sub/function nằm trong sheet nào thì phải gọi đúng tên với tiền tố là ký danh không gian của nó. Ví dụ function abc nằm trong sheet1 thì ngoài sheet1 muón gọi nó phải gọi sheet1.abc

vova2209 · 16/7/20

VetMini đã viết:
Tìm thì phỉ trả về chứ. Đó là tại sao "hàm" mà không phải là "sub"

deploy (sử dụng), không phải "working"

Bao giờ quý vị mới chịu học cách đặt câu hỏi cho rõ ràng nhỉ?

"không hoạt động được ở sheet" có nghĩa là gì? code của sheet không gọi được nó? nó là code của sheet? code nào gọi nó?

Mỗi module là một không gian ký danh (namespace) riêng. Code nằm trong module thường thì được mặc định không gian, trừ phi chúng trùng tên nhau. Code nằm trong sheet thì không được mặc định. Muốn gọi sub/function nằm trong sheet nào thì phải gọi đúng tên với tiền tố là ký danh không gian của nó. Ví dụ function abc nằm trong sheet1 thì ngoài sheet1 muón gọi nó phải gọi sheet1.abc

function nằm ở sheet riêng, em chưa biết cách làm, anh vào xem dùm em với ạ

ongke0711 · 16/7/20

vova2209 đã viết:
function nằm ở sheet riêng, em chưa biết cách làm, anh vào xem dùm em với ạ

- Thiết lập mặc định trong VBE, có thêm Option Explicit đi.
- Code xong chạy Debug xem nó có lỗi không.
- Chưa biết code chạy ổn không thì thêm ISERROR() thì làm sao biết nó lỗi gì.

Tóm lại: Sai khai báo biến LenText vs LenTex

VetMini · 16/7/20

Chưa học đi đã lo chạy là vậy đó.
Nên tìm tài liệu học về tầm vực của biến, của các hàm và phương thức. Căn bản về modules.

Blad01 · 16/7/20

Chào các bạn. Mong các bạn giúp tôi vấn đề về lọc dữ liệu (Filter):
Trong file đính kèm tôi có bảng dữ liệu và 3 nút bấm có tên là AutoFilter 1, AutoFilter 2, AutoFilter 3. Tôi muốn khi bấm vào nút AutoFilter 1 thì ở cột B (tháng 1) toàn bộ nhân viên được xếp loại A sẽ được lọc; tương tự, nút AutoFilter 2, cột C (tháng 2) nhân viên xếp loại B được lọc; nút AutoFilter 3, cột D (tháng 3) nhân viên xếp loại C được lọc.
Tôi đã thử với đoạn code sau nhưng báo lỗi AutoFilter method of Range class failed khi bấm chuyển đổi giữa các nút (bấm nút AutoFilter1 lần 1 => code chạy; Bấm nút AutoFilter1 lần 2 => code báo lỗi; hoặc bấm AutoFilter2 => code báo lỗi).
Mong các bạn trong diễn đàn có cách nào để có thể bấm chuyển đổi qua lại giữa các nút AutoFilter mà thực hiện được tính năng Filter của excel.

Mã:

Private Sub CommandButton1_Click()
With Sheet1
    .Range("B2").AutoFilter
    .Range("B2:B17").AutoFilter Field:=2, Criteria1:="A"
End With
End Sub
-------------------------------------------------------
Private Sub CommandButton2_Click()
With Sheet1
    .Range("D2").AutoFilter
    .Range("D2").Select
    .Range("D3:D17").AutoFilter Field:=4, Criteria1:="C"
End With
End Sub
--------------------------------------------------------
Private Sub CommandButton3_Click()
With Sheet1
    .Range("C2").AutoFilter
    .Range("C2:C17").AutoFilter Field:=3, Criteria1:="B"
End With
End Sub

AnhThu-1976 · 21/7/20

Tại bất kỳ một cột nào, em bắt đầu chọn từ dòng thứ 4 xuống thì bây giờ làm sao để code sẽ chọn ô thứ 2 của cột đó
Em ví dụ: Em sẽ chọn từ F4 đến xuống 1 ô bất kỳ trong cột F thì làm sao để code nhảy đến ô F2
Hoặc Em sẽ chọn từ G4 đến xuống 1 ô bất kỳ trong cột G thì làm sao để code nhảy đến ô G2
Em cảm ơn!

snow25 · 21/7/20

AnhThu-1976 đã viết:
Tại bất kỳ một cột nào, em bắt đầu chọn từ dòng thứ 4 xuống thì bây giờ làm sao để code sẽ chọn ô thứ 2 của cột đó
Em ví dụ: Em sẽ chọn từ F4 đến xuống 1 ô bất kỳ trong cột F thì làm sao để code nhảy đến ô F2
Hoặc Em sẽ chọn từ G4 đến xuống 1 ô bất kỳ trong cột G thì làm sao để code nhảy đến ô G2
Em cảm ơn!

Bạn thử.

Mã:

Range("G4").Offset(-2).Value

AnhThu-1976 · 21/7/20

snow25 đã viết:
Bạn thử.

Mã:

Range("G4").Offset(-2).Value

Nhưng nếu ta đang ở 1 cột bất kỳ nào khác thì nó không đúng
Có thể bạn chưa hiểu ý mình
Ví dụ đang chọn khối A4:A10 mà ta muốn nó nhảy lên ô A2 thì sao?

phulien1902 · 21/7/20

AnhThu-1976 đã viết:
Nhưng nếu ta đang ở 1 cột bất kỳ nào khác thì nó không đúng
Có thể bạn chưa hiểu ý mình
Ví dụ đang chọn khối A4:A10 mà ta muốn nó nhảy lên ô A2 thì sao?

Bạn thử:

PHP:

Range("A4:A10").End(3).Offset(1).select

AnhThu-1976 · 21/7/20

Cảm ơn các bạn mình đã sửa nó là

Mã:

Selection.End(3).Offset(1).Select

thì OK

AnhThu-1976 · 21/7/20

Làm sao khi bấm Ctrl+F thì trong khung Find what: luôn là giá trị của ô B2 sheet Tenhang
Em ví dụ:
Nếu ô B2 sheet Tenhang là 123 thì code là

PHP:

Cells.Find(What:="123", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Nhưng nếu ô B2 sheet Tenhang là 456 thì code là

PHP:

Cells.Find(What:="456", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Vì do em thường xuyên copy ô B2 sheet Tenhang sau đó bấm Ctrl+F rồi paste vào khung Find what để tìm kiếm
Em cảm ơn!

snow25 · 21/7/20

Bạn thử.

Mã:

Cells.Find(What:=sheets("tenhang").range("B2").value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False).Activate

AnhThu-1976 · 21/7/20

Em có 1 AddIns tên là Doiso, em lưu trữ nó trong ổ đĩa D:/AddIns và em đã làm Addins, trong Doiso đó có Sub Docchuthanhso()
Bây giờ em muối gọi code (Docchuthanhso) thì gọi bằng cách nào
Ví dụ:em làm như sau
Sub Tonghop()
Call Docchuthanhso
End Sub
thì không được
vậy muốn gọi 1 sub của 1 addins thì gọi bằng cách nào? (vì em muốn lồng nhiều sub khác nhau vào 1 sub) Em cảm ơn!

nguyentandatkgg · 22/7/20

Chào các anh chị, em có viết VBA cho báo cáo của mình, em sử dụng Countifs trong VBA thay cho hàm có sẵn, không biết còn cách viết nào tối ưu hơn không ạ. Em cảm ơn.

Mã:

Sub bcthang()
i = 13
While i < 27
    With Sheet1
    .Range("C" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("C" & i).Value <> 0 Then
    .Range("D" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("E" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("D" & i).Value = 0
    .Range("E" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
  .Range("F" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("F" & i).Value <> 0 Then
    .Range("G" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("H" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("G" & i).Value = 0
    .Range("H" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
.Range("K" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("K" & i).Value <> 0 Then
    .Range("L" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("M" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), Sheet4.Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("L" & i).Value = 0
    .Range("M" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
i = i + 1
End With
Wend
End Sub

snow25 · 22/7/20

nguyentandatkgg đã viết:

Chào các anh chị, em có viết VBA cho báo cáo của mình, em sử dụng Countifs trong VBA thay cho hàm có sẵn, không biết còn cách viết nào tối ưu hơn không ạ. Em cảm ơn.

Mã:

Sub bcthang()
i = 13
While i < 27
    With Sheet1
    .Range("C" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("C" & i).Value <> 0 Then
    .Range("D" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("E" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("D" & i).Value = 0
    .Range("E" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.A", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
  .Range("F" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("F" & i).Value <> 0 Then
    .Range("G" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("H" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("G" & i).Value = 0
    .Range("H" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "A91.C", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
.Range("K" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
    If .Range("K" & i).Value <> 0 Then
    .Range("L" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("A7").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value), Sheet5.Range("L:L"), "<=15")
    .Range("M" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), Sheet4.Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
Else
    .Range("L" & i).Value = 0
    .Range("M" & i).Value = WorksheetFunction.CountIfs(Sheet5.Range("F:F"), .Range("B" & i), _
Sheet5.Range("G:G"), "TV", Sheet5.Range("H:H"), ">=" & CLng(.Range("N1").Value), Sheet5.Range("H:H"), _
"<=" & CLng(.Range("G7").Value))
End If
i = i + 1
End With
Wend
End Sub

Có bạn gửi file với nói rõ điều kiện.

AnhThu-1976 · 22/7/20

Các anh chị có cách nào để code

báo số lượng tìm được như hình không (phần khoanh tròn màu đỏ)
Em cảm ơn

Chuyên đề giải đáp những thắc mắc về code VBA

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

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

Thành viên gắn bó

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

Thành viên gắn bó

Ăn cùng góc phố

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

File đính kèm

Thành viên gắn bó

Ăn cùng góc phố

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

File đính kèm

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

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

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

GPE - My love

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

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

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

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

Thành viên mới

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

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

Facebook

Group