查看: 21|回复: 5
求大神帮忙写个宏。
阅读权限20
在线时间 小时
本帖最后由 寒羽良 于
23:28 编辑
将工作一中的数据，导入到工作表二中相对应的日期行。
23:28 上传
点击文件名下载附件
28.15 KB, 下载次数: 0
阅读权限95
在线时间 小时
工作表一种的日期为什么都是？？？
阅读权限95
在线时间 小时
Sub 导入()
Dim wb As Workbook
Dim arr, brr As Variant
Dim i, r, s As Integer
Sheets(&表七&).Range(&b3:h6000&) = &&
arr = Sheets(&表七&).UsedRange
Set wb = Workbooks.Open(ThisWorkbook.Path & &\工作表一.xls&)
brr = wb.Worksheets(1).UsedRange
For i = 2 To UBound(arr)
For r = 1 To UBound(brr) Step 8
If DateValue(arr(i, 1)) = DateValue(brr(r, 3)) Then
arr(i, 2) = brr(r + 3, 2)
arr(i, 4) = brr(r + 4, 2)
arr(i, 6) = brr(r + 5, 2)
arr(i, 8) = brr(r + 6, 2)
ThisWorkbook.Worksheets(&表七&).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
wb.Close False
阅读权限20
在线时间 小时
本帖最后由 寒羽良 于
22:41 编辑
工作表一种的日期为什么都是？？？
因为都是同一天做的数据啊。其实只要一个日期对上，后面全都一样。你看表二就知道了。分别输入不同的工作表中的。
老师。每个工作表要对应啊。
阅读权限95
在线时间 小时
因为都是同一天做的数据啊。其实只要一个日期对上，后面全都一样。你看表二就知道了。分别输入不同的工 ...
但是你的附件中只有“表七”是有数据一，数据二等等呀，请具体描述你的需求，呵呵
阅读权限20
在线时间 小时
但是你的附件中只有“表七”是有数据一，数据二等等呀，请具体描述你的需求，呵呵
我更新了附件，就是工作一中的。表格一输入到工作表二的表格。表格二输入到工作表二中的表格二。一直到七。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师拒绝访问 | www.1398.org | 百度云加速
请打开cookies.
此网站 (www.1398.org) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(38ab090d14e9436a-ua98).
重新安装浏览器，或使用别的浏览器后使用快捷导航没有帐号？
查看: 829|回复: 7
新人欢迎积分1 阅读权限20积分39精华0UID帖子金钱219 威望0
Lv.2, 积分 39, 距离下一级还需 11 积分
UID帖子威望0 多玩草0 草
大神们 我想要一个冲锋+断筋+缴械+巨人的宏 可以做吗？ 我很二 别骂我 还有别说那些我有不肯给的桑心话啊，舅舅给的宏我也用了，用了两个 一个剑刃+红牛头（忘记叫什么了，反正图标是这样的）还有一个是（致死压制猛击一起的） 这两个挺实用在转一圈
Lv.3, 积分 249, 距离下一级还需 1 积分
UID帖子威望0 多玩草0 草
自己看，宏修改下就行
新人欢迎积分1 阅读权限20积分39精华0UID帖子金钱219 威望0
Lv.2, 积分 39, 距离下一级还需 11 积分
UID帖子威望0 多玩草0 草
熔岩灬怒火 发表于
...可是我还是不会 你就发发好心给我编一下吧
Lv.6, 积分 3090, 距离下一级还需 1910 积分
UID帖子威望0 多玩草10 草
真想写肯定 能写出来 。随便找个一键输出宏&&改下就是。
但是这种宏，有用吗。、
比如战场 你冲锋了1个坐骑上的人想挂断筋追着捅，然后按照你的宏要求，技能顺序肯定是 冲锋 巨人 缴械 断筋。&&因为断筋没CD
这时候你就会先打1个巨人 再扔1个缴械&&然后&&然后对面跑了。、
又或者你22带奶碰见双DPS ，CJQ爆发全开在输出你们的治疗这时候你想丢1个缴械&&所以你冲了过来，找背，然后&&丢了个巨人。
然后对面的战士冲到你脸上给你个缴械， 你丢不出缴械了， 制裁治疗被带走，你自己1V2挂掉。、
然后你决定把巨人写在后面，先缴械。结果每次爆发你都会把缴械丢出去，然后拆集火的时候，你告诉治疗 ：我的缴械刚才爆发法师的时候用掉了。还TM浪费我1个GCD。
本帖最后由 YBSK 于
13:52 编辑
仗剑斩楼兰
Lv.6, 积分 3609, 距离下一级还需 1391 积分
UID2901559帖子威望0 多玩草19 草
致死压制猛击 很明显是pve宏吧 pvp时不要用这种无脑一键宏
Lv.3, 积分 249, 距离下一级还需 1 积分
UID帖子威望0 多玩草0 草
唐列U 发表于
可是我还是不会 你就发发好心给我编一下吧
#showtooltip [help]援护;冲锋
/cancelaura 剑刃风暴
/cancelaura 保护之手
/cast [help] 援护
/cast [harm] 冲锋
/cast [harm] 断筋
/cast [harm] 缴械
/cast [harm] 巨人打击
Lv.6, 积分 3090, 距离下一级还需 1910 积分
UID帖子威望0 多玩草10 草
熔岩灬怒火 发表于
#showtooltip [help]援护;冲锋
/cancelaura 剑刃风暴
/cancelaura 保护之手[/b ...
这NM这是啥
秃笔南波万
新人欢迎积分1 阅读权限80积分15054精华3UID帖子金钱217268 威望15
我现在说的这句话是谎话
Lv.8, 积分 15054, 距离下一级还需 4946 积分
UID帖子威望15 多玩草576 草
YBSK 发表于
这NM这是啥
其实第一次听说要我装逼我是拒绝的。因为，你不能让我装，我就马上去装。第一我要试一下，因为我不愿意装完了再加上一些特技上去，突然狂炫酷霸叼炸天，这样出来了粉丝一定会骂我的，根本没有这样酷炫的装逼。后来我也经过证实装逼确实是需要技术的，后来我装逼的时候就要求他们不要加特技，我要让粉丝看到，我装逼完是这个样子，你们装逼完也是这个样子
马年新春勋章
手机APP马年迎春，马上有钱！
甜蜜情侣勋章
甜蜜情侣勋章
需要金钱：1100
手机盒子客户端点击或扫描下载
Powered by[不懂就问] 求大神帮写个宏，武器战的起手AOE宏！
大神帮忙！ 求个起手 灭战者》基尔加丹的炽燃决心》风痕磨石》原地破坏者》战吼》顺劈斩》旋风斩
的宏!!!!自己的#show 破坏者/cast 灭战者/use 基尔加丹的炽燃决心/use 风痕磨石/cast [@player] 破坏者/cast 战吼/cast 顺劈斩/cast 旋风斩破坏者不放 顺劈跟旋风不放。。。小白求解！！！
自己顶一下
没有这样的操作啦！就几个技能按吧！
[b]Reply to [pid=]Reply[/pid] Post by [uid=5386009]summersc[/uid] ( 22:47)[/b]目测马上一大波劝退要到来了，你需要的不是宏，需要的是好好理解一下游戏，先分清一下饰品和技能的区别，在分清公共冷却时间。ps.你这不是不懂就问，你这是想要就伸手。
这还需要宏？起手破坏者丢怪堆里冲锋战吼灭战，有斩杀就打斩杀，没有打致死然后巨人致死，多简单
顺劈跟旋风删了，你需要的是打致死跟切目标斩杀
[b]Reply to [pid=]Reply[/pid] Post by [uid=]qianaiqianyi[/uid] ( 08:49)[/b]哦，对了，你的灭战跟破坏者会卡gcd放不出来，拖出灭站手动放吧
我自己的宏1#showtooltip /castsequence reset=3 冲锋,巨人打击,顺劈斩然后是宏2#showtooltip/castsequence [@player] reset=3 破坏者,战吼,灭战者(神器),旋风斩,顺劈斩,旋风斩,旋风斩,旋风斩,顺劈斩,旋风斩,旋风斩,旋风斩,顺劈斩,旋风斩,旋风斩/cast 托尼的承诺宏2里面不能有巨人和致死 这个是全AOE技能
[b]Reply to [pid=]Reply[/pid] Post by [uid=]Cooooool牛[/uid] ( 00:02)[/b]感觉先灭战 再顺劈斩 再破坏者 再战吼 。。。。吧
我了下这个宏，他的意思是有灭绝直接冲锋宏2，无灭绝宏1加宏2}