• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Điều hành viên: tungblt

loanntt
Bài viết: 0
Ngày tham gia: T.Sáu 17/06/2016 6:17 pm

giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Gửi bàigửi bởi loanntt » T.Sáu 17/06/2016 6:38 pm

m n tổng liên tiếp( m<n)
2 15
6 19
7 24
10 30



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4755
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 13 time
Been thanked: 509 time

Re: giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Gửi bàigửi bởi truongphu » T.Tư 22/06/2016 8:49 am

m, n thuộc nguyên, dương và khác 0.
  1. Private Function TongSoNguyenLienTiep&(ByVal m&, ByVal n&)
  2.     For m = m To n Step 1
  3.         TongSoNguyenLienTiep = TongSoNguyenLienTiep + m
  4.     Next
  5. End Function
  6.  
  7. Private Sub Command1_Click()
  8.     MsgBox TongSoNguyenLienTiep(2, 15)
  9. End Sub
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

sachbong
Bài viết: 4
Ngày tham gia: T.Tư 23/11/2016 2:30 pm

Re: giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Gửi bàigửi bởi sachbong » T.Sáu 02/12/2016 9:30 pm

Tôi chép code trên vô 1 modun của excel và chạy tốt.
Nhưng cứ nghĩ tại sao câu lệnh số 4 (TongSoNguyenLienTiep = TongSoNguyenLienTiep + m)
kg vi phạm quy tắc về đệ quy nhỉ. Xin anh truongphu hoặc anh em khác giải thích.

Luu Thu Lien
Bài viết: 3
Ngày tham gia: T.Bảy 07/01/2017 9:14 am

Re: giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Gửi bàigửi bởi Luu Thu Lien » T.Sáu 19/05/2017 3:18 pm

Tạo mảng ra xong rồi viết câu lệnh
For i = 1 to d
s=s+d
Next

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4755
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 13 time
Been thanked: 509 time

Re: giải giúp tớ với : viết VBA tính tổng liên tiếp từ m tới n (m<n)

Gửi bàigửi bởi truongphu » T.Sáu 19/05/2017 6:16 pm

sachbong đã viết:Tôi chép code trên vô 1 modun của excel và chạy tốt.
Nhưng cứ nghĩ tại sao câu lệnh số 4 (TongSoNguyenLienTiep = TongSoNguyenLienTiep + m)
kg vi phạm quy tắc về đệ quy nhỉ. Xin anh truongphu hoặc anh em khác giải thích.


Bạn gởi bài từ T.Sáu 02/12/2016 9:30 pm
Xin lỗi vì tôi ít ghé nhen. Cầu mong bạn đọc được bài trả lời nầy

Câu lệnh số 4, nếu TongSoNguyenLienTiep khi đó trong vai trò một Sub hay Function, (có đối số hay không) thì đúng như bạn nói, sẽ gọi vòng lặp đúp đệ quy ấy...
Tuy nhiên, câu lệnh số 4 chỉ là phép gán, mà phép gán lại đối xử như một biến nên không có vi phạm quy tắc đệ quy gì cả.
Lưu ý: Phép gán được quyền dùng bất kỳ chổ nào.

Chúc bạn vui và thông qua vấn đề. Mà sao nick bạn sạch bong dzậy? :D
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Quay về “Visual Basic for Application (VBA)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách