后使用快捷导航没有帐号？
查看: 1418|回复: 9
新人欢迎积分1 阅读权限80积分10273精华0UID帖子金钱19846 威望0
Lv.8, 积分 10273, 距离下一级还需 9727 积分
UID帖子威望0 多玩草10 草
有谁知道怎么设置循环宏 。。。知道的告诉我 。。。手动分累死了
新人欢迎积分1 阅读权限70积分7705精华0UID8409491帖子金钱6817 威望0
Lv.7, 积分 7705, 距离下一级还需 2295 积分
UID8409491帖子威望0 多玩草46 草
宏最后一行把放宏的快捷键拉进去…
[ 本帖最后由 KING暴君 于
11:49 编辑 ]
新人欢迎积分1 阅读权限80积分10273精华0UID帖子金钱19846 威望0
Lv.8, 积分 10273, 距离下一级还需 9727 积分
UID帖子威望0 多玩草10 草
没人知道么
新人欢迎积分1 阅读权限40积分712精华0UID8722063帖子金钱575 威望0
Lv.4, 积分 712, 距离下一级还需 288 积分
UID8722063帖子威望0 多玩草52 草
循环?大哥，那是外挂
新人欢迎积分1 阅读权限80积分10273精华0UID帖子金钱19846 威望0
Lv.8, 积分 10273, 距离下一级还需 9727 积分
UID帖子威望0 多玩草10 草
知道分材料而已。。。。
新人欢迎积分0 阅读权限50积分1423精华0UID8093214帖子金钱1679 威望0
Lv.5, 积分 1423, 距离下一级还需 1077 积分
UID8093214帖子威望0 多玩草92 草
提示: 作者被禁止或删除 内容自动屏蔽
新人欢迎积分0 阅读权限30积分197精华0UID8644703帖子金钱38 威望0
Lv.3, 积分 197, 距离下一级还需 53 积分
UID8644703帖子威望0 多玩草10 草
我也想知道啊!!!!!!!!!!!!!!求大婶!!!!!!!
传说中的透明人
新人欢迎积分1 阅读权限80积分18368精华0UID2550516帖子金钱8710 威望10
TMD 我是透明人怎么变猪头了。。 ...
Lv.8, 积分 18368, 距离下一级还需 1632 积分
UID2550516帖子威望10 多玩草326 草
循环宏没用的[alinew16]
从AION转到3年前放弃的DNF，一次换频道掉线，再上忽然给我来个封3天
无缘无故封了就算了，解封那天进频道一卡，我心一紧
NND，又是3天的禁闭
原来，麻花藤是比天桥哥更XE的存在啊
春雪桃花~离忧
新人欢迎积分0 阅读权限70积分7660精华0UID5440260帖子金钱14210 威望10
Lv.7, 积分 7660, 距离下一级还需 2340 积分
UID5440260帖子威望10 多玩草350 草
宏之间不能相互引用的。引用自身也不行
新人欢迎积分1 阅读权限100积分62602精华0UID8054510帖子金钱66108 威望10
Lv.11, 积分 62602, 距离下一级还需 27398 积分
UID8054510帖子威望10 多玩草282 草
按键精灵+宏命令
需要金钱：1100
手机盒子客户端点击或扫描下载
Powered by查看: 409|回复: 3
宏代码循环到50多次，就出现未响应，无法再继续。求老师指点！
阅读权限30
在线时间 小时
本帖最后由 gareth 于
15:09 编辑
代码是股票的数据获取代码，但循环到50多次，就出现未响应，无法再继续。求老师指点！
(116.49 KB, 下载次数: 6)
14:48 上传
点击文件名下载附件
Sub cnft_click()
& & On Error Resume Next
& & Dim ii As Integer
& & 'For ii = Cells(3, 81) To Cells(3, 82) + 1
& & For ii = 2 To Cells(2, 10)
& & Sheets(&选股结果&).Select
& & Range(&A& & ii).Select
& & Selection.Copy
& & Sheets(&历史数据&).Select
& & Range(&H4&).Select
& & ActiveSheet.Paste
& & Sheets(&选股结果&).Select
& & Range(&B& & ii).Select
& & Application.CutCopyMode = False
& & Selection.Copy
& & Sheets(&历史数据&).Select
& & Range(&I6&).Select
& & ActiveSheet.Paste
& & Application.CutCopyMode = False '清空粘贴板
& & Dim arrAllData, arrb
& & Range(&A:f&).ClearContents
& & arrAllData = GetStockAllData(Range(&H4&))
& & Application.ScreenUpdating = False
& & arrb = Array(&日期&, &开盘价&, &最高价&, &成交价&, &最低价&, &成交量&, &开盘涨幅&)
& & Dim i As Long
& & For i = 0 To 6
& && &&&Range(&A1&).Offset(0, i).Value = arrb(i)
& & Next i
& & For i = 0 To UBound(arrAllData)
& && &&&For j = 0 To 5
& && && && &Range(&a2&).Offset(i, j).Value = arrAllData(i, j)
& && &&&Next j
& & Next i
& & Application.ScreenUpdating = True
& & Range(&G2:G60000&).ClearContents '以下得到涨幅
& & Range(&G2&).Select
& & ActiveCell.FormulaR1C1 = _
& && &&&&=IF(ISERROR(IF(RC[-6]&1,RC[-5]-R[-1]C[-5],&&&&)),0,IF(RC[-6]&1,RC[-5]-R[-1]C[-5],&&&&))&
& & Range(&G2&).Select
& & Selection.AutoFill Destination:=Range(&G2:G60000&)
& & Range(&G2:G60000&).Select
& &' Range(&G3:G& & Range(&I1&)).Select
& & Selection.Copy
& & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& && && &Application.CutCopyMode = False '清空粘贴板
& & Sheets(&分析&).Select '以下是粘贴结果
& & Range(&K& & ii & &:Z& & ii).ClearContents '清空
& & Sheets(&历史数据&).Select
& & Range(&K& & 2 & &:Z& & 2).Select
& & Selection.Copy
& & Sheets(&选股结果&).Select
& & Range(&D& & ii).Select
& & ActiveSheet.Paste
& & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& &&&Application.CutCopyMode = False '清空粘贴板
& &ThisWorkbook.Save
阅读权限100
在线时间 小时
Sub cnft_click()
& & On Error Resume Next
& & Dim i&, Arr, ii&, j&, m&
& & Dim arrAllData, arrb
& & Application.ScreenUpdating = False
& & Sheet3.[d2:s5000].ClearContents
& & Sheet1.Select
& & Arr = Sheet3.[a1].CurrentRegion
For ii = 2 To UBound(Arr)
& & Range(&H4&) = Arr(ii, 1)
& & Range(&I6&) = Arr(ii, 2)
& && &
& & Range(&A2:f60000&).ClearContents
& & arrAllData = GetStockAllData(Range(&H4&))
& & For i = 0 To UBound(arrAllData)
& && &&&For j = 0 To 5
& && && && &Range(&a2&).Offset(i, j).Value = arrAllData(i, j)
& && &&&Next j
& & Next i
& & m = UBound(arrAllData) + 2
& & Range(&G2&).FormulaR1C1 = _
& && &&&&=IF(ISERROR(IF(RC[-6]&1,RC[-5]-R[-1]C[-5],&&&&)),0,IF(RC[-6]&1,RC[-5]-R[-1]C[-5],&&&&))&
& & Range(&G2&).AutoFill Destination:=Range(&G2:G& & m)
& & Range(&G2:G& & m) = Range(&G2:G& & m).Value
& & Sheet3.Range(&D& & ii).Resize(1, 16) = Sheet1.[k2:z2].Value
Next ii
& &ThisWorkbook.Save
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限100
在线时间 小时
请见附件。
16:36 上传
点击文件名下载附件
114.14 KB, 下载次数: 11
阅读权限30
在线时间 小时
请见附件。
多谢老师，这么优化后速度飞快！我测试800条也不在话下！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师【求助】17-03-30海盗船新版K95驱动宏键设置不能设置循环怎么办【机械键盘吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：728,073贴子：
【求助】17-03-30海盗船新版K95驱动宏键设置不能设置循环怎么办收藏
以前用的都是老版K95宏设置是这样的楼主买了个美行新版K95青铜色款的，然而发现但是新版的驱动根本没有循环设置这个选项
机械键盘,正品行货低价促销!货到付款,全国联保,满99元免运费!全场超低价格,货到付款,配送极速,京东给您不一样的购物新体验!
在下载一个老的就行了，新版的所有键盘好像都是这样，估计以后更新会有！
更新软件啊喂
我的青铜刚准备上路
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或