Mong các anh chị giúp đỡ người mới về VBA (1 người xem)

[mrpjnjqn]

Em mới tập làm VBA một thời gian để thi B1. Em vừa thi thử xong và gặp 1 câu như thế này. Xin a chị giúp đỡ
Cho 2 cột giá trị n và m nguyên. Nếu n>m thì hãy tính tổng từ n đến m
Em thậm chí không hiểu được đề nên e nghi hoặc là tổng tích lũy dùng hàm lặp.
Em mong các anh chị giúp đỡ giúp em. Em mong được giải đáp là câu này sẽ làm thế nào và xin các anh chị hướng dẫn luôn phần code nếu đây là tính tổng tích lũy luôn giúp em. Em cám ơn ạ

 

[vu_tuan_manh_linh]

Tôi nghĩ nó thế này!

Function Tinhtong(n, m)
Dim i
If n > m Then
For i = m To n
Tinhtong = Tinhtong + i
Next
End If
End Function

 

[VetMini]

Làm vòng lặp thì được 5 điểm trên 10

tổng từ 1 đến n: tn = (n*n + n)/2
tổng từ 1 đến m: tm = (m*m + m)/2
tổng từ m đến n: tmn = tn - tm + m

tmn = (n*n + n - m*m - m)/2

 

[vu_tuan_manh_linh]

Làm vòng lặp thì được 5 điểm trên 10

Có thể gọi đây là NỖI ÁM ẢNH mỗi khi viết code!!

 

[mrpjnjqn]

Có thể gọi đây là NỖI ÁM ẢNH mỗi khi viết code!!

Em cám ơn anh vì đã giúp đỡ. Nhưng em có cảm giác nó không được đúng lắm anh ạ. Anh có thể cho em xin 1 file chạy thử code này được không ạ

 

[mrpjnjqn]

Làm vòng lặp thì được 5 điểm trên 10

tổng từ 1 đến n: tn = (n*n + n)/2
tổng từ 1 đến m: tm = (m*m + m)/2
tổng từ m đến n: tmn = tn - tm + m

tmn = (n*n + n - m*m - m)/2

Dạ. Anh có thể cho em xin thử code này không ạ. E còn chưa nghĩ ra cách viết. Cám ơn anh ạ

 

[be_09]

Anh có thể cho em xin 1 file chạy thử code này được không ạ

Chuyện này mới lạ nè.

Bạn hỏi mà không tải file để người giúp làm cho chuẩn mà dùng, còn xin File để làm gì ? có chắc là áp dụng vô File của bạn được không?