Viết code VBA lấy dữ liệu theo điều kiện (1 người xem)

[tuankhanh1981]

Minh dang hoc VBA cho excel va co kho khan khi viet code cho vi du nhu duoi day mong moi nguoi giup do
Yeu cau cua vi du la:
Do tu trai sang phai khi xuat hien cot gia tri lon hon 0 thi lay gia tri tren tieu de
[TABLE="width: 500"]
[TR]
[TD="align: center"]W1[/TD]
[TD="align: center"]W2[/TD]
[TD="align: center"]W3[/TD]
[TD="align: center"]W4[/TD]
[TD="align: center"]KQ[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]112[/TD]
[TD="align: center"]234[/TD]
[TD="align: center"]W3[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]6[/TD]
[TD="align: center"]W1[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]W2[/TD]
[/TR]
[/TABLE]

Ket qua dung se hien thi nhu phan mau do o o KQ
Minh su dung vong lap long for next de viet nhu sau:

Sub vonglap()
Dim i, j As Integer
For i = 2 To 4
For j = 1 To 4
If Cells(i, j).Value > 0 Then
Cells(i, 5) = Cells(1, j)
End If
Next j
Next i
End Sub

Nhung ket qua chuong trinh lai la
[TABLE="width: 500"]
[TR]
[TD="align: center"]W1[/TD]
[TD="align: center"]W2[/TD]
[TD="align: center"]W3[/TD]
[TD="align: center"]W4[/TD]
[TD="align: center"]KQ[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]112[/TD]
[TD="align: center"]234[/TD]
[TD="align: center"]W4[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]6[/TD]
[TD="align: center"]W4[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]W2[/TD]
[/TR]
[/TABLE]

Mong moi nguoi chi sua loi lai gium
Xin cam on

 

[giaiphap]

Minh dang hoc VBA cho excel va co kho khan khi viet code cho vi du nhu duoi day mong moi nguoi giup do
Yeu cau cua vi du la:
Do tu trai sang phai khi xuat hien cot gia tri lon hon 0 thi lay gia tri tren tieu de
[TABLE="width: 500"]
[TR]
[TD="align: center"]W1[/TD]
[TD="align: center"]W2[/TD]
[TD="align: center"]W3[/TD]
[TD="align: center"]W4[/TD]
[TD="align: center"]KQ[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]112[/TD]
[TD="align: center"]234[/TD]
[TD="align: center"]W3[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]6[/TD]
[TD="align: center"]W1[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]W2[/TD]
[/TR]
[/TABLE]

Ket qua dung se hien thi nhu phan mau do o o KQ
Minh su dung vong lap long for next de viet nhu sau:

Sub vonglap()
Dim i, j As Integer
For i = 2 To 4
For j = 1 To 4
If Cells(i, j).Value > 0 Then
Cells(i, 5) = Cells(1, j)
End If
Next j
Next i
End Sub

Nhung ket qua chuong trinh lai la
[TABLE="width: 500"]
[TR]
[TD="align: center"]W1[/TD]
[TD="align: center"]W2[/TD]
[TD="align: center"]W3[/TD]
[TD="align: center"]W4[/TD]
[TD="align: center"]KQ[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]112[/TD]
[TD="align: center"]234[/TD]
[TD="align: center"]W4[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]6[/TD]
[TD="align: center"]W4[/TD]
[/TR]
[TR]
[TD="align: center"]0[/TD]
[TD="align: center"]34[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]0[/TD]
[TD="align: center"]W2[/TD]
[/TR]
[/TABLE]

Mong moi nguoi chi sua loi lai gium
Xin cam on

Cái này không cần dùng hàm tự tạo đâu, chỉ cần cài công thức là ra ngay thôi. Nhưng bạn sẽ không được như ý nếu không sửa lại bài viết do vi phạm nội qui

 

[ChanhTQ@]

 

[be_09]

tuankhanh1981

Bạn nên xem lại nội quy (tại MucII.Quy định về tiêu đề bài viết trước khi đăng bài, kẻo không ai trả lời mà còn bị khóa bài viết.

http://www.giaiphapexcel.com/forum/showthread.php?76052&tabid=143

 

[ChanhTQ@]

././././././././.././././././