sytn.net
当前位置:首页 >> 如何让以下EXCEL宏全部循环指定次数 >>

如何让以下EXCEL宏全部循环指定次数

实现方式如下:首先进入VBA编辑器(ALT+F11进入、或者ALT+F8选宏再点编辑),然后再打开工程资源管理器(菜单查看下选中、或者直接按CTRL+R键),在资源管理器里面的ThisWorkBook上双击鼠标,会打开工作的相关代码,粘贴下面的例子代码:Private Sub Workbook_open() msgbox "工作表打开了" 'call 其它宏,或者继续写其它语句End Sub 这样每隔一段时间就会执行Workbook_open宏的代码.

试验如下代码看看能否实现目标.Sub Test() Dim myrange As Range Set myrange = Application.InputBox("选中单元格", Type:=8) Selection.Copy Selection.Insert Shift:=xlDown Repeat num = myrange.Cells(3) End Sub

DIM I AS integerfor i=1 to 10nexti=i+1循环10次

使用VBA写个for ..next 循环或者dountil循环即可.

模块开头放一个Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)跑一个死循环,在循环末尾放一个sleep(100)即可.

sub 复制工作表() n=sheets(1).cells(65536,1).end(3).row for i=2 to n shtname=sheets(1).cells(i,1) sheets(2).copy after:=sheets(sheets.count) with activesheet .name=shtname .range("H8")=shtname end with next end sub

application.EnableEvents=False '将你的代码加入!application.EnableEvents=True

你是想让你的这个代码运行100次是吧,如果是,加上For x = 1 To 100 Next x就行了

for i=1 to 50 '你的代码next i

再建立 一个宏,用FOR循环来调用你要重复执行的宏.当然你可以直接修改宏,在宏的最二行加上for语句,在最后第二行加上next

网站首页 | 网站地图
All rights reserved Powered by www.sytn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com