Viết code VBA lấy dữ liệu theo điều kiện

Liên hệ QC

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
W1W2W3W4KQ
00112234W3
10346W1
03400W2

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
W1W2W3W4KQ
00112234W4
10346W4
03400W2

Mong moi nguoi chi sua loi lai gium
Xin cam on
 
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
W1W2W3W4KQ
00112234W3
10346W1
03400W2

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
W1W2W3W4KQ
00112234W4
10346W4
03400W2

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
 
Upvote 0
./././././././././/////././././././
 

File đính kèm

  • BachDuong_.jpg
    BachDuong_.jpg
    35.4 KB · Đọc: 973
Upvote 0
Web KT
Back
Top Bottom