Thầy cho em hỏi code của bài tập này đối với vòng lệnh For each ạ, em làm không ra
Bạn hình dung như sau:
Bạn có vùng ô là A9:A13
Với mỗi ô trong vòng lặp bạn sẽ làm gì.
=> Tạo 2 biến: biến dạng Range đại diện cho vùng ô A9:A13, biến lặp trong vùng ô là biến rng chẳng hạn
Dim MucGia as Range
Set MucGia = Range("A9:A13")
Dim rng as Range
For Earch rng in MucGia
...
Next rng
Bên trong vùng ... bạn sẽ viết code xác định doanh thu, chi phí, lợi nhuận như vòng lặp for thôi. Nhưng cách viết lúc này là:
DoanhThu = Mức giá * Số lượng = rng.value * rng.Offset(0, 1).value
ChiPhi = Số lượng * Biến phí + Định phí = rng.Offset(0, 1).value * range("D2").value + range("D3").value
rng.Offset(0, 2).value = DoanhThu - ChiPhi
Em làm được rồi. Cảm ơn hướng dẫn của thầy