作者azytjr (过去，现在，未来)
看板Visual_Basic
标题[请益] 一个小问题
时间Tue May 17 22:19:25 2005
Sub test()
Dim sum1 As Long
Dim i As Long
Dim a As Long
Dim b As Long
a = Application.InputBox(Prompt:="内容", _
Title:="抬头")
b = Application.InputBox(Prompt:="内容", _
Title:="抬头")
sum1 = 0
For i = a To b
sum1 = sum1 + i
Cells(i - a + 1, 5) = sum1
Cells(i - a + 1, 1) = a
Cells(i - a + 1, 2) = "加到"
Cells(i - a + 1, 3) = i
Cells(i - a + 1, 4) = "="
这是一个加总的程式
想请问大大们
要怎麽改成5及5的倍数和
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.175.244.239
1F：推 BearWu:有副程式?? 192.83.195.244 05/18