[請益] 一個小問題

[azytjr (過去，現在，未來)]

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
推 BearWu:有副程式??