作者ntuooo (cwcho)
看板Office
标题[算表] Excel VBA 储存格递增问题请教各位大大
时间Wed Sep 27 10:57:13 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1506481035.A.E1D.html
1F：推 newacc: Range("J4").Value = Range("D" & 3 + i).Value + 1 09/27 11:04
2F：→ soyoso: 改以range("d" & 3 + i)、cells(3+i,"d")或 09/27 11:05
3F：→ soyoso: range("d2").offset(i) 09/27 11:06
4F：→ newacc: 但这样会一直修J4的内容，如果J栏也要一直往下跑的话 09/27 11:06
5F：→ newacc: Range("J" & 3 + i) 09/27 11:06
6F：→ soyoso: 前面j4如原文也要列偏移的话，同上修改 09/27 11:07
7F：→ ntuooo: 感谢newacc大大与soyoso大大 可以执行了感恩 09/27 11:10