Gửi bởi
minbk
Mình mới bắt đầu học VBA, file của mình có 2 sheet: Nguồn và chạy
Mình muốn lấy điều kiện của sheet Nguồn để chọn cho sheet Chạy. Trong sheet Chạy mình tạo một vòng lặp tìm ô nào cột A giống giá trị ngày trong ô B2 ở sheet Nguồn thì ghi nội dung của ô B1 sheet Nguồn vào cột B tương ứng ở sheet Chạy.
Mình viết code như sau
Option Explicit
Sub Chon()
Dim i, n As Integer
n = 20
For i = 2 To n
If Nguon!R2C2 = Cells(i, 1) Then
Nguon!R1C2 = Cells(i, 2)
End If
Next i
End Sub
Nhưng không chạy được, các cao thủ chỉ giúp mình nhé!
Thử Sub này xem sao, chú ý khai báo rõ các biến, làm việc trên sheet thì chỉ rõ tên sheet
Mã nguồn PHP:
Sub Chon()
Dim Dk As Date, Txt As String, I As Long
Txt = Sheets("Nguon").Range("B1").Value
Dk = Sheets("Nguon").Range("B2").Value
For I = 2 To 20
If Sheets("Chay").Cells(I, 1) = Dk Then
Sheets("Chay").Cells(I, 2) = Txt
End If
Next I
End Sub
Trả lời kèm Trích dẫn
