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]

VetMini · 2/12/18

i = i+1 chi vậy?
WorkSheets là một Collection. Collection có thuộc tính Count cho biết nó có bao nhiêu phần tử.

noinhodayvoi20_10 · 3/12/18

Chào mn ngày đầu tuần vv.
mọi người giúp e phương thức xác định dòng, cột cuối cùng chứa dữ liệu với ạ
bình thường e sử dụng 2 code sau :

Mã:

dim Lr_Row, Lr_Col as integer
    Lr_Row = Cells(Rows.Count, 1).End(xlUp).Row
    Lr_Col = Cells(1, Columns.Count).End(xlToLeft).Column

Tuy nhiên 2 dòng lệnh trên nó chỉ xác định được dòng và cột cuối ở cột A và dòng số 1.
Có nhiều file không thể xác định được là dòng nào hay cột nào chứa dữ liệu cuối cùng, do đó nếu sử dụng 2 dòng lệnh trên thì không đúng lắm.
mọi người có thể giúp e sử dụng cách nào tốt hơn không ạ.
xin cám ơn.

SA_DQ · 3/12/18

Xài fương thức FIND() đi bạn; luôn lúc nào cũng đạt iêu cầu bạn đề ra.

snow25 · 3/12/18

noinhodayvoi20_10 đã viết:
Chào mn ngày đầu tuần vv.
mọi người giúp e phương thức xác định dòng, cột cuối cùng chứa dữ liệu với ạ
bình thường e sử dụng 2 code sau :

Mã:

dim Lr_Row, Lr_Col as integer Lr_Row = Cells(Rows.Count, 1).End(xlUp).Row Lr_Col = Cells(1, Columns.Count).End(xlToLeft).Column

Tuy nhiên 2 dòng lệnh trên nó chỉ xác định được dòng và cột cuối ở cột A và dòng số 1.
Có nhiều file không thể xác định được là dòng nào hay cột nào chứa dữ liệu cuối cùng, do đó nếu sử dụng 2 dòng lệnh trên thì không đúng lắm.
mọi người có thể giúp e sử dụng cách nào tốt hơn không ạ.
xin cám ơn.

Bạn phải hiểu ở đây là bạn đang lấy ở dòng 1 va cột 1.Bạn có thể thay đổi dòng và cột mà.Thay số 1 thành số 2 nó khác ngay.Nó là dòng 2 và cột B đó.

Bài đã được tự động gộp: 3/12/18

SA_DQ đã viết:
Xài fương thức FIND() đi bạn; luôn lúc nào cũng đạt iêu cầu bạn đề ra.

Bạn hướng dẫn phương thức đó xem nào.FIND() đó.

SA_DQ · 3/12/18

https://www.giaiphapexcel.com/diend...ương-thức-tìm-kiếm-find-find-method.15116/#21

noinhodayvoi20_10 · 3/12/18

snow25 đã viết:
Bạn phải hiểu ở đây là bạn đang lấy ở dòng 1 va cột 1.Bạn có thể thay đổi dòng và cột mà.Thay số 1 thành số 2 nó khác ngay.Nó là dòng 2 và cột B đó.

Bài đã được tự động gộp: 3/12/18

Bạn hướng dẫn phương thức đó xem nào.FIND() đó.

bạn hiểu ko : vì là dữ liệu mình hơn 4000 cột, bây giờ đâu xác định được cột nào là có dữ liệu dài nhất để mà chọn "A" Hay là "X" ???

snow25 · 3/12/18

noinhodayvoi20_10 đã viết:
bạn hiểu ko : vì là dữ liệu mình hơn 4000 cột, bây giờ đâu xác định được cột nào là có dữ liệu dài nhất để mà chọn "A" Hay là "X" ???

À vậy thì xác định dòng lớn nhất trong đó.
Vậy bạn thử.

Mã:

Sub xacdinhsodong()
Dim a As Long
With Sheet1
a = .UsedRange.Rows.Count
MsgBox a
End With
End Sub

Gà cận thị · 3/12/18

VetMini đã viết:
i = i+1 chi vậy?
WorkSheets là một Collection. Collection có thuộc tính Count cho biết nó có bao nhiêu phần tử.

Nếu không có dòng: i=i+1
thì số sheet sẽ bằng không thì sao anh ?
hay còn có cái gì khác, em chưa hiểu ý chổ này lắm !

noinhodayvoi20_10 · 3/12/18

snow25 đã viết:
À vậy thì xác định dòng lớn nhất trong đó.
Vậy bạn thử.

Mã:

Sub xacdinhsodong() Dim a As Long With Sheet1 a = .UsedRange.Rows.Count MsgBox a End With End Sub

Cám ơn ! Code này có hiệu quả. Vậy liệu mình bỏ with đi
Gắn cho a = sheet1.usedrange.rows.count đc k nhỉ

snow25 · 3/12/18

noinhodayvoi20_10 đã viết:
Cám ơn ! Code này có hiệu quả. Vậy liệu mình bỏ with đi
Gắn cho a = sheet1.usedrange.rows.count đc k nhỉ

Được nó vẫn như nhau mà.

Bài đã được tự động gộp: 3/12/18

Gà cận thị đã viết:
Nếu không có dòng: i=i+1
thì số sheet sẽ bằng không thì sao anh ?
hay còn có cái gì khác, em chưa hiểu ý chổ này lắm !

Bạn có thể thay bằng thế này.

Mã:

Sub Vonglap_For8()
    Dim mysheet As Worksheet
    Dim i As Integer
    For Each mysheet In ActiveWorkbook.Worksheets
  
    MsgBox mysheet.Name
    MsgBox "So sheets trong Worksheet la: " & mysheet.Index
    Next mysheet
    
End Sub

Gà cận thị · 3/12/18

snow25 đã viết:
Được nó vẫn như nhau mà.

Bài đã được tự động gộp: 3/12/18

Bạn có thể thay bằng thế này.

Mã:

Sub Vonglap_For8() Dim mysheet As Worksheet Dim i As Integer For Each mysheet In ActiveWorkbook.Worksheets MsgBox mysheet.Name MsgBox "So sheets trong Worksheet la: " & mysheet.Index Next mysheet End Sub

Cách này cũng hay, nhưng nếu số sheet nhiều lên thì mau hư chuột lắm anh ! :cray:

snow25 · 3/12/18

Gà cận thị đã viết:
Cách này cũng hay, nhưng nếu số sheet nhiều lên thì mau hư chuột lắm anh !

Bạn muốn xem có bao nhiêu sheets à.Mình tưởng hiện thị từng sheets.

Mã:

Sub Vonglap_For8()
    Dim mysheet As Worksheet
    Dim i As Integer
    For Each mysheet In ActiveWorkbook.Worksheets

    MsgBox mysheet.Name
   
    Next mysheet
   MsgBox "So sheets trong Worksheet la: " & Sheets.Count
End Sub

Gà cận thị · 3/12/18

snow25 đã viết:
Bạn muốn xem có bao nhiêu sheets à.Mình tưởng hiện thị từng sheets.

Mã:

Sub Vonglap_For8() Dim mysheet As Worksheet Dim i As Integer For Each mysheet In ActiveWorkbook.Worksheets MsgBox mysheet.Name Next mysheet MsgBox "So sheets trong Worksheet la: " & Sheets.Count End Sub

Híc cái tưởng nhầm của anh mà hóa ra lại hay với em.

quangchinhtdc · 4/12/18

Mình mới tập tành làm code VBA phục vụ công việc. Mình có thắc mắc muốn nhờ giải đáp giúp.
Mình có file dùng Vlookup để in nhiều phần khác nhau với 1 khuôn giống nhau. Và đã có dùng VBA để in số lượng lớn giấy với 1 thao tác.
Nhưng khi mình dùng hàm For To Next để in thì chỉ thực hiện được từ số nhỏ đến số lớn.
Vậy có cách nào để mình in với số lượng lớn từ lớn đến nhỏ được không?

Ba Tê · 4/12/18

quangchinhtdc đã viết:
Mình mới tập tành làm code VBA phục vụ công việc. Mình có thắc mắc muốn nhờ giải đáp giúp.
Mình có file dùng Vlookup để in nhiều phần khác nhau với 1 khuôn giống nhau. Và đã có dùng VBA để in số lượng lớn giấy với 1 thao tác.
Nhưng khi mình dùng hàm For To Next để in thì chỉ thực hiện được từ số nhỏ đến số lớn.
Vậy có cách nào để mình in với số lượng lớn từ lớn đến nhỏ được không?

Được!
For I=lớn To nhỏ Step - mấy

VetMini · 4/12/18

For số = nhỏ To lớn
thì vòng lặp đi từ số nhỏ sang lớn, từng bước một.

For số = lớn To nhỏ Step -1
thì vòng lặp đi từ lớn xuống nhỏ, từng bước một. Đừng quên cái chỗ Step -1

tonnydung · 4/12/18

tam888 đã viết:
Thay đoạn code If ... EndIf đầu sub thành đoạn sau, xem có được không

Mã:

If lngRow <= 3 Then lngRow = 4 Else Dim Rg As Range Set Rg = .Range("B4:B" & lngRow).Find(txtmakhncc.Text,lookin:=xlValues, LookAt:=xlWhole) If Not Rg Is Nothing Then Msgbox "Da co trung " & txtmakhncc.Text Exit sub End If lngRow = lngRow + 1 End If

Em làm được rồi, Tks bác nhiều. Nhưng em muốn thêm điều kiện nữa như sau thì phải thêm như nào (phần điều kiện trên vẫn giữ song song với điều kiện dưới đây):
- Trong file excell ở cột C4:C (là dữ liệu ở Textboxt "txtphanbiet.Text" nhập vào mà có chữ "kh") thì sẽ kiểm tra điều kiện cột E4:E (cột này là cột của Textboxt "txtsodtkhncc.Text" được nhập vào mà dữ liệu đã có thì cũng báo trùng và ko cho nhập (lưu ý chỉ ktra khi cột C là chữ "kh")

Em có VD trong file attch kèm theo.

=> giờ em phải thêm code VBA điều kiện như nào ah ? Rất mong cả nhà giúp đỡ.

tam888 · 4/12/18

tonnydung đã viết:
Em làm được rồi, Tks bác nhiều. Nhưng em muốn thêm điều kiện nữa như sau thì phải thêm như nào (phần điều kiện trên vẫn giữ song song với điều kiện dưới đây):
- Trong file excell ở cột C4:C (là dữ liệu ở Textboxt "txtphanbiet.Text" nhập vào mà có chữ "kh") thì sẽ kiểm tra điều kiện cột E4:E (cột này là cột của Textboxt "txtsodtkhncc.Text" được nhập vào mà dữ liệu đã có thì cũng báo trùng và ko cho nhập (lưu ý chỉ ktra khi cột C là chữ "kh")

Em có VD trong file attch kèm theo.

=> giờ em phải thêm code VBA điều kiện như nào ah ? Rất mong cả nhà giúp đỡ.

Đưa file kiểu này thì sao test đúng sai, nên bạn thử làm đi rồi gửi lên đây hỏi tiếp nếu mắc

tonnydung · 5/12/18

tam888 đã viết:
Đưa file kiểu này thì sao test đúng sai, nên bạn thử làm đi rồi gửi lên đây hỏi tiếp nếu mắc

Vậy em muốn bỏ qua việc set "kh" giờ em chỉ set 2 mục
("B4:B" & lngRow).Find(txtmakhncc.Text, LookIn:=xlValues, LookAt:=xlWhole) và ("F4:F" & lngRow).Find(txtsodtkhncc.Text, LookIn:=xlValues, LookAt:=xlWhole) anh giup em doan Code VBA của nó sẽ phải viết như nào ah ?

tam888 · 5/12/18

tonnydung đã viết:
Vậy em muốn bỏ qua việc set "kh" giờ em chỉ set 2 mục
("B4:B" & lngRow).Find(txtmakhncc.Text, LookIn:=xlValues, LookAt:=xlWhole) và ("F4:F" & lngRow).Find(txtsodtkhncc.Text, LookIn:=xlValues, LookAt:=xlWhole) anh giup em doan Code VBA của nó sẽ phải viết như nào ah ?

Thì cũng vậy bạn phải tự thân vận động , sáng tạo lên, đừng cứ chờ ù ì sẽ bao giờ lên tay
Đây, thử thế này

Mã:

If lngRow <= 3 Then
    lngRow = 4
Else
    'Kiem tra trung Ma
    Dim Rg As Range
    Set Rg = .Range("B4:B" & lngRow).Find(txtmakhncc.Text,lookin:=xlValues, LookAt:=xlWhole)
    If Not Rg  Is Nothing Then
        Msgbox "Da co trung " & txtmakhncc.Text
        Exit sub
    End If
  
    'Kiem tra trung so dt
    Set Rg = Nothing
     Set Rg = .Range("F4:F" & lngRow).Find(txtsodtkhncc.Text,lookin:=xlValues, LookAt:=xlWhole)
    If Not Rg  Is Nothing Then
        Msgbox "Da co trung " & txtsodtkhncc.Text
        Exit sub
    End If
  
    lngRow = lngRow + 1
End If

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

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

Ăn cùng góc phố

Thành viên mới

/(hông là gì!

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

/(hông là gì!

Thành viên mới

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

Thành viên mới

Thành viên mới

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

Thành viên mới

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

Thành viên mới

Thành viên mới

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

Ăn cùng góc phố

Thành viên chính thức

File đính kèm

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

Thành viên chính thức

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

Facebook

Group