EXCEL VBA问题?
我在EXCELVBA中常常用命令按钮来写代码,但是现在想不要命令按钮。比如说sheet1有资料,sheet2中有统计表。我设了个按钮并写好了统计有关代码。单击按钮就正确的...
我在EXCEL VBA中常常用命令按钮来写代码,但是现在想不要命令按钮。比如说sheet1有资料,sheet2中有统计表。我设了个按钮并写好了统计有关代码。单击按钮就正确的统计了,但是每次改变资料就单击按钮一次麻烦。所以想不用按钮。代码写在那个过程?
谢谢两位!但是第一个问题还没解决。
我添加了一个模块然后写了代码,但是没有什么结果?在哪儿添加代码仔细点说吧!
我的代码:sheets("sheet2").cells(4,5)=sheets("sheet1").cells(2,5)
for i=1 to 100
.....
next i
目的:数字一改就统计也自动改。
QQ:393085260 展开
谢谢两位!但是第一个问题还没解决。
我添加了一个模块然后写了代码,但是没有什么结果?在哪儿添加代码仔细点说吧!
我的代码:sheets("sheet2").cells(4,5)=sheets("sheet1").cells(2,5)
for i=1 to 100
.....
next i
目的:数字一改就统计也自动改。
QQ:393085260 展开
2个回答
展开全部
单元格事件自动统计
Private Sub Worksheet_Change(ByVal Target As Range)
代码
End Sub
每次启动就自动sheet1表为当前表
写在This workbook下
Private Sub Workbook_Open()
Sheet1.Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
代码
End Sub
每次启动就自动sheet1表为当前表
写在This workbook下
Private Sub Workbook_Open()
Sheet1.Activate
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 4 To 100
Sheets("sheet2").Cells(i, 5) = Sheets("sheet1").Cells(i - 2, 5)
Next
End Sub
选中SHEET2 是不模块
Dim i As Integer
For i = 4 To 100
Sheets("sheet2").Cells(i, 5) = Sheets("sheet1").Cells(i - 2, 5)
Next
End Sub
选中SHEET2 是不模块
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询