精华内容
下载资源
问答
  • 前面说了excel工具的使用,有些人可能想知道菜单是怎么增加的...在模块中添加方法,如下图 (选)修改模块名称 选中“模块1”,按“F4”,或者“视图”-->“属性窗口” 修改名称为您的模块名称,例如“myMoud...

    前面说了excel工具的使用,有些人可能想知道菜单是怎么增加的。这里把个人经验分享出来。也方便大家后续自己改造源码。

     

    新增一个菜单项

    案例:在原有的菜单上增加一个新菜单项,如下图:

    操作步骤:

    1. 插入一个模块,如下图:

    1. 在模块中添加方法,如下图

    1. (选)修改模块名称
      1. 选中“模块1”,按“F4”,或者“视图”-->“属性窗口”
      2. 修改名称为您的模块名称,例如“myMoudle”

    1. 关闭您的excel,例如“用例模板_excel.xlsm”,修改后缀为rar,如下图:

    1. 编辑rar文件(添加按钮)

    1. 编辑完毕后另存为,然后拖进rar中替换对应的文件。
    2. 还原rar文件到xlsm,修改后缀为xlsm,如下图

    1. 打开excel文档,查看菜单,如下图:

    1. 点击按钮“我的测试按钮”,如下图

    注意:当模块名与方法一样时会报如下错误:

     

    1. 用按钮去调时需要为方法增加一个参数,如图:

    1. 添加按钮完毕:

    加载项(或2003excel)

    案例:在2003excel中新增一个菜单,或是在2007中增加按钮到加载项,如下图:

            

    操作步骤

    1. 增加一个如下的方法,运行即可添加菜单:

    注意:这种方式添加的菜单,对应的方法不能含有参数

    Sub MyButton()

     Dim NewMenu As CommandBarButton

        With Application.CommandBars("Worksheet menu bar").Controls(1)

            .Reset

            Set NewMenu1 = .Controls.Add(Type:=msoControlButton)

            Set NewMenu2 = .Controls.Add(Type:=msoControlButton)

            Set NewMenu3 = .Controls.Add(Type:=msoControlButton)

            Set NewMenu4 = .Controls.Add(Type:=msoControlButton)

            Set NewMenu5 = .Controls.Add(Type:=msoControlButton)

            

            With NewMenu1

                .Caption = "用例组合"

                .OnAction = "UserCaseGroup"

             End With

            

            With NewMenu2

                .Caption = "取消组合"

                .OnAction = "ClearGroup"

             End With

            

             With NewMenu3

                .Caption = "隐藏菜单"

                .OnAction = "HideMenu"

             End With

            

             With NewMenu4

                .Caption = "等级着色"

                .OnAction = "SetLevelColour"

             End With

            

             With NewMenu5

                .Caption = "Run APIs"

                .OnAction = "runAPIs"

             End With

        End With

        Set NewMenu = Nothing

    End Sub

    导入模块到新的excel中

    应用场景:

    您已经在excel中已经写好了用例,可以把工具的脚本导入到您的excel中。否则您需要把用例粘贴到模板中。

     

    1、修改任意一个sheet名为“通用用例”,例如:

    ---后来测试可以不用修改sheet名称,之前发现是有问题的。保留着供参考吧。

     

    2、在上图中,按ALT+F11,打开如下界面,导入如下图的文件:

     

    3、另存为xlsm格式;

    4、关闭excel;

    5、直接修改文件名的后缀为rar类型,如:

    6、将下图的3个文件拖到rar中:

     

    还原rar后缀为xlsm,如下图:

    8、可以打卡你的excel了,也可以随意习惯sheet名了;

    展开全文
  • 在ThisWorkBook对象添加Workbook_Open事件,调用启动菜单过程。 Private Sub Workbook_Open() Call MenuSetup(True) End Sub '----------------------------------------------- '在Excel
    将以下代码保存到.xlam或.xla(Excel97-2003)文件。
    
    在ThisWorkBook对象中,添加Workbook_Open事件,调用启动菜单过程。
    Private Sub Workbook_Open()
        Call MenuSetup(True)
    End Sub
    
    '-----------------------------------------------
    '在Excel中添加菜单和菜单项按钮(Excel启动时候添加)
    '-----------------------------------------------
    Public Function MenuSetup(blSetUp As Boolean)
        Dim myMenu As CommandBarPopup
        Dim mycontrol As CommandBarControl
        Dim i As Integer
        Dim sMenuItemName As String     '菜单项的名称
        Dim sMenuItemFunc As String     '菜单项的调用的函数名称
        Dim strM As String              '菜单名称
        Dim strMenuItem() As String     '菜单项名称
     
        On Error Resume Next
        
        '初始化菜单项
        ReDim strMenuItem(3, 2)    'VBA数组下界从1开始
        '菜单项1
        strMenuItem(1, 1) = "菜单项1"
        strMenuItem(1, 2) = "菜单1运行的过程名"
        '菜单项2
        strMenuItem(2, 1) = "菜单项2"
        strMenuItem(2, 2) = "菜单2运行的过程名"
        
        Application.ScreenUpdating = False
        
        '---添加菜单1
        strM = "EBS配套工具"
        Set myMenu = Application.CommandBars(1).Controls(strM)       '判断我的菜单是
    
    否存在?
        If Err Then
            Err.Clear
            Set myMenu = Application.CommandBars(1).Controls.Add
    
    (Type:=msoControlPopup, temporary:=True)
            myMenu.Caption = strM
        End If
        
        If blSetUp Then
                '---添加菜单项目1
                For i = 1 To UBound(strMenuItem)      '数组第一维的大小
                    sMenuItemName = strMenuItem(i, 1)
                    sMenuItemFunc = strMenuItem(i, 2)
                    
                    Set mycontrol = myMenu.Controls(sMenuItemName)   '判断子程序是否
    
    存在
                    If Err Then
                        Err.Clear
                        Set mycontrol = myMenu.Controls.Add(Type:=msoControlButton, 
    
    temporary:=True) '在菜栏最后位置增加一个按钮
                        With mycontrol
                            .Caption = sMenuItemName                    '菜单项显示名
    
    称
                            .OnAction = sMenuItemFunc                   '左键单击该菜
    
    单项按钮便运行的过程
                            .Style = msoButtonCaption                   '只显示文字
                        End With
                    End If
                Next
        Else
            Application.CommandBars(1).Controls(strT).Delete
           
        End If
        
        Application.ScreenUpdating = True
        If Err Then Err.Clear
    End Function
    
    Public Sub start_App()
     frmSetFileSheet.Show 0
    End Sub

    展开全文
  • 一、状况描述 当我们需要后台更新大量数据的时候,可以... (2)在Excel中添加按钮。点击开发工具选项卡-》插入控件-》选择表单控件中的“按钮”,添加按钮。如果没有开发工具选项卡,则按下图步骤添加。 (3)给按钮...

    一、状况描述
        当我们需要后台更新大量数据的时候,可以使用该功能。
    二、解決方案
        (1)新建一个Excel文件,并另存为启用宏的Excel工作簿,扩展名为.xlsm。
        (2)在Excel中添加按钮。点击开发工具选项卡-》插入控件-》选择表单控件中的“按钮”,添加按钮。如果没有开发工具选项卡,则按下图步骤添加。

       
        (3)给按钮指定宏,并新建或录制宏(可以自己编写语句实现想要实现的功能)。

       

     1 Sub 按钮1_Click()
     2 
     3 Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用
     4 Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表
     5 Dim strCn As String, strSQL As String, bb As String '字符串变量
     6 
     7 strCn = "Provider=sqloledb;Server=192.168.1.222;Database=dbName;Uid=sa;Pwd=sa"
     8 
     9 cn.Open strCn   '与数据库建立连接,如果成功,返回连接对象cn
    10 
    11 
    12 For i = 2 To Range("A65536").End(xlUp).Row
    13 
    14  '查询事件
    15  strCn = "SELECT notes FROM EMPLOYEE WHERE EMPLOYEEID='" & Cells(i, 1) & " '"
    16  ActiveSheet.Cells(i, 2).CopyFromRecordset cn.Execute(strCn)
    17  
    18  'insert、update、delete事件
    19  'strCn = "update employee set notes='" & Cells(i, 2) & "' where employeeid='" & Cells(i, 1) & " '"
    20  'cn.Execute (strCn)
    21 
    22 Next i
    23 MsgBox ("success")
    24 End Sub

        PS:如果宏被禁用,按以下操作:

       

       

       

        (4)工具-》引用,添加以下引用

       
        (5)保存,完成,点击按钮更新
    三、使用注意与时机
        宏里面的SQL语句必须要确定正确,一旦使用该功能,更新的数据无法撤销。

     

     

    如果您看了本篇博客,觉得对您有所收获,请点击右下角的 [推荐]

    如果您想转载本博客,请注明出处

    如果您对本文有意见或者建议,欢迎留言

    感谢您的阅读,请关注我的后续博客

    展开全文
  • (1)、首先在sheet中添加一个按钮,来显示用户窗体,查看效果 Private Sub CommandButton1_Click() UserForm1.Show End Sub 鼠标单击CommandButton1出现如下窗口,这是未对窗口进行任何代码编写的效果。 (2)、...

    1、插入一个用户窗体

    在这里插入图片描述
    需要在用户窗体中加入按钮的,则需要打开“工具箱”
    在这里插入图片描述
    在这里插入图片描述
    插入控件按钮
    在这里插入图片描述

    2、代码编写

    (1)、首先在sheet中添加一个按钮,来显示用户窗体,查看效果

    Private Sub CommandButton1_Click()
        UserForm1.Show
    End Sub
    

    鼠标单击CommandButton1出现如下窗口,这是未对窗口进行任何代码编写的效果。
    在这里插入图片描述
    (2)、在用户窗体中编写代码,打开编写界面
    在这里插入图片描述
    两个主要函数

    Private Sub UserForm_Initialize()
    	code
    End Sub
    
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    	code
    End Sub
    

    UserForm_Initialize是窗体初始化函数,对窗体的高度宽度等一系列初始化操作区域。只要使用UserForm1.Show就会调用这一函数。
    UserForm_QueryClose是窗体点右上角那个x之后,将调用该函数。

    (3)、实际应用
    将实现的功能:
    读取所有sheet的名字
    显示在窗体上
    通过在窗体上选择想要的sheet的名字,输出打印到sheet1的单元格A1中。
    将按钮修改名称为“确定”,点击确定即为确定选择内容,点击右上角的x,即为放弃修改。
    最终效果:
    在这里插入图片描述

    Private Sub 确定_Click()
        Sheet1.Range("A1:Z1").ClearContents
        Call Process
        Unload UserForm1
    End Sub
    Private Sub Process()
       Dim TNum As Integer
       Dim flag As Integer
       flag = 0
       TNum = 0
       On Error Resume Next
         For i = 0 To UserForm1.Controls.Count - 1
            If UserForm1.Controls(i) = True Then
                Sheet1.Cells(1, 1) = Sheet1.Cells(1, 1) & " " & UserForm1.Controls(i).Caption
            End If
        Next
    End Sub
    Private Sub UserForm_Initialize()
        Dim sheetNameArr() As String
        Dim sheetnum As Integer
        For Each sht In Worksheets
            sheetnum = sheetnum + 1
        Next
        ReDim sheetNameArr(0 To sheetnum)
        sheetnum = 0
        For Each sht In Worksheets
            sheetNameArr(sheetnum) = sht.Name
            sheetnum = sheetnum + 1
        Next
        sheetnum = UBound(sheetNameArr) + 1
        'Fix是向下取整
        counts = Fix(sheetnum / 10) + 1
        '设置窗体高度和宽度
        UserForm1.Width = 150 * counts '每增加1列宽度加150。
        If sheetnum < 11 Then UserForm1.Height = 20 * sheetnum + 50
        If sheetnum > 10 Then UserForm1.Height = 250
        '设置按钮的高度宽度以及相对窗体的位置
        UserForm1.确定.Width = 100
        UserForm1.确定.Height = 25
        UserForm1.确定.Top = UserForm1.Height - 50
        UserForm1.确定.Left = (UserForm1.Width - 100) / 2
        For X = 1 To counts
            Y = 10 * X '每列显示10个控件
            If X = 1 Then '开始第1列显示
                Start = 2
                Ends = 11
            Else '换列显示
                Start = Ends + 1
                Ends = Y + 1
            End If
        
            If Ends > sheetnum Then '防止溢出
                Ends = sheetnum
            End If
            For i = Start To Ends '循环生成控件
               Set ChkBox = UserForm1.Controls.Add("Forms.CheckBox.1", "Chk" & Str(i))
               If i > 11 Then
                   tops = 2 + 20 * (i - Y + 8) '换列后的控件高度坐标
               Else
                  tops = 2 + 20 * (i - 2)
               End If
               ChkBox.Top = tops
               ChkBox.Height = 25 '控件的高度
               ChkBox.Width = 200 '控件的宽度
               ChkBox.Left = 20 + 150 * (X - 1) '220 换列后的横坐标
               ChkBox.Caption = sheetNameArr(i - 2) '控件显示的标题
               Set ChkBox = Nothing
            Next
        Next
    
    End Sub
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End Sub
    
    

    https://download.csdn.net/download/qq_39629993/12693907

    展开全文
  • Excel VBA表中添加打开文件夹按钮

    千次阅读 2019-07-13 07:58:47
    Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory....
  • EXCEL中添加水印

    千次阅读 2018-06-22 16:21:17
    (注:如果找不到下面的选项,说明你电脑连接的打印机不支持添加水印)方法二、 添加个性化水印如果你电脑连接的打印机不支持添加水印,或你想添加个性化的水印效果。你可以按下面的步骤操作。(1) 插入-艺术字:...
  • 【VBA】向Excel中添加菜单

    千次阅读 2019-05-18 17:49:55
    以下代码用于向Excel菜单栏中添加菜单。是临时菜单,不是永久菜单。...(1)先点击按钮生成菜单,然后再打开Excel时,此时新Excel中会自动加载同样的菜单。所以,我们让用户先打开我们的程序,然后再打开她要操作...
  • '自动添加一个Sheet '动态生成一个按钮控件 '动态生成事件 '  Dim WSheet As Worksheet  Dim MyNewbtn As OLEObject  Dim Target As Range  Dim ShtCodeName As String  Set WSheet = Worksheets
  • 在 jira的application-data 文件夹下 jira-config.properties 文件(如果没有就创建一个) 中添加以下内容:jira.export.excel.enabled=true保存并退出重启JIRA 服务。 转载于:...
  • 在模板中添加装饰器,动态菜单,按钮,扩展器等。 自2015年年中以来,法国最大的资产管理公司之一开始使用ETK进行生产。 它每天使用的一些最敏感的应用程序都是基于ETK来管理大量资产基金(从博览会检查到财务订单...
  • 重写django.admin,添加“导出Excel按钮需求...重写djangoadmin自带的管理后台,筛选仿真任务列表,添加一个按钮,可以将筛选出的仿真任务列表以Excel的形式导出。 用到的第三方库 # 1.导出Excel的库 import x...
  • excel中添加控件

    千次阅读 2009-02-28 10:12:00
    "视图"-〉"工具栏"-〉"控件工具箱" 象VB操作一样,可放置按钮控件,双击会出现Command_Click事件函数,然后象VB那样编程就行了。
  • 新装的office2003的excel 的常用按钮上没有打印预览按钮,可通过如下方法添加 (我的excel上已经有了打印预览按钮,以下的操作只是为了说明如何添加) (没有打印机的添加一个打印机) 1.选择"工具(T)","自定义(C)"; 2....
  • 怎样在Excel中添加水印? Excel添加水印可能没有Word添加水印那么常见,但是一些机密的Excel文档还是加上水印比较安全,下面小编为大家介绍Excel添加水印的方法,想知道吗?来看看下面的介绍! 1:首先第一步,打开...
  • Excel 添加 复选框。

    千次阅读 2012-09-12 10:30:52
    1.在工具栏,先添加【开发工具】 (日文系统为 「 開発 」 )。 添加方法点击右上角,圆形,的开始按钮  --->下面的Excel选项 (日文系统为 「 Excelのオプション 」 )。  --->的窗口 找到 ...
  • 打开菜单窗口,选择工具按钮-添加到我的位置
  • matlab app designer中通过设置button按钮将Tabel组件...图2 excel中数据大致实现思路:在界面中添加一个button按钮,在button按钮的回调函数中添加以下代码 % Button pushed function: SaveResultTable function .
  • 选中数据栏的筛选按钮即可生成 如果是想添加未有信息则如下图步骤 首先,选择你要出现下拉的区域,在数据栏的选择数据有效性 然后,下面对话框,有效性条件按如下设置即可,来源则是你要选择的数据...
  • 基于NC65,实现客户端单据的导入导出按钮配置 ...首先在xml文件中添加按钮 <!-- 列表显示下的按钮 --> <bean id="actionsOfList" class="nc.ui.uif2.actions.StandAloneToftPanelActionContainer"> ...
  • 我们在编辑一个工作表中的内容时,如果想查看另一个工作表中的数据,就需要先点击下方的对应的工作表标签,再滑动...这种情况下,我们可以在 Excel 中添加一个定位按钮,利用 Excel 的链接功能快速跳转到想要查看的位置
  • Java中添加Excel表格中导入数据和将数据导出到Excel表格并下载 jsp页面 总共需要添加四个按钮: 1.选择导入的Excel 文件按钮 2.上传按钮 3.关闭按钮 4.导出Excel文件按钮 上传文件时我利用了表单来导入,在用户...
  • office excel中怎么添加批注及修改批注用户名 ...1. office excel中怎么添加批注及修改批注用户名2. 点击左上角office标志按钮3. excel选项4. 常用修改用户名即可 转载于:https://www.cnblogs.com/j...
  • 该资源是一个名为Test的excel 文件,下载后打开,如果你的excel是2007版则会在加载项里出现Custmization 下拉框,如果是2003版,则直接在菜单栏里多出一个Customization下拉框,下拉框里包含三个按钮,其中一个有弹...
  • excel2010自定义按钮〖宏〗

    千次阅读 2014-07-21 23:29:21
    我来详细说下步骤,先讲在快速访问工具栏添加,再讲在ribbon中添加; 快速访问工具栏: 1.录制好一个宏,比如我录制了个把选定单元格填成蓝色的的简单宏,录完了保存好,起个名字,见附件1; 2.点快速访问工具栏...
  • Qt使用excel 打开项目的.pro文件,在开头添加: QT += axcontainer

空空如也

空空如也

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

excel中添加按钮