excel vba 单元格赋值问题。 在excel中,激活某个单元格,则此单元格中的值赋予某特定单元格。 10
另请高手看一下下面的代码:privatesubopp_click()dimxassingle,yassingle,zasstringifopp.value=truethe...
另请高手看一下下面的代码:
private sub opp_click()
dim x as single, y as single,z as string
if opp.value =true then
x=application inputbox("输入起始行数")
for x=x to 10000 step 1
z=activecell.value
range(d,x).formulaR1C1=Z
NEXT
END IF
END SUB
这是我自己写的一段代码。总是出错误!
我想用鼠标点击单元格,程序自动将其中的值添加到某单元格(比如D2),然后下一个D3,一直循环下去。知道停止激活! 展开
private sub opp_click()
dim x as single, y as single,z as string
if opp.value =true then
x=application inputbox("输入起始行数")
for x=x to 10000 step 1
z=activecell.value
range(d,x).formulaR1C1=Z
NEXT
END IF
END SUB
这是我自己写的一段代码。总是出错误!
我想用鼠标点击单元格,程序自动将其中的值添加到某单元格(比如D2),然后下一个D3,一直循环下去。知道停止激活! 展开
2个回答
展开全部
ActiveCell.Offset(, 2) = "你好"
左边一列
ActiveCell.Offset(, -1) = "你好"
下面一行
ActiveCell.Offset(1) = "你好"
上面两行
ActiveCell.Offset(-2) = "你好"
左边一列
ActiveCell.Offset(, -1) = "你好"
下面一行
ActiveCell.Offset(1) = "你好"
上面两行
ActiveCell.Offset(-2) = "你好"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
range(d,x).formulaR1C1=Z
这句话是啥意思?
d没有赋值, d2,d3应该是: cells(x,4) 表示第x行,第4列。
cells(x,4)=z
另外,这个opp是什么?是按钮名称?
===================
把活动单元格的值赋给特定的单元格,比如A1,那么在Worksheet_SelectionChange使用这个代码就行了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1) = Cells(Selection.Row, Selection.Column)
End Sub
这句话是啥意思?
d没有赋值, d2,d3应该是: cells(x,4) 表示第x行,第4列。
cells(x,4)=z
另外,这个opp是什么?是按钮名称?
===================
把活动单元格的值赋给特定的单元格,比如A1,那么在Worksheet_SelectionChange使用这个代码就行了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1) = Cells(Selection.Row, Selection.Column)
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询