Hỏi tìm hiểu về hàm if trong VBA? (1 người xem)

[ninhmoon]

Gửi!
em có file đính kèm về ví dụ hàm if trong VBA.
Nội dung yêu cầu trong file:
File đính kèm rất là nhẹ, nhưng Em ko thể đính kèm được nên forum vấn đề là
hình ảnh : http://i.imgur.com/q3yNUuX.jpg
http://i.imgur.com/KgYAjJi.jpg
và file gửi mediafire:
http://www.mediafire.com/download/64ikbgouoyk3mh0/VBAtomau.xls

 

[quanluu]

Gửi!
em có file đính kèm về ví dụ hàm if trong VBA.
Nội dung yêu cầu trong file:
File đính kèm rất là nhẹ, nhưng Em ko thể đính kèm được nên forum vấn đề là
hình ảnh : http://i.imgur.com/q3yNUuX.jpg
http://i.imgur.com/KgYAjJi.jpg
và file gửi mediafire:
http://www.mediafire.com/download/64ikbgouoyk3mh0/VBAtomau.xls

Khi viết code bạn phải xác định bạn đang làm việc trên đối tượng nào.
Bạn cho hỏi trong code của bạn selection là cái nào? thường thì selection là ô bạn đang trỏ chuột, nhưng trong code bạn muốn làm việc trong 1 vùng cụ thể thì bạn phải hướng tới đối tượng đó.

Sub su_dung_if()
Dim i As Integer
    For i = 5 To 28
        If Cells(i, 1) >= 0 Then
            Cells(i, 1).Interior.ColorIndex = 3
        ElseIf Cells(i, 1) < 0 Then
            Cells(i, 1).Interior.ColorIndex = 4
        End If
    Next
End Sub

 

[HungQuoc49]

Gửi!
em có file đính kèm về ví dụ hàm if trong VBA.
Nội dung yêu cầu trong file:
File đính kèm rất là nhẹ, nhưng Em ko thể đính kèm được nên forum vấn đề là
hình ảnh : http://i.imgur.com/q3yNUuX.jpg
http://i.imgur.com/KgYAjJi.jpg
và file gửi mediafire:
http://www.mediafire.com/download/64ikbgouoyk3mh0/VBAtomau.xls

Thử sửa lại code của bạn.
Thêm khai báo cho vùng chọn
Thêm vòng lặp chạy quét các phần tử của vùng chọn

Hình như code cũ của bạn chỉ xử lý được từng ô.

Sub su_dung_if()
Dim Cll As Range

Sheet1.Range("A5", "A28").Interior.ColorIndex = xlNone
Sheet1.Range("A5", "A28").Select
    
For Each Cll In Selection
    If Cll.Value >= 0 Then
        Cll.Interior.ColorIndex = 3
    ElseIf Cll.Value < 0 Then
        Cll.Interior.ColorIndex = 4
    End If
Next Cll
    
End Sub

 

[ninhmoon]

Khi viết code bạn phải xác định bạn đang làm việc trên đối tượng nào.
Bạn cho hỏi trong code của bạn selection là cái nào? thường thì selection là ô bạn đang trỏ chuột, nhưng trong code bạn muốn làm việc trong 1 vùng cụ thể thì bạn phải hướng tới đối tượng đó.

Thực chất là Em đang muốn chọn và làm việc trên Cells(i,1) với i=5 to 28
giốn đoạn code của Bạn ở bên trên.
Đoạn code đúng với yêu cầu và cũng rất dễ hiểu.