作者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