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]

keke355992 · 30/5/17

NguyenNgocThuHien đã viết:
Vừa thử xong, chạy ầm ầm luôn. Chỉ có điều là code nhìn ngộ quá.

Phải thêm value2 mới chạy đc mà bạn. Mới cả Sumifs ngoài cách viết code kiểu đó thì còn cách dùng FormulaR1C1 nữa. Chứ mình có thấy nó ngộ đâu nhỉ

keke355992 · 30/5/17

huuthang_bd đã viết:
Bạn sửa [H2] thành [H2].Value2 là được

Nhớ là có đọc 1 comment nói về Value2, hình như của @ThuNghi thì phải, bảo rằng cứ nhắc đến ngày tháng thì chơi thằng Value2. Mà nay ko nghĩ ra. Cảm ơn a !

The only difference between this property and the Value property is that the Value2 property doesn’t use the Currency and Date data types. You can return values formatted with these data types as floating-point numbers by using the Double data type.

keke355992 · 30/5/17

VetMini đã viết:
Bạn copy code đưa lên, và cho biết code làm cái gì. Tôi đọc lô gic của code trước và chỉ tải file về khi cần kiểm chứng đúng sai.

E đang vọc cách sử dụng hàm Excel trong VBA, sáng nay mắc đoạn hàm Sumifs về cái điều kiện liên quan đến ngày tháng. Value nó k chịu, mà phải là value2

NguyenNgocThuHien · 31/5/17

keke355992 đã viết:
Nhớ là có đọc 1 comment nói về Value2, hình như của @ThuNghi thì phải, bảo rằng cứ nhắc đến ngày tháng thì chơi thằng Value2. Mà nay ko nghĩ ra. Cảm ơn a !

The only difference between this property and the Value property is that the Value2 property doesn’t use the Currency and Date data types. You can return values formatted with these data types as floating-point numbers by using the Double data type.

Thử dùng cái này xem CDbl([H2])

NguyenNgocThuHien · 31/5/17

keke355992 đã viết:
Phải thêm value2 mới chạy đc mà bạn. Mới cả Sumifs ngoài cách viết code kiểu đó thì còn cách dùng FormulaR1C1 nữa. Chứ mình có thấy nó ngộ đâu nhỉ

Mình nói ngộ là do đoạn code sau, dùng khá là lẫn lộn mọi thứ, lúc thì dùng viết tắt, lúc thì dùng dạng đầy đủ. Cái nữa là code của bạn lại chạy được trên máy mình, không rõ có phải do vấn đề định dạng ngày tháng không?

Mã:

With Sheets("A")
[K5].Value = Application.WorksheetFunction.SumIfs(.Range("E4:E15"), _
                                                  .Range("D4:D15"), [H3], _
                                                  .Range("C4:C15"), "<" & CDbl([H2]))
End With

keke355992 · 1/6/17

Chào mọi người. Cho mình hỏi về phương thức Find, với cách tìm kiếm gần chính xác như trong file đính kèm. Xin cảm ơn !

uyento · 2/6/17

Em chào mọi người!
Em mới tập tành VBA. có 1 câu lệnh mà em không biết sửa như thế nào mong người chỉ giáo giúp với ạ!
" Case Is = 5
Rows("42:42,52:52").EntireRow.Hidden = True
Rows("286:287").RowHeight = 148
End Select "

phulien1902 · 2/6/17

uyento đã viết:
Em chào mọi người!
Em mới tập tành VBA. có 1 câu lệnh mà em không biết sửa như thế nào mong người chỉ giáo giúp với ạ!
" Case Is = 5
Rows("42:42,52:52").EntireRow.Hidden = True
Rows("286:287").RowHeight = 148
End Select "

Bạn thử với:

PHP:

Sub abc()
    Application.ScreenUpdating = False
    Select Case Range("A1").Value
    Case 5
        Rows("42:42").EntireRow.Hidden = True
        Rows("52:52").EntireRow.Hidden = True
        Rows("286:287").RowHeight = 148
    End Select
    Application.ScreenUpdating = True
End Sub

uyento · 2/6/17

phulien1902 đã viết:

Bạn thử với:

PHP:

Sub abc()
    Application.ScreenUpdating = False
    Select Case Range("A1").Value
    Case 5
        Rows("42:42").EntireRow.Hidden = True
        Rows("52:52").EntireRow.Hidden = True
        Rows("286:287").RowHeight = 148
    End Select
    Application.ScreenUpdating = True
End Sub

Em cám ơn ạ!

vanthinh3101 · 5/6/17

Nhờ mọi người giúp đỡ tìm ra lỗi của code này với ah.
Tôi có 1 bảng dữ liệu với 1 cột có các giá trị là Ban Giám đốc, Phòng Kế toán - Ngân quỹ, Phòng Khách hàng, Phòng Giám sát Hoạt động.
Tôi đã đưa các giá trị trên vào 1 array.
Khi dùng vòng lặp For...Next thì đến giá trị thứ 2 thì bị lỗi ở hàm CountIf, J ra kết quả là 0
Nhờ mọi người chỉ giáo giúp

Mã:

Sub Macro1()
    Dim Criteria(1 To 5) As String, rng As Variant
    Dim I As Integer, J As Integer, K As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet
   
    Set ws1 = ThisWorkbook.Sheets(1)
    Set ws2 = ThisWorkbook.Sheets(2)
   
    Criteria(1) = "Ban Giám " & ChrW(273) & ChrW(7889) & "c"
    Criteria(2) = "Phòng Giám sát Ho" & ChrW(7841) & "t " & ChrW(273) & ChrW(7897) & "ng"
    Criteria(3) = "Phòng Khách hàng"
    Criteria(4) = "Phòng K" & ChrW(7871) & " toán - Ngân qu" & ChrW(7929)
    Criteria(5) = "Phòng Qu" & ChrW(7843) & "n lý các PGD B" & ChrW(432) & "u " & ChrW(273) & "i" & ChrW(7879) & "n"
   
    With ws2
        For I = 1 To UBound(Criteria)
            J = Application.WorksheetFunction.CountIf(.Range("CF3", .Range("CF3").End(xlDown)), Criteria(I))
            With .Range("A2", .Range("A2").End(xlDown)).Resize(, 87)
                .Parent.AutoFilterMode = False
                .AutoFilter
                .AutoFilter field:=84, Criteria1:=Criteria(I)
                Set rng = .Parent.AutoFilter.Range.Offset(1).Resize(J, 1)
                With ws1
                    K = .Cells.Find(what:=Criteria(I)).Row + 1
                    .Range("A" & K).Resize(J) = rng.Value2
                End With
            End With
        Next I
    End With
 
End Sub

befaint · 5/6/17

vanthinh3101 đã viết:
Nhờ mọi người giúp đỡ tìm ra lỗi của code này với ah.
Tôi có 1 bảng dữ liệu với 1 cột có các giá trị là Ban Giám đốc, Phòng Kế toán - Ngân quỹ, Phòng Khách hàng, Phòng Giám sát Hoạt động.
Tôi đã đưa các giá trị trên vào 1 array.
Khi dùng vòng lặp For...Next thì đến giá trị thứ 2 thì bị lỗi ở hàm CountIf, J ra kết quả là 0
Nhờ mọi người chỉ giáo giúp

- Quy tắc: Gửi thêm file dữ liệu và nêu yêu cầu cụ thể!

vanthinh3101 · 5/6/17

befaint đã viết:
- Quy tắc: Gửi thêm file dữ liệu và nêu yêu cầu cụ thể!

Em muốn lấy dữ liệu từ sheet Data sang sheet Bang luong
Ở sheet Bang lương, cột nào cần lấy số liệu, em đã đánh số thứ tự tương ứng với số cột của sheet Data rồi
Bác lưu ý cho em câu hỏi tìm lỗi ở bài trên nhé!

TTThuyen · 6/6/17

Bác nào giúp e tự động insert với ạ!
Tại sheet 1 khi e insert thêm 1 dòng ( dưới dòng 16) thì sheet 2 sẽ tự động copy dòng 120 và insert xuống

HieuCD · 6/6/17

vanthinh3101 đã viết:
Em muốn lấy dữ liệu từ sheet Data sang sheet Bang luong
Ở sheet Bang lương, cột nào cần lấy số liệu, em đã đánh số thứ tự tương ứng với số cột của sheet Data rồi
Bác lưu ý cho em câu hỏi tìm lỗi ở bài trên nhé!

phải bỏ filter mới đếm được

Mã:

    With ws2
        For I = 1 To UBound(Criteria)
            .Range("A2").Parent.AutoFilterMode = False
            J = Application.WorksheetFunction.CountIf(.Range("CF3", .Range("CF3").End(xlDown)), Criteria(I))
            With .Range("A2", .Range("A2").End(xlDown)).Resize(, 87)
                .AutoFilter field:=84, Criteria1:=Criteria(I)
                Set rng = .Parent.AutoFilter.Range.Offset(1).Resize(J, 1)
                With ws1
                    K = .Cells.Find(what:=Criteria(I)).Row + 1
                    .Range("A" & K).Resize(J) = rng.Value2
                End With
            End With
        Next I
    End With

Ba Tê · 6/6/17

vanthinh3101 đã viết:
Em muốn lấy dữ liệu từ sheet Data sang sheet Bang luong
Ở sheet Bang lương, cột nào cần lấy số liệu, em đã đánh số thứ tự tương ứng với số cột của sheet Data rồi
Bác lưu ý cho em câu hỏi tìm lỗi ở bài trên nhé!

Biểu đọc code của bạn rồi tìm chỗ sai thì thà tôi viết theo ý mình còn "dễ' thở" hơn.
Bạn xem file nhé, có gì thì bàn tiếp.

vanthinh3101 · 6/6/17

HieuCD đã viết:

phải bỏ filter mới đếm được

Mã:

    With ws2
        For I = 1 To UBound(Criteria)
            .Range("A2").Parent.AutoFilterMode = False
            J = Application.WorksheetFunction.CountIf(.Range("CF3", .Range("CF3").End(xlDown)), Criteria(I))
            With .Range("A2", .Range("A2").End(xlDown)).Resize(, 87)
                .AutoFilter field:=84, Criteria1:=Criteria(I)
                Set rng = .Parent.AutoFilter.Range.Offset(1).Resize(J, 1)
                With ws1
                    K = .Cells.Find(what:=Criteria(I)).Row + 1
                    .Range("A" & K).Resize(J) = rng.Value2
                End With
            End With
        Next I
    End With

Bác HieuCD cho em hỏi thêm với ah.
Em muốn đặt rng bằng với kết quả lọc có loại bỏ dòng tiêu đề thì em phải làm sao ah.

vanthinh3101 · 6/6/17

Ba Tê đã viết:
Biểu đọc code của bạn rồi tìm chỗ sai thì thà tôi viết theo ý mình còn "dễ' thở" hơn.
Bạn xem file nhé, có gì thì bàn tiếp.

Em cám ơn bác ah.
Quả thực hàm mảng nhanh nhưng cũng phức tạp quá.

HieuCD · 6/6/17

vanthinh3101 đã viết:
Bác HieuCD cho em hỏi thêm với ah.
Em muốn đặt rng bằng với kết quả lọc có loại bỏ dòng tiêu đề thì em phải làm sao ah.

lệnh
Set rng = .Parent.AutoFilter.Range.Offset(1).Resize(J, 1)
trong đó Offset(1) là xuống 1 dòng để bỏ dòng tiêu đề
bạn thử code

Mã:

    With ws2
        For I = 1 To UBound(Criteria)
            .Range("A2").Parent.AutoFilterMode = False
            With .Range("A2", .Range("A2").End(xlDown)).Resize(, 87)
                .AutoFilter field:=84, Criteria1:=Criteria(I)
            End With
            Set rng = .Range("A3", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
            With ws1
                  K = .Cells.Find(what:=Criteria(I)).Row + 1
                  .Range("A" & K).Resize(rng.Rows.Count) = rng.Value2
            End With
        Next I
    End With

ntunga2 · 7/6/17

Xin chào cả nhà
Mình muốn hỏi nếu mình muốn viết code đổi màu ô dữ liệu trong exel thì làm thế nào

phulien1902 · 7/6/17

ntunga2 đã viết:
Xin chào cả nhà
Mình muốn hỏi nếu mình muốn viết code đổi màu ô dữ liệu trong exel thì làm thế nào

Có rất nhiều cách tô màu dữ liệu trong Excel, không rõ bạn muốn tô màu thế nào?

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 thường trực

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

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

Cute Black Cat

Cute Black Cat

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

File đính kèm

Thành viên mới

GPE - My love

Thành viên mới

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

|||||||||||||

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

File đính kèm

Thành viên mới

File đính kèm

Chuyên gia GPE

Cạo Rồi Khỏi Gội

File đính kèm

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

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

Chuyên gia GPE

Thành viên mới

GPE - My love