精华内容
下载资源
问答
  • Excel创建按钮调用

    千次阅读 2014-06-04 10:20:46
    今天匆匆忙忙写了个,但是发现以前用来创建按钮的开发工具菜单不见了。 找了上十分钟把Excel翻了个遍,终于在Excel选项的常用中找到了,先Mark下,留个同样找不到的童鞋。 截几个图,方便大家一下子能找到哈: 接...

    今天匆匆忙忙写了个宏,但是发现以前用来创建按钮的开发工具菜单不见了。

    找了上十分钟把Excel翻了个遍,终于在Excel选项的常用中找到了,先Mark下,留个同样找不到的童鞋。

    截几个图,方便大家一下子能找到哈:


    接下来,你能在菜单栏看到开发工具了:


    开发工具中有我们想要的各种按钮和控件,包括宏:


    哈哈,恭喜你和我一样,找到按钮了,那接下来如何调用呢,下面以ActiveX控件中的按钮为例:

    1、创建按钮控件并更名Index

    2、双击按钮进入宏编辑模式

    3、编辑你想要的VBA代码

    4、退出设计模式

    OK,点击按钮就能执行了。


    展开全文
  • Excel通过生成自定义菜单和按钮

    千次阅读 2012-04-06 10:19:44
    Sub CreateToolbar(ByVal b As Boolean) If Not b Then End Dim myButton As Variant Dim sMessage As String ''' Reset menus and buttons, delete if exist. On Error Resum
    Sub CreateToolbar(ByVal b As Boolean)
        If Not b Then End
        
        Dim myButton As Variant
        Dim sMessage As String
        
        ''' Reset menus and buttons, delete if exist.
        On Error Resume Next
        CommandBars("Worksheet Menu Bar").Reset
        CommandBars("Knorr Toolbar").Controls("SpareCatalogueFormat").Delete
        On Error GoTo 0
        
        On Error GoTo ErrHandler01
        ''' Add DocTool menu
        Set myButton = CommandBars("WorkSheet Menu Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True)
        With myButton
            .Caption = "&DocTool"
            With .Controls.Add(msoControlButton)
                .Caption = "Convert Data from CADIM to SpareCatalogueFormate"
                .OnAction = "SpareCatalogueFormat"
                .FaceId = 8
                .BeginGroup = True
            End With
        End With
        
        ''' Add buttons to Knorr Toolbar
        Set myButton = CommandBars("Knorr Toolbar")
        With myButton
            With .Controls.Add(msoControlButton)
                .Caption = "SpareCatalogueFormat"
                .OnAction = "SpareCatalogueFormat"
                .TooltipText = "Convert Data from CADIM to SpareCatalogueFormate"
                .FaceId = 8
                .BeginGroup = True
            End With
        End With
        
        Exit Sub
        
    ErrHandler01:
        sMessage = "Ooops! Something didn't work quite correctly." & vbCrLf & vbCrLf & _
            "Error number: " & Err.Number & vbCrLf & _
            "Error message: " & Err.Description & vbCrLf & vbCrLf & _
            "Please check the VBA code!"
        MsgBox sMessage, vbCritical, "iFE-VICTALL, Knorr-Bremse"
        End
    End Sub
    
    

    展开全文
  • 点赞再看,养成习惯;衣莫若新,人莫若故。 微信搜索【亦心Excel】...如上图,不但支持单条件查询,比如在最上面的性别中输入“男”,点击查询按钮,在下面即可显示所有性别为“男”的同学。而且还支持多条件查询...

    点赞再看,养成习惯;衣莫若新,人莫若故
    微信搜索【亦心Excel】关注这个不一样的自媒体人。
    本文 GitHub https://github.com/hugogoos/Excel 已收录,包含Excel系统学习指南系列文章,以及各种Excel资料。

    我们在处理数据的时候应该经常会遇到需要对数据进行一些查询,如果需要多次查询,每次都操作一遍筛选功能就显得很麻烦。

    如上图,不但支持单条件查询,比如在最上面的性别中输入“男”,点击查询按钮,在下面即可显示所有性别为“男”的同学。而且还支持多条件查询,比如查询性别为男,出生年份2000年,点下查询即可查出所有满足条件的学生。

    这个看上去高大上的查询系统,其实很简单,既没有用到复杂的函数,也没有用到牛掰的VBA编程。

    今天我想和大家分享如何巧妙利用高级筛选和录制宏来实现一个简易的查询小系统。

    1、添加查询区域

    首先在源数据上方添加3行空白行,然后添加好对应的查询条件。

    然后可以通过插入图形作为查询按钮。具体操作如下:

    点击「插入」选项卡下「插图」命令组中的「形状」下拉列表,选择「矩形」中的圆角矩形。

    当鼠标移至单元格区域,会发现光标变成黑色小十字形状,然后按住鼠标左键画出适当的圆角矩形。双击图形输入“查询”,然后可以设置查询按钮字体样式,字体为微软雅黑,加粗,并水平居中和垂直居中。

    2、录制宏

    录制宏的主要是通过把调用高级筛选功能实现查询功能的整个过程录制下来,作为一个功能保存下来。

    首先点击「开发工具」选项卡下「代码」命令组中的「录制宏」,调出录制宏对话框,然后宏名为:查询,点击确定按钮。

    然后点击「数据」选项卡下「排序和筛选」命令组中的「高级」,调出高级筛选对话框。并设置「列表区域」为源数据区域即A4:E15单元格区域,设置「条件区域」为查询区域即A1:E2单元格区域,并点击确定按钮。

    最后点击「开发工具」选项卡下「代码」命令组中的「停止录制」,到这里宏就录制完成了。

    3、查询按钮功能实现

    查询按钮实现查询功能也很简单,只需要把查询按钮指定宏,指向刚才录制好的名为“查询”的宏。如下选择查询按钮,右击鼠标并选择「指定宏」,调出指定宏对话框。

    然后选择“查询”,并点击确定按钮。

    到这里整个查询小系统就制作完成了。下面来看看整个过程及效果。

    制作完以后,我们回想一下整个过程,其实就用到了两个知识点,一个是高级筛选功能,一个是录制宏,这两个功能也都不复杂,但是做出来的小功能却是很好用,熟练使用各种基础功能并组合到一起,有时候会起到意想不到效果。

    今天的分享到这里就结束了,但是学习的道路才刚刚开始,希望我们可以在学习的道路上不断地前进,坚持不懈。

    如果你有感兴趣的功能,可以告诉小编哦,小编会为你写一篇相应的文章。当然是先到先写哈,我会列一个计划表,尽量满足大家的需求,所以如果下一篇不是你要的文章,请不要着急,可能就在下下篇。记得告诉小编你想学习的功能哦。

    文章持续更新,可以微信搜索「 亦心Excel 」第一时间阅读,本文 GitHub https://github.com/hugogoos/Excel 已经收录,包含Excel系统学习指南系列文章,欢迎Star。

     

    展开全文
  • Excel高级筛选系列教程(完整版)-第三期-多条件混合应用 Excel高级筛选系列教程(完整版)-第四期-使用函数增强筛选 Excel高级筛选系列教程(完整版)-终极篇-制作自动筛选模板 Excel如何实现标题按要求重排?(番外)

    今天要分享的知识是平时问的比较多的,也是大家日常工作的经常处理的问题!

    比如如何从销售表中找到张三的全部销售记录?如何找到9号到21的数据?

    如何找到业务员是张三且金额大于1000的记录等等!

    下面我们就通过一组案例来根据实际情况高效提取数据!

    数据源:销售表一张

    2dea10d5aae0d4774b1b135e56e3af32.png

    先从简单的开始,比如提取提取“张三的全部销售数据到一个新的表”

    案例01 | 提取张三的全部销售记录到新的表(动画演示)

    如果只是查找,那么我们直接筛选即可,但是这里需要提取出来,所以我们使用高级筛选处理(关于高级筛选,小编已经写过专题,需要全面学习的在文末扩展阅读,这次就不再啰嗦)

    0351110f54b7a58294fca478e057e4ed.gif

    操作说明

    1、条件设置,需要筛选的标题名称,下面放需要查找的条件!

    2、高级筛选要求结果表中启动,否则会提示“要求在活动工作表中

    我已经听到下面有同学嘴里在嘀咕了:

    “实际工作中往往经常需要筛选的不是一个人,而是多个人或者条件,你这样的单条件,我筛选复制就行了呀,何必这么麻烦?”

    这话有点道理,先来说一下多人的情况如何处理,其实只需要在下面继续添加姓名即可! 比如这次我们把小易也加进来!

    按案例1的基础上我们扩展到案例2-多姓名

    案例02 | 多姓名筛选(动画演示)

    0ea2eef4a65453952279b913c2419752.gif

    如果我们只需要日期、姓名、名称和金额列呢?其他都是不需要的,这个时候,高级筛选的技巧就用上了,我们只需要设置好条件,然后存放位置选择对应的标题即可!

    案例03 | 选择满足条件指定的列(动画演示)

    da8ed928a290cce92bb69abf3b32a8b8.gif

    这个技巧非常合适表格中列数特别多,而我们需要特定列的情况,也是大部分人不知道的技巧,推荐!

    下面我们再举一个稍微复杂点的例子

    案例04 | 张三8月或者小易销售金额大于500的记录

    c3e9d830623990c74198c31d686a1043.png

    这里我们设置的稍微综合一些,可以说高级筛选基本可以满足日常的各种筛选查找问题!

    案例知识点说明

    1、条件区域我们使用了“基础公式的无空标题模式”和常规模式综合设置

    2、同行表示并且关系(横向),同列表示或者关系(纵向)

    高级筛选专题总结在文末!

    有的同学可能觉得,每次筛选还是麻烦,要是能够设置条件,每次不用都操作一遍就好了,其实很简单逻辑一下宏即可!

    案例04 | 录制宏-更加便捷的操作

    bef95a4d7605255e8f45c239c5a7b7bf.gif

    更改条件后,点击按钮即可重新操作高级筛选,不用每次都设置一遍了!

    当然可能设置到数据域区域和条件区域等变化,如果你有一定的VBA基础,进入代码,编辑一下,修改为自动获取有效区域即可!

    以上几个案例算是我们工作中遇到的问题,一步一步思考和完善的过程,当然我知道,有很多朋友特别喜欢公式,干啥都要使用一下公式,所以我们下面再补充一下简单的公式处理!

    先来说MS365版本:因为简单

    我们还是以开头的“张三销售记录”为例来写:

    =FILTER(数据源!A1:H56,数据源!C1:C56="张三")
    2543bc2c2f1e4110c4362e181010d80d.gif

    低版本如何书写公式:人人应该知道的“万金油”

    =IFERROR(INDEX(数据源!$A$1:$H$56,SMALL(IF(数据源!$C$1:$C$56="张三",ROW(数据源!$C$1:$C$56)),ROW(A1)),COLUMN(A1)),"")

    473eff4e38acfa7ce974c39165fff427.png

    在PQ中,我们使用Table.SelectRows即可,最近在写PQ专题,我们简单提一下!

    7dcbf3d7d76f5af4b03264cc816ea876.png

    如果你觉得高级筛选简单好用,想系统学习,那么请阅读以下专题

    (点击文字跳转阅读)

    往期推荐

    Excel高级筛选系列教程(完整版)-第一期-基础功能介绍

    Excel高级筛选系列教程(完整版)-第二期-注入灵魂的条件区域设置(上篇)

    Excel高级筛选系列教程(完整版)-第三期-多条件混合应用

    Excel高级筛选系列教程(完整版)-第四期-使用函数增强筛选

    Excel高级筛选系列教程(完整版)-终极篇-制作自动筛选模板

    Excel如何实现标题按要求重排?(番外)

    展开全文
  • Excel 的用法的教程

    千次阅读 2011-05-11 14:50:00
    Excel表格的35招必学秘技(学会计的快来转...  一、让不同类型数据用不同颜色显示  在工资表中,如果想让大于等于2000元的工资总额以“红色”显示,大于等于1500元的工资总额以“蓝色”显示,低于...
  • 教你快速入门Excel-与VBA(上)

    万次阅读 热门讨论 2014-03-28 22:06:44
    最近在做项目的时候用到了Excel宏和VBA,本着共享的原则,我把收集的资料结合项目实践操作进行了总结之后制作了本教程,旨在帮初学者入门,特别是有一定VB基础的同学,可以通过此教程快速掌握宏和VBA。什么是宏 ...
  • 微信公众号:万能的Excel 一谈起编程,很多人就头痛!身边很多配朋友都找我抱怨:我是做财务的/做行政的/做工程的,我压根就没有学过编程!!! 那么今天小编就手把手教你,让Excel自动编程!争取今天又可以不用...
  • Excel Excel 开发者工具 Excel 添加按钮控件 Excel VB(visual basic) 编程 Excel 函数之 INDEX/RANDBETWEEN函数 Excel 函数之 VLOOKUP函数 相关问题解决方案: EXCEL做随机抽奖摇奖器(一) Excel中如何插入...
  • 昨天想了想,先写一个文件夹遍历的小程序吧,主要是为了做个引子,同时我想她以后可能会遇到要打开某个文件夹里所有Excel的需求(比如找出每个excel中固定位置的值,然后打印到当前excel中。)。这个比较粗糙,...
  • 18.用图形美化工作表我们在制作Excel工作表时,呆板的横竖显示的工作表可能没有多大的说服力。如果需要使用让人印象深刻的图形来吸引人们的注意,首先在“绘图”工具栏上按下“自选图形”按钮,然后选择“其他自选...
  • Excel Advent日历无

    2020-08-13 02:36:28
    Excel Advent日历无 (Excel Advent Calendar No Macros) December is only 2 days away, so it's time for an Excel Advent Calendar! I've made two new versions this year, and they don't use macros, just ...
  • Excel制作印章

    千次阅读 2011-06-11 22:33:00
    我们也可以直接用Excel制作:把绘图工具打开,选中“椭圆”工具,在按下“Shift”键的同时拖开鼠标,就可以得到一个正圆了。双击这个正圆打开“设置自选图形格式”对话框,在“颜色与线条”标签中,填充颜色选“无...
  • 最近在做项目的时候用到了Excel宏和VBA,本着共享的原则,我把收集的资料结合项目实践操作进行了总结之后制作了本教程,旨在帮初学者入门,特别是有一定VB基础的同学,可以通过此教程快速掌握宏和VBA。 什么是宏 ...
  • 菜单名称 子菜单名称 菜单ID 菜单INDEX 图标ID 类别 Worksheet Menu Bar(INDEX:1) 文件(&F) 30002 1   CommandBarPopup   编辑(&E) 30003 2   CommandBarPopup ...CommandBarPopup
  • [vba]-Excel VBA命令(转) 本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误,即将退出!" '...
  • 各种Excel VBA的命令

    千次阅读 2008-07-06 21:30:00
    各种Excel VBA的命令 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误,...
  • VBA在Excel中的插件制作

    千次阅读 2017-11-14 16:16:00
    VBA在Excel中的插件制作 步骤1: 在Excel工具栏的开发工具中启动Visual Basic,进入编辑页面如图1: 在VBA Project中右键插入模块,命名为自定义功能区,写好的VBA代码就可以写入右边的白色框框中。 步骤2:...
  • powerbuilder操作excel命令大全

    千次阅读 2016-09-05 16:20:53
    1.创建Excel对象  eole=CREATEOBJECT(′Excel.application′)  2.添加新工作簿  eole.Workbooks.add  3.设置第3个工作表为激活工作表  eole.Worksheets(″sheet3″).Activate  4.打开指定工作簿 ...
  • Excel-常用技巧

    千次阅读 2004-10-17 16:52:00
    '本示例对自动重新计算功能进行设置,使 Microsoft Excel 不对第一张工作表自动进行重新计算。 Worksheets(1).EnableCalculation = False '下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls ...
  • 利用excel制作动态函数图像课件(1)   利用excel里插入带平滑线...添加active控件里的命令按钮,将按钮的名称改为描点作图。在设计模式里输入下列代码: Range("A2:A100").CleaContents Cells(2,1)=-2 i=2 ...
  • VBA自定义工具栏按钮制作方法

    千次阅读 2011-04-02 10:26:27
    Excel 中点击菜单 “工具” → “自定义” ,在弹出的对话框中选择 “命令”栏,在左边的“类别”框中选择“”,在右边的“命令”框中左键拖动“自定义按钮”到任意一个工具栏上(自己觉得方便的位置上即可),...
  • 思路来源:请问如何在excel每间隔相同距离行插入空行?(链接:https://iask.sina.com.cn/b/1SXyoIH6kE5p.html)提问者:类似于5000行数据,每隔5行插入1行数据 我选了答案中的第一个答案: Sub 1() For i = ...
  • 声明:本文出自云上科技电脑工作室,版权所有,未经授权禁止转载,请尊重...下面笔者就跟大家来讲讲如何利用这两个工具来为Excel电子表格添加快速打印的功能按钮,只要轻轻点击一下这个按钮,内容就会发送至指定的...
  • ActiveWorkbook.ChangeLink "c:"excel"book1.xls", "c:"excel"book2.xls", xlExcelLinks '本示例启用受保护的工作表上的自动筛选箭头? ActiveSheet.EnableAutoFilter = True ActiveSheet.Protect contents:=True, ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,234
精华内容 493
关键字:

excel宏命令制作按钮