- Khác nhau giữa 2 cái này chổ nào

[dmtdmtbb]

Code 1
Dim CheckA As String, CheckB As String, CheckD As String
For i = 7 To 500
...CheckA = "A" & i
...CheckB = "B" & i
...CheckD = "D" & i
...Range(CheckA).Select
.....If ActiveCell.FormulaR1C1 = "" Then
.......Range(CheckB).Select
..........If ActiveCell.FormulaR1C1 = "" Then
...............Range(CheckD).Select
...............If ActiveCell.FormulaR1C1 = "" Then
....................Range(CheckB).Select
....................Exit Sub
...............End If
..........End If
.....End If
Next i
-----------------------------------------------------
Code 2
For i = 7 To 1000
.....If Cells(i, 1).Select = "" Then
.......... If Cells(i, 2).Select = "" Then
...............If Cells(i, 4).Select = "" Then
....................Cells(i, 2).Select
....................Exit Sub
...............End If
..........End If
.....End If
Next i
------------------------------------------------
2 code này hoạt động không giốn nhay, bác nào biết giải thích dùm !!!
ọc ọc ọc

 

[Nguyễn Duy Tuân]

Khi người dùng bấm chuột vào ô B1. Trong VBA là Range("B1").Select. ActiveCell là ô hiện thời.

Range("B1") = Cells(1,2)

Trong lập trình VBA, nên dùng Cells(,) hơn vì nó linh động.

 

[dmtdmtbb]

- Anh Tuân xem file này của em, tại sao nó hoạt động không giống nhau !!!

 

[voda]

Code 2 phải viết lại thế này:

Private Sub CommandButton2_Click()
For i = 7 To 500
If Cells(i, 1) = "" Then
If Cells(i, 2) = "" Then
If Cells(i, 4) = "" Then
Cells(i, 2).Select
Exit Sub
End If
End If
End If
Next i
End Sub

 

[dmtdmtbb]

- Cám ơn bác voda bay giờ thì đã hiểu tại sao rồi !!!

 

[Mr Okebab]

Code 2 phải viết lại thế này:

Sao dùng nhiều if thế ?? Một cái không được hả bác ???

 

[dmtdmtbb]

Sao dùng nhiều if thế ?? Một cái không được hả bác ???

- Bác xem file vd post 3 thì biết tại sao, hoặc bác có cách nào hay hơn thì trình làng đi. Thân!!!

 

[voda]

Nguyên văn bởi Mr okebab
Sao dùng nhiều if thế ?? Một cái không được hả bác ???

Đúng thế, if hơi nhiều. Cần phải chỉnh thêm nữa.

Private Sub CommandButton2_Click()
For i = 7 To 500
If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 4) = "" Then
Cells(i, 2).Select
Exit Sub
End If
Next i
End Sub