可以请教你ff14表情宏怎么写写宏吗？

来源：蜘蛛抓取(WebSpider) 时间：2015-06-05 04:52 标签： 魔兽世界翻页宏怎么写
请教EXCEL高手，如何编写如下函数宏？_百度知道
请教EXCEL高手，如何编写如下函数宏？
我的工作簿中有多个表格，但表格的作用类似于宏（函数），我想知道这样的工作表是怎么做出来的，做出来后其他工作表就能调用这个函数了。
我有更好的答案
我会VBA但是没看懂你要干嘛，说的详细点
没有看明白你的需求可以加我好友详聊需求
为您推荐：
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请问该如何写这个宏_百度知道
请问该如何写这个宏
我有更好的答案
截图来自网页！
采纳率：78%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请教EXCEL公式写入宏。_百度知道
请教EXCEL公式写入宏。
公式：=IF(COUNTIF(B$1:B1,B1)=COUNTIF(B:B,B1),COUNTIF(B:B,B1),&&)在B或CDE列输入数据后，F列中对应的行输入上面的公式，用宏代码怎么写。
我有更好的答案
都已经用VBA了，还在单元格写公式，感觉很别扭……不过代码如下：Private&Sub&Worksheet_Change(ByVal&Target&As&Range)On&Error&Resume&NextIf&Target.Column&&=&3&And&Target.Column&&=&5&Then&&&&Range(&F&&&&Target.Row).Formula&=&&=IF(COUNTIF(B$1:B&&&&Target.Row&&&&,B&&&&Target.Row&&&&)=COUNTIF(B:B,B&&&&Target.Row&&&&),COUNTIF(B:B,B&&&&Target.Row&&&&),&&&&)&End&IfEnd&Sub
能不用公式最好啊，那要怎么写。只要能实现上面公式的功能就行。就是在输入日期或姓名后，在每天的最后一行F列自动计算每天的行数。
如果你只是为了统计B列的各日期出现的次数，那么触发的条件仅针对B列即可。因为你即使在CDE列输入数值，也不影响B列的统计结果。Private&Sub&Worksheet_Change(ByVal&Target&As&Range)On&Error&Resume&NextIf&Target.Column&=&2&Then&&&&Application.EnableEvents&=&False&&&&Dim&d&&&&Set&d&=&CreateObject(&Scripting.Dictionary&)&&&&Dim&i,&r&As&Long&&&&r&=&Cells(Rows.Count,&&B&).End(xlUp).Row&&&&For&i&=&1&To&r&&&&&&&&d(Cells(i,&&B&).Value)&=&d(Cells(i,&&B&).Value)&+&1&&&&Next&&&&Columns(&F&).ClearContents&&&&For&i&=&r&To&1&Step&-1&&&&&&&&If&d.exists(Cells(i,&&B&).Value)&Then&Cells(i,&&F&).Value&=&d(Cells(i,&&B&).Value):&d.Remove&(Cells(i,&&B&).Value)&&&&Next&&&&Application.EnableEvents&=&TrueEnd&IfSet&d&=&NothingEnd&Sub
还是上面公式那个实用些，下面这个有点小问题。
额，好吧……公式很影响速度……特别是数据量越来越大的时候。
采纳率：79%
用录制宏的方式，可以看到输入的代码。
为您推荐：
其他类似问题
excel公式的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 魔兽世界翻页宏怎么写 的文章

 

随机推荐