当前位置：首页 - 正文

急急急。。。如何把一段代码添加到在EXCEL并且运行,在线等

发布网友发布时间：2022-05-17 10:49

我来回答

共5个回答

热心网友时间：2023-10-19 12:06

EXCEL上点击工具——宏——录制新宏，就会出现如下对话框，对话框内容无需更改，点确定即可

然后在你需要实现加1的工作表名那里右键查看代码，

红色圈圈那里右键查看代码，执行后就是红色圈圈的工作表有效，

右键查看代码后会出来如下框框

把你的代码复制粘贴上去，如上图，

然后

点这个红色圈圈的地方调试选编译VBA。。。

然后是

点运行，运行子程序。就OK了。

最后

点这个可以返回EXCEL工作表。

这个时候你所选择的工作表就有你提问中所说的效果了，要点击一次加1，代码里+1那就不用改，要是+2或其他的就把1改成2或其他数字

追问我现在显示语法错误，你能不能帮我填一个完整点代码，谢谢了。
另外，我把我今天赚到的50分也全送你了

追答你发的那个代码是没有问题的啊！语法错误可能是输入的时候输入法设置问题吧！

热心网友时间：2023-10-19 12:07

这是选中一次即 +1，不知道是不是你所谓的点击

选中工作表标签（就是表下面的工作表名字） --右键---查看代码，

把代码复制进去, 使用需要开启宏，且2007版Excel 需另存为 Xlsm 格式(开启宏的工作薄)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   if target.address ="$A$1" then   '对A1单元格起作用，可自己修改为实际单元格,用绝对引用，就是  $B$1 这种
    Target.Value = Target.Value + 1
   end if
End Sub

追问就是在一个表格里，在每个单元格里，每单击一次所在的单元格，在原有的基础上加1，例如是1，点击下就变成2了

追答

查看代码，代码复制进去就好了

要开启宏，2007 要存为Xlsm , 可 1052974911@qq.com

热心网友时间：2023-10-19 12:07

Alt+F11，调出代码编辑窗口，插入模块，在模块编辑窗口，把代码粘贴进去，然后关闭就可以了。

热心网友时间：2023-10-19 12:08

添加”命令按钮“，在代码行输入代码。

热心网友时间：2023-10-19 12:08

Sub Inc_One()
'
Sheet1.Cells(Selection.Rows.Row, Selection.Columns.Column).Value = Sheet1.Cells(Selection.Rows.Row, Selection.Columns.Column).Value + 1

End Sub

再在菜单栏上加个按键。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

急急急。。。如何把一段代码添加到在EXCEL并且运行,在线等

最新推荐

猜你喜欢

热门推荐