Truong The Luan
Truong The Luan
Thảo luận 2 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 179 lượt xem

code của bài tập này đối với vòng lệnh For each ạ không ra

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


Thảo luận 2 câu trả lời
Lượt xem 179 lượt xem
Vỗ tay vỗ tay
Truong The Luan 17:07 - Jul 07, 2022

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

Vỗ tay vỗ tay
Truong The Luan 22:07 - Jul 07, 2022

Em làm được rồi. Cảm ơn hướng dẫn của thầy

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông