Nhờ câu lệnh set giá trị của 1 vùng dữ liệu (1 người xem)

[tradangbn]

Mình đang làm 1 hàm, bôi đen 2 vùng, vùng 1 có dữ liệu và muốn set KQ ra vùng 2 như sau:
Function Tinh(Vung1 As Variant, Vung2 As Variant)
Dim X As Variant
For Each X In Vung1.Cells
'Tinh toan o trong nay
'XXX
Next X
End Function

Giờ mình muốn sau khi tính xong thì điền kết quả ra ô tương ứng ở vùng 2(XXX) mà không biết công thức ntn...
Mong các bạn chỉ giúp. Thanks!

 

[concogia]

Mình đang làm 1 hàm, bôi đen 2 vùng, vùng 1 có dữ liệu và muốn set KQ ra vùng 2 như sau:
Function Tinh(Vung1 As Variant, Vung2 As Variant)
Dim X As Variant
For Each X In Vung1.Cells
'Tinh toan o trong nay
'XXX
Next X
End Function

Giờ mình muốn sau khi tính xong thì điền kết quả ra ô tương ứng ở vùng 2(XXX) mà không biết công thức ntn...
Mong các bạn chỉ giúp. Thanks!

Bạn thử thay câu này:

Function Tinh(Vung1 As Variant, Vung2 As Variant)

thành:

Function Tinh(Vung1 As Variant)

Khai báo thêm một biến VungKq
Chạy vòng lặp theo hàng và cột của "Vung1" tính toán cái chi chi đó
Gán

Tinh = VungKq

Trở về bảng tính, chọn vùng có số dòng và cột tương đương với "Vung1", quánh dzô =Tinh(vung1) xong bấm Ctrl + Shift + Enter xem kết quả
Nếu hổng đúng thử gởi file lên xem sao
Thân