[請益] 一個小問題
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
推
192.83.195.244 05/18, , 1F
192.83.195.244 05/18, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
