查看: 3642|回复: 2
宏动作之间的延时功能如何实现
阅读权限20
在线时间 小时
Range(&AT381:BG382&).Select
& & Selection.sort Key1:=Range(&AT382&), Order1:=xlAscending, HEADER:=xlGuess _
& && &&&, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
& && &&&SortMethod:=xlPinYin, DataOption1:=xlSortNormal
& & Range(&AT383:BG384&).Select
& & Selection.sort Key1:=Range(&AT384&), Order1:=xlAscending, HEADER:=xlGuess _
& && &&&, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
& && &&&SortMethod:=xlPinYin, DataOption1:=xlSortNormal
& & Range(&AT385:BG386&).Select
& & Selection.sort Key1:=Range(&AT386&), Order1:=xlDescending, HEADER:= _
& && &&&xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
& && &&&SortMethod:=xlPinYin, DataOption1:=xlSortNormal
如上面，我有一个录制宏，用于实现从一个区里选择数据粘贴到另一个区，我想在这每个动作之间加个延时，比如动作一完成后要延时10秒再执行下一个复制粘贴动作。请问如何实现呢？
阅读权限150
在线时间 小时
& & & & & & & &
建议楼主在论坛搜索“延时”相关主题
阅读权限95
在线时间 小时
Application.Wait Now + TimeValue(&0:00:10&)
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered byexcel中如何利用宏代码实现对计算式添加注释_百度知道
excel中如何利用宏代码实现对计算式添加注释
Number = 1004 Or IsError(Target.jpg" />表格如上.MoveAfterReturnDirection = xlDownEnd IfIf MyCurrentColumn &lt.FormulaIf MyExpression = &quot.Cells(1;&&nbsp.baidu。能否通过修改这个宏程序, MyCurrentColumn%Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextMyCurrentColumn = Target, 1)) Then Target, 1), 1), 1).E 列Dim MyExpression$;&&nbsp。我现在有个程序如下.MoveAfterReturnDirection = xlToRightElse&#39，一旦添加注释, 5) = &quot.ColumnCells(2;回车下移A &amp，实现在计算表达式中增加注释的功能; MyExpressionIf Err.baidu.<img class="ikqb_img" src="计算结果&quot比如在单元格A1中输入&/zhidao/wh%3D600%2C800/sign=252f582a13dfa9ecfd7b5eb/9f510fb30f2442a70ecfc793d343ad4bd01302c6.Formula = &quot.Formula = & ResultColumn Then Exit SubMyExpression = Target
我有更好的答案
Crazy0qwer@qq，给你写段自定义函数。用事件个人感觉不是太好。可以把表发我邮箱这种事感觉用自定义函数比较好
用split和evaluate
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁宏论文：宏命令在Word与Excel中的简单应用
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
宏论文：宏命令在Word与Excel中的简单应用
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口查看: 2445|回复: 9
如何使用宏实现数据的自动筛选
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 jklfool 于
21:09 编辑
大家好，今天在工作中碰到了一个问题。是使用宏实现数据自动筛选功能的。因为自己对Excel宏不怎么熟悉，也尝试过用公式解决，最后失败了。现在真后悔没好好研究宏，呵呵。废话不说了，因为用户要得急，我自己研究的话已经来不及了，所以还请大家帮忙，谢谢大家。
我上传了一个附件，是实际数据的部分，但已经具有代表性了。其他都是重复的，所以大家请看附件。
附件中有两个sheet， 第一个为“Program”, 第二个为“Data”。 第二个为源数据，数值全部为0（false）或者1(True)。
现在要求，点击第一个sheet中的 某一个有颜色的方格 可以自动完成对于第二个sheet中数据的筛选。
譬如，点击一个sheet中的 “STS 35”后的 蓝色方格，则自动在第二列中完成筛选 列字段为 “STS 35”，数值为1的所有行数据.
然后最上方的 Clear all settings 为 清楚所有设置的意思，点击后面的 红色方格对象 可以自动清除第二个sheet中的所有筛选。
感谢大家能够花时间来帮助我，再次感谢！
21:05 上传
点击文件名下载附件
44.73 KB, 下载次数: 45
阅读权限20
在线时间 小时
很高兴看到已经有7位朋友下载了附件进行研究了，感谢大家
阅读权限95
在线时间 小时
.................
09:09 上传
点击文件名下载附件
54.08 KB, 下载次数: 54
阅读权限20
在线时间 小时
wj2368 发表于
.................
感谢您的帮忙，我看了下您的附件，可以得到我想要得结果。 我想请教一下，如果进行筛选嵌套呢。譬如说，第一步我运行了STS 35的蓝色框，得到了筛选结果，然后我再点击 600 rpm 右边的灰色按钮，是在前一筛选的基础上，再选择 600 rpm中值为1的所有行数据。 感谢您的帮助，谢谢！
阅读权限95
在线时间 小时
jklfool 发表于
感谢您的帮忙，我看了下您的附件，可以得到我想要得结果。 我想请教一下，如果进行筛选嵌套呢。譬如说，第 ...
如果要这样,现在代码已经修改,但要重新进行筛选,必须取消筛选状态.
12:43 上传
点击文件名下载附件
53.71 KB, 下载次数: 31
阅读权限20
在线时间 小时
wj2368 发表于
如果要这样,现在代码已经修改,但要重新进行筛选,必须取消筛选状态.
谢谢你，请问我要怎么才能看到那些蓝色按钮对应的哪个宏呢，代码是什么。 我想把所有的按钮的代码都设置好，谢谢
阅读权限95
在线时间 小时
jklfool 发表于
谢谢你，请问我要怎么才能看到那些蓝色按钮对应的哪个宏呢，代码是什么。 我想把所有的按钮的代码都设置好 ...
是一个鼠标点击事件,只有一个宏代码,不用设置,如果点击B6以下的代码
阅读权限95
在线时间 小时
wj2368 发表于
是一个鼠标点击事件,只有一个宏代码,不用设置,如果点击B6以下的代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Offset(0, -1) = && Then Exit Sub
If Target.Column = 2 And Target.Row &= 6 Then
& & s = Target.Offset(0, -1)
Set g = Sheet2.Range(&a2:n2&).Find(s)
& & d = g.Column
& & Sheet2.Select
&&
& & Sheet2.Range(&a2:n2&).Activate
& &ActiveSheet.Range(&$A$2:$J$27&).AutoFilter Field:=d, Criteria1:=&1&
& &&&End If
& &&&Sheet1.Select
End Sub
复制代码
16:14 上传
点击文件名下载附件
52.01 KB, 下载次数: 46
阅读权限20
在线时间 小时
wj2368 发表于
非常感谢您，学到了不少。再请教下，那您是通过什么方法来让控制 我点击 STS35 后面的按钮就会在第二个sheet里面筛选 列名为 STS 35，值为1的数值呢？ 换句话来说，为什么我点击下面的600 rpm却没有任何反应呢。谢谢
阅读权限95
在线时间 小时
jklfool 发表于
非常感谢您，学到了不少。再请教下，那您是通过什么方法来让控制 我点击 STS35 后面的按钮就会在第二个sh ...
不在点击范围内
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by后使用快捷导航没有帐号？
只需一步，快速开始
查看: 22106
威望2229 金钱1645 积分2229精华0帖子阅读权限80注册时间在线时间496 小时
高级编辑, 积分 2229, 距离下一级还需 2771 积分
& && &&&相信有好多朋友会经常做表格重复操作处理的工作，如果你很懒，又想快速的处理这样的事，请来学习一下《宏》吧。首先来介绍一下什么是宏：
& && & 所谓宏，就是一些命令组织在一起，作为一个单独命令完成一个特定任务。MicrosoftWord中对宏定义为：“宏就是能组织到一起作为一独立的命令使用的一系列word命令，它能使日常工作变得更容易”。Word使用宏语言Visual Basic将宏作为一系列指令来编写。
　　计算机科学里的宏是一种抽象的,根据一系列预定义的规则替换一定的文本模式。Excel 办公软件自动集成了“VBA”高级程序语言，用此语言编制出的程序就叫“宏”。使用“VBA”需要有一定的编程基础和耗费大量的时间，因此，绝大多数的使用者仅使用了Excel的一般制表功能，很少使用到“VBA”。
　　解释器或编译器在遇到宏时会自动进行这一模式替换。对于编译语言，宏展开在编译时发生，进行宏展的工具常被称为宏展开器。宏这一术语也常常被用于许多类似的环境中，它们是源自宏展开的概念，这包括键盘宏和宏语言。绝大多数情况下，“宏”这个词的使用暗示着将小命令或动作转化为一系列指令。
　　宏的用途在于自动化频繁使用的序列或者是获得一种更强大的抽象能力－－但这常常是一回事。
　　计算机语言如C或汇编语言有简单的宏系统，由编译器或汇编器的预处理器实现。C的宏预处理器的工作只是简单的文本搜索和替换，使用附加的文本处理语言如M4，C 程序员可以获得更精巧的宏。
　　Lisp类语言如Common Lisp和Scheme有更精巧的宏系统: 宏的行为如同是函数对自身程序文本的变形，并且可以应用全部语言来表达这种变形。一个C宏可以定义一段语法的替换，然而一个Lisp的宏却可以控制一节代码的计算。获得了控制代码的执行顺序（见惰性计算和非限制函数）的能力，使得新创建的语法结构与语言内建的语法结构不可区分。例如，一种Lisp 方言有 cond 而没有if ，就可以使用宏由前者定义后者。Lisp 语法的去部主要扩展，比如面向对象的CLOS 系统，可以由宏来定义。
编辑本段宏的典型应用　　加速日常编辑和格式设置 组合多个命令 使对话框中的选项更易于访问 使一系列复杂的任务自动执行
　　应用程序也可以使用一种和宏类似机理的系统来允许用户将一系列（一般是最常使用到的操作）自定义为一个步骤。也就是用户执行一系列操作，并且让应用程序来“记住”这些操作以及顺序。更高级的用户可以通过内建的宏编程来直接使用那些应用程序的功能。当使用一种不熟悉的宏语言来编程时，比较有效的方法就是记录一连串用户希望得到的操作，然后通过阅读应用程序记录下来的宏文件来理解宏命令的结构组成。
第一，excel个人宏工作簿的名称和位置
　　2010版excel个人宏工作簿的名称为：PERSONAL.XLSB。
　　个人宏工作薄在电脑里的默认保存路径在：C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART文件夹下面。
第二，excel个人宏工作簿的作用
　　excel个人宏工作簿的作用就是可以保存一些平时我们经常使用到的宏命令以及一些自定义函数等等。
　　保存在个人宏工作簿中的宏，所有的本地EXCEL工作簿都可以使用该宏。
第三，如何打开和使用excel个人宏工作簿
　　我们录制一个修改单元格格式的宏，将其保存为个人宏工作薄为例，来讲解整个个人宏工作薄使用流程。
　　1.单击开发工具——录制宏，弹出的“录制新宏”对话框，宏名输入“修改单元格格式”，保存在选择“个人宏工作薄”，单击“确定”。
　　2．选择任意单元格，将字体更改为：微软雅黑，字号为：12，单元格字体颜色：红色，单元格填充色：黄色。
　　3.单击“停止录制”。
　　4.我们在excel任意单元格输入文字内容，然后单击“开发工具——宏”，或者ALT+F8快捷键，打开“宏”对话框，选择刚才录制的宏，然后单击“执行”。这样选中的单元格将会执行刚才录制的效果，即：单元格填充为黄色，字体为微软雅黑，字号为：12，文字颜色为红色。
　　我们打开或者新建其余工作薄，按ALT+F8执行宏，都可以快速的修改单元格格式。
第四，如何将其余的VBA代码或者自定义函数保存在个人宏工作薄中
　　按下ALT+F11，打开VBE编辑器，找到如下图所示的：PERSONAL.XLSB，双击，看到下面有“模块”，右击“模块”，选择插入——模块，然后将相应的代码粘贴到右边的代码窗口即可。
第五，删除个人宏工作薄
　　当我们不需要使用该文件，可以在默认路径中找到PERSONAL.XLSB文件进行删除。如果只是删除其中的一个模块，在第四小节上面的截图找到对应的模块，右键删除。
该贴已经同步到
威望2741 金钱47 积分2741精华0帖子阅读权限80注册时间在线时间328 小时
高级编辑, 积分 2741, 距离下一级还需 2259 积分
威望477 金钱44 积分477精华0帖子阅读权限60注册时间在线时间0 小时
编辑, 积分 477, 距离下一级还需 23 积分
宏是个好东西。
威望3204 金钱22 积分3204精华0帖子阅读权限80注册时间在线时间723 小时
高级编辑, 积分 3204, 距离下一级还需 1796 积分
威望1749 金钱927 积分1749精华0帖子阅读权限80注册时间在线时间0 小时
高级编辑, 积分 1749, 距离下一级还需 3251 积分
虽然excel玩的还算利索，但是宏到现在也没弄明白。
威望4166 金钱242 积分4166精华0帖子阅读权限80注册时间在线时间493 小时
高级编辑, 积分 4166, 距离下一级还需 834 积分
威望14834 金钱831 积分14834精华8帖子阅读权限80注册时间在线时间3179 小时}