SubThuong_BP_KinhDoanh() Dim i AsInteger Fori= 1 to 7 IfRange("F"& i+ 15)Value

Sub
Thuong_BP_KinhDoanh()

Dim i As
Integer

For
i
= 1 to 7

If
Range("F"
& i
+ 15).Value = Range("I16").Value Then

Range("G" & i
+ 15).Value = Range("J16").Value

End If

Next
i

End
Sub

nếu có nhiều sheet thì nó không có chạy nhỉ? Cách để nó chạy trên sheet nào đó làm như thế nào vậy?

Hiện tại tôi có file nhiều sheet, ví dụ sheet3 ô B3 có chứa biểu thức: B3 = A3+C3,

muốn lập vòng lặp để copy B3 xuống B4:Bi (i ở đây mình thay đổi dc, ví dụ B4:B10), nhờ hướng dẫn giúp.

Tks

5 câu trả lời

131 lượt xem

vỗ tay

Trần Văn Đức 08:07 - Jul 12, 2021

Trong đoạn code của bạn không nhắc đến đối tượng worksheet, do đó khi worksheet nào đang được kích hoạt thì sẽ chạy code ở sheet đó.

Nếu muốn chỉ định rõ tại 1 sheet riêng biệt thì phải nhắc đến worksheet trước vùng range

ví dụ:

Sheets("Sheet1").Range("F" & i + 15).value = ....

vỗ tay

Trần Văn Đức 09:07 - Jul 12, 2021

Tks ad mình đã xử lý được, và đã biết cách copy biểu thức (ý câu hỏi thứ 2).

vỗ tay

Trần Văn Đức 11:07 - Jul 12, 2021

Chúc bạn học tốt cùng gitiho

vỗ tay

Trần Văn Đức 13:01 - Jan 20, 2022

Em làm tương tự mà bấm run thì nó chỉ chạy ra được cái phần nhập "bai 2", còn phần nhập ngày tháng nó không chạy ạ?

vỗ tay

Trần Văn Đức 15:01 - Jan 20, 2022

Chào bạn bạn có thể đính kèm code lên được không?

vỗ tay