精华内容
下载资源
问答
  • 简单的报表制作,计算总支出,收入,每月可使用的招待费用计算,对财务人员日常使用提供很大的帮助
  • WPS VBA插件是一款WPS官方推出的WPS VBA模块插件工具,安装后可以开启WPS的宏功能,该WPS VBA插件支持WPS2016和WPS2019版本,兼容Win7和Win10系统,需要WPS VBA插件的朋友赶紧下载吧。 使用方法: 1、...
  • 利用VBA写的加班记录软件,Excel中的窗体实现登录和记录加班界面,在C盘存储一个txt文件作为加班数据库进行存储。简化记录加班的步骤,只需要点击即可记录,还可以选择加班类型和加班时长等,并且自动统计各种类型...
  • VBA窗体日历插件.zip

    2021-10-26 22:17:03
    一款VBA窗体制作的日历小插件,直接导入使用即可!
  • WPS VBA插件

    2016-11-26 17:40:21
    VBA
  • VBA在Excel中的插件制作

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

    VBA在Excel中的插件制作

    步骤1:

    在Excel工具栏的开发工具中启动Visual Basic,进入宏编辑页面如图1:

    在VBA Project中右键插入模块,命名为自定义功能区,写好的VBA代码就可以写入右边的白色框框中。

    步骤2:

    再插入一个模块,命名为回调,用来调用功能区中的命令,格式如下:

    Sub ts(control As IRibbonControl)

    If control.ID = "but1" Then

    Call 插入批注图片

    ElseIf control.ID = "but2" Then

    Call 匹配图片

    ……

    ……

    ……

    End If

    End Sub

    开始和结束语不变,中间的写入格式ElseIf control.ID = "but2" Then  Call 匹配图片,有多少个命令就需要多少个but回调按钮,call后面连接的功能名跟自定义功能区里面的功能名称需要一致,不然回调不成功。

    步骤3:

    写好自定义功能区和回调内容后关闭Excel文件,单击Excel文件右键,用WinRAR压缩文件打开,其中有一个文件名为customUI的文件,打开后,用记事本打开customUI.xml文件,写入代码:

     

    写完后保存,关闭

    步骤4:

    重新用Excel打开刚才的文件,另存为Excel加载宏(*.xlam)文件,保存路径会默认的。

    然后再Excel工具栏中的开发工具中的Excel加载项中可以看到刚刚保存的文件,将前面的空格中打钩即可启用。在后续的Excel打开文件中即可看到命名为XXJ的工具栏。

    步骤5:

    也可以添加启功功能,前提是在自定义功能区中有启功的命令。打开Excel的其他命名,在此下拉框中选择宏,将宏下面的启动项选入右边的框框中,启动项的图标可以自主设计,如√即可

    备注:做好的插件文档见幸福生活群中的XXJ7.1.xlsm  图标见excel内置图标.xlsm

    转载于:https://www.cnblogs.com/wulu80261647/p/7833135.html

    展开全文
  • vba6.3宏插件

    2019-04-10 09:38:31
    支持wps2016,vba插件包是一款基于Microsoft Office开发的辅助增强工具,能够帮助用户在使用Office软件进行工作时规范操作行为,提高工作效率。vba操作界面干净整洁,非常的人性化,并且可以通过手工操作执行vba...
  • 利用vba来实现矩形画出矢量二维码cdr插件
  • VBA开发的EXCEL插件

    2015-03-28 10:51:17
    EXCEL常用工具,可实现合并、拆分等功能
  • VBA工具箱:VBA工具箱
  • 抽奖系统EXCEL VBA

    2019-01-09 11:47:33
    使用EXCEL VBA制作的抽奖系统 年底到了,春节近了。各种迎新晚会、团拜会开始扎堆,过节气氛越来越浓。这几年来筹备了多次团拜会,每次的抽奖活动都是自己用Excel做工具来解决的。为了增强抽奖工具的通用性,也为了...
  • vba开发工具栏界面控件设计,方便用户用VBA编程时轻松学习菜单界面的设计
  • EXCEL VBA 制作的雷尼绍激光干涉仪数据分析处理工具。可以分析雷尼绍激光干涉仪的测量数据,如GB VDI标准数据,可用于机床、三坐标等精度验收及精度补偿。
  • 基于Excel的考试系统---VBA http://blog.csdn.net/liuxiaoddd/article/details/53443686
  • VBA自学应用(2)——制作简单的数据录入窗口

    万次阅读 多人点赞 2019-12-29 19:24:50
    制作简单的数据录入窗口 一、画一个你的窗体 二、编写窗体代码 三、使用工作表事件激活窗体 四、补充:关于鼠标在listbox中的滚轮实现 现如今有两张表,一张产品表,一张录入表,如图所示。 我们要做出如下效果: ...

    现如今有两张表,一张产品表,一张录入表,如图所示。
    在这里插入图片描述
    在这里插入图片描述
    我们要做出如下效果:
    在这里插入图片描述
    达成这样的效果其实也不难,就让我们一步步来!

    一、画一个你的窗体

    1. 首先在标签栏找到开发工具中的VB编辑器并打开

    在这里插入图片描述

    1. 然后右键新建一个用户窗体

    在这里插入图片描述

    1. 然后选中窗体模块,按F4打开窗体属性窗口(也可以在视图选项卡中打开),这里可以设置窗体的各种属性

    在这里插入图片描述

    1. 接下来在视图选项卡下找到工具箱,用工具箱画出所需要的控件

    在这里插入图片描述

    二、编写窗体代码

    1. 先双击窗体,在如图所示的地方找到UserForm对应的事件(UserForm_Initialize=窗体名称_事件)

    在这里插入图片描述
    在这里插入图片描述
    写入以下代码

    Private Sub UserForm_Initialize()
        arr = Sheets("产品表").Range("a1").CurrentRegion
        With ListBox1
        '设置列表框属性
            .List = arr
            .MultiSelect = fmMultiSelectExtended
            .ColumnCount = UBound(arr, 2)
            .ListStyle = fmListStyleOption
            LISTBOX_Post_Flag = 1
            LISTBOX_Mouse_Flag = 1
        End With
    End Sub
    

    当然你也可以直接在列表框的属性窗口中设置他的属性

    1. 第二步,按照上述方法找到ListBox1_DblClick,写入以下代码
    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        '双击的时候也可以更改数据
        Dim crr()
        Dim m As Long
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) = True Then
                m = m + 1
                ReDim Preserve crr(1 To ListBox1.ColumnCount, 1 To m)
                For j = 0 To ListBox1.ColumnCount - 1
                    crr(j + 1, m) = ListBox1.List(i, j)
                Next
            End If
        Next
        If m > 0 Then ActiveCell.Resize(m, j) = Application.Transpose(crr)
    End Sub
    
    1. 第三步,为你需要查找的项目进行模糊匹配设置代码
    Private Sub TextBox1_Change()
        '模糊匹配
        Dim drr()
        Dim n As Long
        arr = Sheets("产品表").Range("A1").CurrentRegion
        For i = 1 To UBound(arr)
            If InStr(CStr(arr(i, 1)), TextBox1.Text) > 0 Then
                n = n + 1
                ReDim Preserve drr(1 To ListBox1.ColumnCount, 1 To n)
                For j = 1 To UBound(arr, 2)
                    drr(j, n) = arr(i, j)
                Next
            End If
        Next
        If n > 1 Then
            ListBox1.List = Application.Transpose(drr)
        ElseIf n = 1 Then
            ReDim crr(1 To 1, 1 To UBound(drr))
            For i = 1 To UBound(drr)
                crr(1, i) = drr(i, 1)
            Next
            ListBox1.List = crr
        Else
            ListBox1.Clear
        End If
    End Sub
    
    1. 第四步,为关闭和录入按钮编写代码
    • 关闭
    Private Sub CommandButton2_Click()
        Unload Me
    End Sub
    
    • 录入
    Private Sub CommandButton1_Click()
        '录入
        
        Dim brr(), grr
        Dim k As Long, m As Long
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) = True Then
                k = k + 1
                ReDim Preserve brr(1 To ListBox1.ColumnCount, 1 To k)
                For j = 0 To ListBox1.ColumnCount - 1
                    brr(j + 1, k) = ListBox1.List(i, j)
                    '选中的数据存入数组brr
                Next
            End If
        Next
        If k = 0 Then MsgBox "请选择数据": Exit Sub
        grr = Application.Transpose(brr)
        If k > 0 Then
            If k = 1 Then
                For i = 1 To UBound(grr)
                    
                    ActiveCell.Offset(, m) = grr(i)
                    m = m + 1
                Next
                ActiveCell.Offset(1).Select
            Else
                For i = 1 To UBound(grr)
                    For j = 1 To UBound(grr, 2)
                        ActiveCell.Offset(, m) = grr(i, j)
                        m = m + 1
                    Next
                    ActiveCell.Offset(1).Select
                    m = 0
                Next
            End If
        End If
        '取消选中
        Cells(Rows.Count, "B").End(3).Offset(1).Select
    End Sub
    
    • 这里可以使用小技巧取消窗口自带的关闭按钮事件,找到对应事件键入以下代码就可以啦!
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        If CloseMode <> vbFormCode Then Cancel = True
    End Sub
    

    三、使用工作表事件激活窗体

    右键双击对应工作表
    在这里插入图片描述
    按照找窗体事件的方法找到BeforeDoubleClick事件,代码如下

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Intersect(Target, Range("b5:b100")) Is Nothing Then Exit Sub
        Cancel = True
        UserForm1.Show Model
    End Sub
    

    四、补充:关于鼠标在listbox中的滚轮实现

    相关代码请移步→列表框实现鼠标滚轮滚动Demo

    • 首先,在上述代码的模块之下,定义一个变量,如图所示
      在这里插入图片描述
    • 第二步,将图示部分改成你定义的变量名称
    • 在这里插入图片描述
      在这里插入图片描述
    • 最后,只需要在对应listbox的mousemove事件下键入如下代码即可以实现滚轮效果
    Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        HookListBoxScroll
        Set frmlistbox = Userform1.ListBox1
    End Sub
    
    Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        HookListBoxScroll
        Set frmlistbox = Userform1.ListBox2
    End Sub
    
    展开全文
  • 很简单的一个功能,网上也有很多在线生成器,也有小工具可以下载,这儿用VBA做一个,结果就保存到当前工作表中,简单、快速。生成函数也可以放到其它程序中使用。
  • NULL 博文链接:https://wjason.iteye.com/blog/1099527
  • 函数代码: (ALT+F11快速进入宏编辑) Public Sub Demo1() Rem|"视图-此处为第一种注释方法" ' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法 Load UserForm1 If ActiveWindow.ActiveView...

    函数代码: (ALT+F11快速进入宏编辑)

    Public Sub Demo1()
    Rem|"视图-此处为第一种注释方法"
    ' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法
     Load UserForm1
       If ActiveWindow.ActiveView.Type = cdrEnhancedView Then
          UserForm1.Text = "Enhanced"
       ElseIf ActiveWindow.ActiveView.Type = cdrNormalView Then
          UserForm1.Text = "Normal"
       ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView Then
          UserForm1.Text = "Wireframe"
       ElseIf ActiveWindow.ActiveView.Type = cdrSimpleWireframeView Then
          UserForm1.Text = "Simple Wireframe"
       ElseIf ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints Then
          UserForm1.Text = "Enhanced WithOverprints"
       Else
          UserForm1.Text = "Draft"
    '此处结束If语句判断
       End If
    '显示(名称)为UserForm1的窗口
      UserForm1.Show
    '函数结束语
    End Sub

    窗口效果图: 

    查看窗口代码: 

    Private Sub Bt1_Click()
    '赋值视图类型
    ActiveWindow.ActiveView.Type = cdrSimpleWireframeView
    MsgBox "简单线框"
    '给文本框赋值
    Text.Text = "Simple Wireframe"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt2_Click()
    ActiveWindow.ActiveView.Type = cdrWireframeView
    MsgBox "线框"
    Text.Text = "Wireframe"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt3_Click()
    ActiveWindow.ActiveView.Type = cdrDraftView
    MsgBox "草稿"
    Text.Text = "Draft"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt4_Click()
    ActiveWindow.ActiveView.Type = cdrNormalView
    MsgBox "正常"
    Text.Text = "Normal"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt5_Click()
    ActiveWindow.ActiveView.Type = cdrEnhancedView
    MsgBox "增强"
    Text.Text = "Enhanced"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt6_Click()
    ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints
    MsgBox "使用叠印增强"
    Text.Text = "Enhanced WithOverprints"
    '刷新显示
    UserForm1.Repaint
    End Sub

     到绘图界面运行宏名称为Demo1的宏

    效果图:

    …………………………………………………………4:46继续更新

    展开全文
  • Excel的强大之处不在于日常的一些函数、vba代码及日常表格的操作,而是在于它可以通过这些函数和代码实现我们需要的数据报表功能。如仓库人员经常会涉及到的入库单、HR经常会利用到的自动化人员信息登记表等等。...

    Excel的强大之处不在于日常的一些函数、vba代码及日常表格的操作,而是在于它可以通过这些函数和代码实现我们需要的数据报表功能。如仓库人员经常会涉及到的入库单、HR经常会利用到的自动化人员信息登记表等等。

    162499016_1_20190530115503144

    【效果图】

    看了上面的动态效果,是不是感觉这个入库单非常神奇的呀。我们只要点击开单,就可以重新更新表格,点击计算可以计算金额,点击保存可以保存我们输入的数据。下面我们就来讲一下如何制作这个仓库入库。

    162499016_2_20190530115503769

    第一步:如上图。填写基础数据,将入库单页面的编号,品名等用数据有效性的方式进行引用,这样我们就可以实现轻松的对输入数据进行选择。这样可以尽可能的缩短我们填写数据的时间。

    162499016_3_20190530115504566

    第二步:编写VBA代码,实现计算、保存、开单等常用功能。按快捷键alt+F11快速进入VBA代码编辑窗口,如上图。输入下方代码。

    Sub 开单()

    Set es = Cells.Find('*', , xlFormulas, , , xlPrevious)

    [b2] = 'SM' & Format(Now(), 'ymdhms')

    Range([a5], es.Offset(4)) = ''

    [e2] = ''

    End Sub

    Sub 保存()

    On Error GoTo 100

    Dim es As Range, a%

    If Sheet2.[f:f].Find([b2]) = [b2] Then

    MsgBox '已经保存过了!'

    Else

    100:

    Set es = Cells.Find('*', , xlFormulas, , , xlPrevious)

    a = Application.CountA(Sheet2.[a:a])

    If es.Row = 4 Then MsgBox '没有填写内容': End

    Range([a5], es).Copy Sheet2.Cells(a + 1, 1)

    Sheet2.Cells(a + 1, 'f').Resize(es.Row - 4) = [b2] '保存入库单

    Sheet2.Cells(a + 1, 'g').Resize(es.Row - 4) = [e2] '保存供应商

    Sheet2.Cells(a + 1, 'h').Resize(es.Row - 4) = Now() '保存日期时间

    MsgBox '保存成功!'

    End If

    End Sub

    Sub 计算()

    Set es = Columns(3).Find('*', , xlFormulas, , , xlPrevious)

    For Each Rng In Range([c5], es)

    Rng.Offset(0, 2) = Rng.Offset(0, 1) * Rng

    Next

    End Sub

    第三步:插入按钮插件,指定宏功能即可,如下图:

    162499016_4_20190530115505160

    展开全文
  • 1.在这里主要以一个人员薪酬表为例子,做简单的增删改等操作,以及快速生成工资条,窗口示例如下2.数据表信息如下3.生成的工资表如下4.详细代码如下'添加员工信息Private Sub CommandButton1_Click()Dim iDim w1Set ...
  • 随机抽签器(VBA宏)

    2018-10-16 22:41:45
    VBA宏代码制作的表格抽签器,日常用于点外卖。可改VBA代码改变抽取区域
  • Excel VBA 高级编程-出入库系统

    千次阅读 2020-09-09 23:12:41
    1.本表由VBA编码制作而成请使用office版,用户使用本模板时需启动宏,工作表中带有公式的不用去填写也不要去更改,本工作簿需要用户将基础信息录入进来,方便入库单和出库单的信息录入。 2.入库单和出库单供应商和...
  • 用EXCEL VBA开发的仓库管理系统

    热门讨论 2011-11-18 03:03:04
    非常简单的EXCEL版仓库管理系统。符合大多数公司的实际管理需要。可以好好研究一下。
  • EXCEL结合VBA可以实现界面清晰简单的信息管理系统,它不一定要是软件,也不需要考虑安装,只要你有Office办公软件,它就能帮你实现超级实用的信息管理。 界面如下: 表格1是功能界面 表格二是数据库,内容可以...
  • EXCEL仓库管理系统 VBA

    2015-01-24 16:19:37
    EXCEL仓库管理系统 VBA
  • 源代码可以查询,有基础的朋友可以加内容,让这个系统丰富起来
  • 基于VBA的Excel抽奖软件

    千次阅读 2018-12-15 21:52:38
    一个抽奖软件,效果图如下。 点击随机数或者按钮3会进行抽奖。 Solution 1、Excel打开开发者工具 2、插入按钮,选择指定宏 3、编写VBA程序 4、另存为启用宏的xlsm Codes Sub ASD_Click() Dim a As Integer ...
  • 目录江雪大爷钓鱼:从简到繁,vba写库房管理软件(一)之开篇废话多江雪大爷钓鱼:从简到繁,vba写库房管理软件(二)之需求分析及初学者避坑指南江雪大爷钓鱼:从简到繁,vba写库房管理软件(三)之入库界面编写...
  • 利用Word VBA制作选择题

    千次阅读 2011-10-31 10:52:41
    Word中的VBA功能可以使Word文档具有交互功能,在学校教学中,教师就可以利用Word VBA功能在Word文档中制作具有交互功能的选择题。以使用Word2003制作双项选择题Word文档为例,操作步骤如下所述: 第1步,新建一个...

空空如也

空空如也

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

vba制作插件