精华内容
下载资源
问答
  • EXCEL_VBA制作员工考勤系统源码 适用环境:EXCEL2003/2007/2010 大家下载下来,可以设置断点调适运行代码,学习VBA的编程。 也可以直接使用,这个是员工考勤系统
  • 此工具是VBA开发,有录入绑定数据功能,可根据不同需求变更设置,扫描绑定数据自动录入Excel,可用于不同环境,工厂记录关联数据等
  • VBA实现员工打卡信息录入Excel模板程序
  • 1、通过本次实习,将理论高度上升到实践高度,更好的实现将本期所学的Excel VAB程序开发理论和实践的结合,更进一步加深对理论知识的理解,了解和掌握实际程序开发中的开发流程、编程原理和规范要求,为今后学习和...
  • shadecolour 开发 小程序 excel vba 查询 清单打印 添加 listview 控件
  • excel中使用vba实现查询、统计系统

    千次阅读 2020-07-15 11:16:20
    excel里面有很多强大的公式,可以快速实现我们想要的结果。如果在vba中可以使用公式,可以大大减少编码,提升工作效率!这么强悍的功能让我们一起学习一下吧! 我们直接通过案例来学习公式在vba中的使用 题目: ...

    excel里面有很多强大的公式,可以快速实现我们想要的结果。如果在vba中可以使用公式,可以大大减少编码,提升工作效率!这么强悍的功能让我们一起学习一下吧!

    我们直接通过案例来学习公式在vba中的使用

     

    题目:

    实现多个工作表数据的查询,统计功能,如下图:

    分析:

    • 在一个表里面的查询统计只需要用到count,vlookup函数即可完成,我们这里有多张表需要循环查找,所以要通过vba实现

    • 上面查询和统计是两个按钮,所以要分成两个宏来写

    • vba调用工作表函数的方法:Application.WorksheetFunction.公式

     

    代码:

    '统计部分代码
    Sub tongji()
    Dim i, k, l, m As Integer
    
    For i = 2 To Sheets.Count
        '累加每张表A列非空单元格的个数
        k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1
        '累加每张表F列为“男”的单元格的个数
        l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")
        '累加每张表F列为“女”的单元格的个数
        m = m + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "女")
    Next
    
    '将所有表A列单元格的总计赋值给统计工作表的“d26”单元格
    Sheet1.Range("d26") = k
    '将所有表F列为“男”单元格的总计赋值给统计工作表的“d27”单元格
    Sheet1.Range("d27") = l
    '将所有表F列为“女”单元格的总计赋值给统计工作表的“d28”单元格
    Sheet1.Range("d28") = m
    End Sub


     

    '查询部分代码
    Sub chaxun()
    '如果出现错误继续向下执行,防止程序崩溃
    On Error Resume Next
    '执行查询前清空数据,防止没找到查询数据,上条数据信息仍在
    Sheet1.Range("d14").ClearContents
    Sheet1.Range("d16").ClearContents
    Sheet1.Range("d18").ClearContents
    Sheet1.Range("d20").ClearContents
    Sheet1.Range("d22").ClearContents
    
    For i = 2 To Sheets.Count
        '在A到H列中查找该准考证号学生的姓名
        Sheet1.Range("d14") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 5, 0)
         '在A到H列中查找该准考证号学生的性别
        Sheet1.Range("d16") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 6, 0)
         '在A到H列中查找该准考证号学生的专业
        Sheet1.Range("d18") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 3, 0)
         '在A到H列中查找该准考证号学生的总分(原始分)
        Sheet1.Range("d20") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 8, 0)
         '查找到数据的表名也就是学生所在地区
        Sheet1.Range("d22") = Sheets(i).Name
        '查到了,就退出循环
        If Sheet1.Range("d14") <> "" Then
            Exit For
        End If
    Next
    End Sub

    上面我们用到的是工作表函数,vba也有自己的函数,下面一起来看两个简单的小例子!

     

    例1:

    利用vba的split函数实现下面功能(当然工作表mid函数也能完成)

    用法:

    • Split("pw-023-2015-37-001", "-")就是将字符串"pw-023-2015-37-001"以 "-"为分隔符分割。结果会得到一个数组,下标从零开始。

    • Split("pw-023-2015-37-001", "-")(0)就是取第1个数据pw

    • Split("pw-023-2015-37-001", "-")(1)就是取第2个数据023

    • Split("pw-023-2015-37-001", "-")(2)就是取第3个数据2015

    代码:

    Sub tiqu()On Error Resume NextFor i = 2 To Sheet2.Range("a65536").End(xlUp).Row    Sheet2.Range("b" & i) = Split(Sheet2.Range("a" & i), "-")(2) & "年 第" & Split(Sheet2.Range("a" & i), "-")(3) & "周"NextEnd Sub
    
    例2:查找邮箱zhangsan@163.com  中@在第几位 
    用法:InStr("zhangsan@163.com", "@")
    

    总结:

    这个案例我们用到了三个工作表函数公式CountA,CountIf,VLookup和两个vba函数Split,instr.不熟练的小伙伴赶快去学习一下,后面我会整理一份excel和vba的函数供小伙伴参考。

     

    每天学一点,薪资翻一番。看了这篇文章觉得对你有用的话,关注我的公众号“学会数据分析”并且用你的小手帮忙分享一下,我会经常总结一些案例和大家一些分享。

    课件下载地址:

    链接: 

    https://pan.baidu.com/s/1iuGPnMeRoENDE5zDBW6V3Q

    提取码: bdss

     

    展开全文
  • 本文GitHubhttps://github.com/hugogoos/Excel已收录,包含Excel系统学习指南系列文章,以及各种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 VBA 高级编程-出入库系统

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

    大家好,我是陈小虾,是一名自动化方向的IT民工。写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长。但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号:万能的Excel

    1.本表由VBA编码制作而成请使用office版,用户使用本模板时需启动宏,工作表中带有公式的不用去填写也不要去更改,本工作簿需要用户将基础信息录入进来,方便入库单和出库单的信息录入。

    2.入库单和出库单供应商和客户的信息都可以双击单元格弹出窗体,选中窗体信息双击即可完成录入,如果入库单和出库单的行数不够或者过多可以点击增加和减少行数按钮,单据的日期自动显示当天日期,每点击一次保存按钮单号会自动+1,打印区域会自动设置直接点击按钮即可打印,录入之后点击保存按钮入库单和出库单的信息会自动保存到入库和出库报表中,欠款金额列是有公式自动计算的无需手动填写删改。

    3.库存表中只需用户录入产品编码,其他的信息自动录入,所有产品的库存量实时自动更新。

    4.库存查询工作表中需要用户进行选择入库、出库或者库存,选完后系统会根据用户填写的日期和商品编码进行查询(可以单独按时间或产品编码查询也可以综合查询)。

    关注公众号:万能的Excel     并回复【出入库表单】获取源文件!

    展开全文
  • 使用窗体制作登录界面,实现当打开Excel时,隐藏工作簿,当登录完成后显示工作簿。 码 登录机制是将用户输入的用户名和密码与正确的用户名和密码进行比较,若相等,则表示登录成功,反之登录失败。本例的实现需要...

    使用窗体制作登录界面,实现当打开Excel时,隐藏工作簿,当登录完成后显示工作簿。

           登录机制是将用户输入的用户名和密码与正确的用户名和密码进行比较,若相等,则表示登录成功,反之登录失败。本例的实现需要创建一个登录窗口允许用户输入用户名和密码,当单击“登录”按钮后立即进行校验。在工作簿的Open事件中添加显示窗体的代码,并将Excel程序对象的Visible属性设置为False,以隐藏Excel程序,当窗体关闭时,再将该属性设置为True。

    步骤1  将Sheet2作为存储用户名和密码的工作表,如图所示。

    用记名密码
    guest123

    步骤2  按组合键【Alt+F11】打开VBE。
    步骤  3选择菜单“插入”→“用户窗体”,并在窗体中插入两个Label控件(分别设置Caption属性为“用户名”和“密码”)、两个TextBox控件(分别修改名称为“txtUserName”和“tPassword”,分别作为用户名和密码的输入控件)和一个CommandButton控件(将其Caption属性更改为“登录”,作为登录按钮),如图所示。

     步骤4  在“工程资源管理器”中用鼠标右键单击之前插入的窗体,选择“查看代码”,并输入以下代码。

    Option Explicit
    
    Dim blnLogin As Boolean
    
    Private Sub CommandButton1_Click()
        Dim username As String
        Dim password As String
        Dim rngName As Range
        
        username = Me.txtUserName.Text
        password = Me.txtPassword.Text
        
        If Trim(username) = "" Then Exit Sub
        
        Set rngName = Sheet2.Columns(1).Find(username, lookat:=xlWhole)
        
        If Not rngName Is Nothing Then
            If password = rngName.Offset(0, 1).Value Then
                blnLogin = True
                Unload Me
                Exit Sub
            End If
        End If
        
        MsgBox "用户名或密码错误!"
    End Sub
    
    Private Sub UserForm_Initialize()
        blnLogin = False
    End Sub
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        '显示Excel程序
        Application.Visible = True
        '若登录不成功,则关闭工作薄
        If Not blnLogin Then
            ThisWorkbook.Close False
        End If
    End Sub
    

     步骤5    在“工程资源管理器”中用鼠标右键单击ThisWorkbook,选择“查看代码”,并输入以下代码:

    Private Sub Workbook_Open()
        '隐藏Excel程序
        Application.Visible = False
        '显示窗体
        UserForm1.Show
    End Sub
    

    步骤6  保存并关闭工作簿后再次打开工作簿。整个Excel程序将隐藏,并显示登录窗口,当登录成功时,则窗体关闭并且显示Excel工作簿;当直接关闭窗体时,则工作簿关闭;当用户名或者密码错误时,程序将给出提示。

    使用窗体作为操作界面

            由于窗体的功能十分强大,使用窗体作为操作界面对用户来说可以提供很多便利。开发者甚至可以将窗体作为整个Excel程序的界面而自始至终不显示工作表。使用窗体作为登录界面的流程见图

    隐藏Excel工作簿

    一般地,隐藏工作簿可以有以下两种方法。

    •  隐藏Excel程序。将Application对象的Visible属性设置为False,则可以实现隐藏整个Excel程序的效果,但此时窗体仍将显示。本例采用了此方法。
    • 将工作簿的属性设置为加载宏。设置工作簿的IsAddin为True,此时工作簿将隐藏,但不影响其他工作簿的显示,而且该工作簿可以在VBE窗口中找到。

    无论用何种方法隐藏工作簿,都应在窗体关闭后将工作簿再次显示。

     

    展开全文
  • 效果演示动图: 组成结构解析: Sheet1中的数据源(数据... VBA程序 所需技能分析: Office基础操作 Excel公式与函数(多重函数嵌套+数组公式) 数据透视表(基础技能+切片器) 插入控件(此处只手动更改了控.
  • EXCEL VBA通过access提取数据进行多字段查询
  • 微信公众号:万能的Excel 一谈起编程,很多人就头痛!身边很多配朋友都找我抱怨:我是做财务的/做行政的/做工程的,我压根就没有学过编程!!! 那么今天小编就手把手教你,让Excel自动编程!争取今天又可以不用...
  • ExcelVBA编写的家谱表,虽不如WinApp桌面程序漂亮,但是符合录谱人员的需求,实用为主。本次上传修正了一些以前的错误。
  • 微信公众号:万能的Excel 功能说明: 1、根据每天的出库、入库记录,自动筛选出产品ID号 2、实时统计每个产品的库存状态 3、自动统计每个月产品总出库、入库数量 关注公众号:万能的Excel 并回复【进销表】...
  • VBA自学应用(2)——制作简单的数据录入窗口

    万次阅读 多人点赞 2019-12-29 19:24:50
    现如今有两张表,一张产品表,一张录入表,如图所示。 如今我们要做出如下效果:
  • 基于VBA的数据录入界面开发

    千次阅读 2020-09-03 14:25:27
    基于VBA的数据录入界面开发: 一、用户需求: EXCEL表格中需要录入信息过多,人为查找耗时且易出错。 二、功能实现: 根据输入信息,在界面查找并显示相应数据。 在界面填写待填充信息,同步保存到EXCEL表格。...
  • Excel VBA 高级编程-库存管理系统

    千次阅读 2020-09-11 14:54:34
    微信公众号:万能的Excel 不管你是微商、个体户、还是财务人员。 客户来了,你得查商品价格 客户下单了,你得知道还有多少库存 货卖完了,你得找供应商进货 客户退货了,你得去翻聊天记录退款给人家 产品出...
  • 对于存在excel里的数据诸如商品信息、会员信息、交易信息...不如利用VBA装个逼,做一个信息查询系统出来。 文章目录话不多说,先看成果~1.梳理代码的结构2.哟西,开始写代码吧!2.1.设置工作簿打开事件和窗体控件...
  • 使用一个向导创建工作簿,创建向导的步骤分为三步:第1步,输入工作表的数量;第2步,指定路径;第3步,确认信息并执行创建。 码 在窗体中添加一个具有3个页面的多页(MultiPage)控件,在3个页面中分别添加与...
  • 今天给大家介绍如何用vba批量给excel工作簿设置添加打开密码。今天的内容主要分为以下三个部分:手动设置添加打开密码;在vba中用工作簿Workbook对象的SaveAs方法设置添加打开密码;在vba中用工作簿Workbook对象的...
  • 控件数组的概念实际上是VB中的一个概念,在Excel VBA中并不具备此功能。此处所描述的控件数组实际是将数组中各个控件对象组成一个数组。当需要赋值给工作表时,则可以使用该数组进行直接赋值。但该数组的作用域必须...
  • (2)月初可自动根据PO生成月度出货计划,为生产计划的制作提供根据。 (3)每次打出货单后系统将自动统一保存出货单,方便相关人员查找修改历史单据,并自动生成PO出货进程状况及生成出货记录数据库,有利于日后...
  • 制作这个VBA之前,我参考过“聚宝瓶”家谱制作。针对其缺点,彻底重写了VBA,改进如下: 1.生成世系图的过程改为由下至上,从而达到了简化逻辑的效果。 2.紧密位图。若无必要,家族成员间不插入空列。 3.尽可能使用...
  • 1.可以结合插入图片的宏,将所有图片的旧名输入Excel中,再在另一列中填上新图片名,然后使用该宏。 2.如果顺利运行,会在原来那个文件夹下面新建一个叫“New”的子文件夹,所有重命好名的图片会自动放入子文件夹...
  • 自己做的excel库存表,手工在[入库表]和[出库表]输入商品数据,[库存表]实时实现自动刷新。此excelvba写的,wps需装有vba插件,office自带vba,可打开。
  • ExcelVBA家谱20180515

    2018-05-15 14:51:52
    Excel + VBA 制作的家谱录入、校对表。录入页码后,可以根据页码链接谱书照片。 附有演示链接谱书照片链接的示例数据。 生卒年月可自动查询夏商周至当代所有年号,免去老谱中年号核的困惑。
  • vba+sql+Excel学生信息管理系统

    热门讨论 2008-06-03 17:24:34
    自己做的一个很简单的vba程序,功能不多,但基本的查找,删除,添加都有,实现了与sql相连,有简单的登陆功能,打开Eecel改:工具-宏-安全性-低,再改工具-选项-安全性-保存时从文件属性中删除个人信息的钩去掉,再...
  • 一、特色 本作品采用EXCEL 公式+VBA制作,既可根据你平时使用EXCEL的习惯和方式操作充分发挥EXCEL的功能,又能利用本作品提高效率。 ※※※※二、主要功能 1、在原始成绩表中自动按你要求的统计科目生成总分、平均分...
  • VBA实现Excel转DBC

    千次阅读 2019-05-08 15:25:34
    使用方法 公众号回复VBA获取。...参考《Template》格式要求,输入DBC的信息,点击“Excel=>DBC”转化。 在CANdb++中检查输出结果。 注意:本工具非常简易,未对输入做详细检查,因此不建议用在商业用途。 ...

空空如也

空空如也

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

vba制作excel录入系统