楼主:
ntuooo (cwcho)
2017-09-27 10:57:13软件: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
不晓得哪里出了问题
求解请各位大大 帮忙检视 再麻烦了谢谢
作者:
newacc (XD)
2017-09-27 11:04:00Range("J4").Value = Range("D" & 3 + i).Value + 1
作者: soyoso (我是耀宗) 2017-09-27 11:05:00
改以range("d" & 3 + i)、cells(3+i,"d")或range("d2").offset(i)
作者:
newacc (XD)
2017-09-27 11:06:00但这样会一直修J4的内容，如果J栏也要一直往下跑的话Range("J" & 3 + i)
作者: soyoso (我是耀宗) 2017-09-27 11:07:00
前面j4如原文也要列偏移的话，同上修改
楼主:
ntuooo (cwcho)
2017-09-27 11:10:00感谢newacc大大与soyoso大大 可以执行了感恩