PTT數位生活區 / Office

[算表] Excel VBA 儲存格遞增問題請教各位大大

看板Office作者 (cwcho)時間8年前 (2017/09/27 10:57), 編輯推噓1(1推 0噓 6→)
留言7則, 3人參與, 最新討論串1/2 (看更多)
軟體:Excel 版本:2016 各位大大大家好 小弟寫了一個VBA程式如下 Sub change() Range("j4").Value = Range("d3").Value + 1 '內容是儲存格j4內容是儲存格d3內容+1 MsgBox ("OK!") End Sub 以上可以執行 因為也要改下面格 內容是儲存格j5內容是儲存格d4內容+1 ... 以此類推到 內容是儲存格j13內容是儲存格d12內容+1 Sub change() Dim i As Integer '設定變數i For i = 1 To 10 'i由1到10 Range("j4").Value = Range("d3" + i).Value + 1 'd3儲存格+i Next i '持續執行i 到結束 MsgBox ("OK!") End Sub 不曉得哪裡出了問題 求解請各位大大 幫忙檢視 再麻煩了謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.161.75.183 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1506481035.A.E1D.html
推
09/27 11:04, , 1F
Range("J4").Value = Range("D" & 3 + i).Value + 1
09/27 11:04, 1F
→
09/27 11:05, , 2F
改以range("d" & 3 + i)、cells(3+i,"d")或
09/27 11:05, 2F
→
09/27 11:06, , 3F
range("d2").offset(i)
09/27 11:06, 3F
→
09/27 11:06, , 4F
但這樣會一直修J4的內容，如果J欄也要一直往下跑的話
09/27 11:06, 4F
→
09/27 11:06, , 5F
Range("J" & 3 + i)
09/27 11:06, 5F
→
09/27 11:07, , 6F
前面j4如原文也要列偏移的話，同上修改
09/27 11:07, 6F
→
09/27 11:10, , 7F
感謝newacc大大與soyoso大大 可以執行了感恩
09/27 11:10, 7F
‣ 更多 ntuooo 的文章
文章代碼(AID): #1PonEBuT (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ntuooo 的文章
文章代碼(AID): #1PonEBuT (Office)