Nhờ sửa lỗi code

[tuan_anhbm]

Chào các bạn.
Tôi có 1 code đơn giản nhưng không hiểu bị lỗi gì, báo lỗi tại câu lệnh tô đậm:

[FONT=Tahoma][SIZE=2]i = Sheets(2).Range("B2").Value[/SIZE][/FONT]
[SIZE=2][B][FONT=Tahoma]Range("A3").Value = "=(A1+A2)*" & i[/FONT][/B][/SIZE]

(gán công thức trong ô A3 của sheets(1): "=(A1+A2)*5%", trong đó 5% = Sheets(2).Range("B2"), sheets(1) đang hiện hành).
Nhờ các bạn chỉ giúp!

 

[le tin]

Cảm ơn NDU , tuy nhiên bạn sealand cũng giúp mình phát hiện khai báo sai
NÚT CẢM ƠN ĐÂU MẤT TIÊU

 

[sealand]

Đúng là LeTin nhầm chiều của mảng thôi. Chiều 1 của arr chỉ có 1 thì sao cho i chạy được đến 10 theo chiều 1 của mảng nguồn .Chỉ có thế thôi.