Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Trong bài tập thực hành ứng dụng vòng lặp For và For each tính lợi nhuận
Sub tinh_loi_nhuan_2()
'von ban dau 2000 (o D1)
'chi phi bien doi theo moi san pham 40 (o D2)
'Doanh thu = so luong * Don gia ban
'Chi phi = so luong * CP bien doi * Von ban dau
'Loi nhuan = doanh thu - chi phi
Dim mucgia As Range
Set mucgia = Sheet1.Range("A9:A13")
Dim doanhthu As Long
Dim chiphi As Long
Dim i As Range
For Each i In mucgia
chiphi = Sheet1.Range("B" & i).Value * Sheet1.Range("D2") + Sheet1.Range("D1").Value
doanhthu = Sheet1.Range("B" & i).Value * Sheet1.Range("A" & i).Value
Sheet1.Range("C" & i).Value = doanhthu - chiphi
Next i
End Sub
12 câu trả lời
445 lượt xem
vỗ tay
vỗ tay
Như vậy bạn dùng biến i chưa đúng.
Sheet1.Range("B" & i) thực ra chính là i nhưng offset đi 1 cột (i nằm trong cột A, nên khi xét sang cột B thì offset 1 cột)
Bạn chú ý đoạn này:
Dim i As Range
For Each i In mucgia
chiphi = i.offset(0,1).Value * Sheet1.Range("D2") + Sheet1.Range("D1").Value
doanhthu = i.offset(0,1).value * i.Value
i.offset(0, 2).value = doanhthu - chiphi
Next i
vỗ tay
vỗ tay
Thầy Cô và các bạn cho em hỏi code bên dưới em bị sai chỗ nào ạ? Em cảm ơn Thầy/Cô và các ban. Mong Thầy Co và các bạn hướng dẫn thêm:
Sub BTFor()
Dim Doanhso As Long
Dim ChiPhi As Long
Dim LoiNhuan As Long
Dim i As Integer
For i = 1 To 5
Set Doanhso = Sheets("1").Range("D" & i + 8).Value
Set ChiPhi = Sheets("1").Range("E" & i + 8).Value
Set LoiNhuan = Sheets("1").Range("C" & i + 8).Value
Doanhso = [Sheets("1").Range("B" & i + 8).Value] * [Sheets("1").Range("A" & i + 8).Value]
ChiPhi = [Sheets("1").Range("B" & i + 8).Value] * [Sheets("1").Range("D1").Value] * [Sheets("1").Range("D2").Value]
LoiNhuan = Doanhso - ChiPhi
Next i
End Sub
vỗ tay
vỗ tay
Sai chỗ này:
Doanhso = [Sheets("1").Range("B" & i + 8).Value] * [Sheets("1").Range("A" & i + 8).Value]
ChiPhi = [Sheets("1").Range("B" & i + 8).Value] * [Sheets("1").Range("D1").Value] * [Sheets("1").Range("D2").Value]
Bạn bỏ các dấu ngoặc vuông đi. Việc sử dụng dấu ngoặc vuông như vậy chưa đúng. Nếu cần dùng ngoặc thì dùng ngoặc thường ( )
vỗ tay
https://drive.google.com/file/d/1UWL2...
Thầy xem giúp em thắc mắc ở trên
vỗ tay
Em tự fix được rồi, các ơn Thầy Cô và các Anh/Chị ạ
Dim ChiPhi As String
Dim LoiNhuan As String
Dim i As Integer
For i = 1 To 5
Doanhso = Sheet1.Range("B" & i + 8).Value * Sheet1.Range("A" & i + 8).Value
Sheet1.Range("D" & i + 8).Value = Doanhso
ChiPhi = Sheet1.Range("B" & i + 8).Value * Sheet1.Range("D1").Value * Sheet1.Range("D2").Value
Sheet1.Range("E" & i + 8).Value = ChiPhi
LoiNhuan = Doanhso - ChiPhi
Sheet1.Range("C" & i + 8).Value = LoiNhuan
Next i
End Sub
vỗ tay
Thầy ơi !
Sao làm hết mà vào vào phần Inport không hiển thị file Excel làm sao Thầy
vỗ tay
@Quoc Tung: bạn có thể nói rõ hơn bạn đang làm nội dung gì không? Với câu hỏi của bạn mình chưa hình dung được vấn đề nên chưa hỗ trợ bạn được.
vỗ tay
Chào bạn Phụg Quoc Tung bạn có thể mô tả rõ hơn lỗi của bạn được không?
vỗ tay
vỗ tay
Câu hỏi liên quan
Top
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