Chọn vùng theo điều kiện

[tiendat210]

Xin chào các bạn
Xin nhờ giúp đỡ viết chương trình vba, cột C bằng cột A nhân với cột B. Sau đó nó select vùng của cột C từ dòng đầu tiên tới dòng chứa số >0 cuối cùng trong cột C
XIN CÁM ƠN ạ

 

[ngocbaovu]

Có file mẫu cũng lười làm và lười up thì bạn đợi người sau trả lời vậy.

 

[tiendat210]

Có file mẫu cũng lười làm và lười up thì bạn đợi người sau trả lời vậy.

Sai sót quá. Giúp đỡ mình nhé bạn

 

[ngocbaovu]

Sai sót quá. Giúp đỡ mình nhé bạn

Bạn thử code này.
Sub chon_cot()
Dim i, lr As Integer
lr = Range("C" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Range("C" & i).Value > 0 Or i = 2 Then
GoTo chon
End If
Next i
chon:
Range("C2:C" & i).Select
End Sub
.........
Còn cái C=A*B thì thôi.

 

[tiendat210]

Bạn thử code này.
Sub chon_cot()
Dim i, lr As Integer
lr = Range("C" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Range("C" & i).Value > 0 Or i = 2 Then
GoTo chon
End If
Next i
chon:
Range("C2:C" & i).Select
End Sub
.........
Còn cái C=A*B thì thôi.

Cám ơn bạn rất nhiều. Đúng ý mình luôn

 

[bebo021999]

Nếu số dòng lên tới vài ngàn dòng thì xài cái này

Option Explicit
Sub chon()
Dim lr&
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("C2:C1000").ClearContents
Range("C2:C" & lr).Value = Evaluate("=A2:A" & lr & "*B2:B" & lr)
Range("C2:C" & Evaluate("=LOOKUP(2,1/(C2:C" & lr & ">0),ROW(C2:C" & lr & "))")).Select
End Sub

 

[tiendat210]

Nếu số dòng lên tới vài ngàn dòng thì xài cái này

Option Explicit
Sub chon()
Dim lr&
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("C2:C1000").ClearContents
Range("C2:C" & lr).Value = Evaluate("=A2:A" & lr & "*B2:B" & lr)
Range("C2:C" & Evaluate("=LOOKUP(2,1/(C2:C" & lr & ">0),ROW(C2:C" & lr & "))")).Select
End Sub

@ngocbaovu , @bebo021999 Dạ xin cám ơn các bác đã hỗ trợ. Em có 1 bài nữa, xin nhờ bác giúp đỡ với ạ. Em cần active cell có điều kiện là: Dòng là dòng đang active, cột là cột chứa ngày cần tìm kiếm. MONG BÁC GIÚP ĐỠ VỚI Ạ. XIN CÁM ƠN NHIÊU Ạ