tuankhanh1981
Thành viên mới
- Tham gia
- 3/11/15
- Bài viết
- 1
- Được thích
- 0
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
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
Mong moi nguoi chi sua loi lai gium
Xin cam on
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
W1 | W2 | W3 | W4 | KQ |
0 | 0 | 112 | 234 | W3 |
1 | 0 | 34 | 6 | W1 |
0 | 34 | 0 | 0 | W2 |
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
W1 | W2 | W3 | W4 | KQ |
0 | 0 | 112 | 234 | W4 |
1 | 0 | 34 | 6 | W4 |
0 | 34 | 0 | 0 | W2 |
Mong moi nguoi chi sua loi lai gium
Xin cam on