2 amamiyayouko

尚未进行身份认证

我要认证

暂无相关简介

等级
TA的排名 17w+

VBA之字典和数组,控件综合使用

1.VBA的字典定义和python一样都是键值对,键唯一在第一次创建字典时,要加入字典的.dll文件2.把sheet2里的AB列数据取出来作为数组的值,把其中的B列 类别加入字典里最后把字典的键放入listbox的list里代码如下:Sub test()Dim arr()Dim dic As New Dictionaryarr = Range(“a2:b13”)For i ...

2020-04-06 14:19:05

VBA之图形对象和like语句的使用

1.图形对象属性2.图形对象方法3.使用like语句

2020-04-04 21:19:21

VBA之连接各种数据库

1.连接各种数据库接口Dim conn As New ADODB.Connectionconn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel 12.0;HDR=YES”""conn.CloseACCESS文件conn.Open “Pr...

2020-04-04 15:56:46

VBA之使用ADO操作外部数据

1.添加ADO接口工具→引用→找到Microsoft ActiveX Data Objects→确定2.连接ADODim conn As New ADODB.Connectionconn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel...

2020-04-04 15:54:38

VBA之几个交互式对话框

1.Msgbox2.Inputbox3.GetOpenFilename4.Application.Dialogs5.深入理解

2020-04-04 00:49:51

VBA之打开所有的文件,并合并到一个工作簿里

1.运用application.GetOpenFileName函数来帮助我们打开文件通用代码如下:Sub test()Dim arr()Dim wb As Workbookarr = Application.GetOpenFilename(“Excel文件,.xls”, 2, , , True)If arr(1) <> “False” ThenFor i = LBound...

2020-04-04 00:46:32

VBA之窗体与控件

1.窗体Userform2.窗体常用事件3.文本框控件4.复选框控件5.复合框控件6.列表框控件

2020-04-03 01:41:34

VBA之avtive,label,单元按钮,微调控件属性

1.active控件与表单控件的区别2.label标签控件的常用属性3.单元按钮控件4.微调按钮控件

2020-04-01 21:00:56

VBA之数组的基本应用和for循环比较

数组的应用:代码1:Sub test()Dim i, j, k, l As Integert = TimerFor i = 2 To 80For j = 2 To 80For k = 2 To 80For l = 2 To 80 If Range("a" & i) + Range("a" & j) + Range("a" & k) ...

2020-04-01 01:08:22

VBA之按照筛选条件拆分多表通用方法

在一个工作簿中,想对某一列做筛选,并且拆分到后面的工作表里,通用代码如下:Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer '这个说的是一共多少行Dim l As IntegerDim sht0 As WorksheetSet sht0 = ActiveSheetl = I...

2020-03-30 21:40:30

VBA之find找数据的使用

在一堆数据里查找某个数据,用find函数,要注意查找不到的情况代码如下Sub test()Dim rng As RangeSet rng = Range(“d:d”).Find(Range(“l3”))'把查找的内容放到rng容器里If Not rng Is Nothing Then'判断容器是否为空 Range("m3") = rng.Offset(0, 3)End If...

2020-03-30 21:30:34

VBA之dir函数综合使用

1.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配返回的是该文件的文件名Sub test()Dim i As IntegerFor i = 1 To 5If Dir(“d:\data” & Range(“a” & i) & ".xls*) = “” ThenRange(“b” & i) = “无此文件”ElseRange(“b” ...

2020-03-30 21:13:41

VBA之用set来新建表

如何用set来新建表Sub test()Dim sht As WorksheetFor i = 2 To 5Set sht = Sheets.Addsht.Name = Sheet1.Range(“a” & i)NextEnd Sub

2020-03-30 19:21:43

VBA之让新开的excel文件能一键使用宏的设置

如何让新开的excel文件能一键使用宏的设置呢?1.首先要把宏代码,保存到excel库里2.新建一个excel文件出来,把宏代码复制到模块里例如:拆分文件代码Sub test()Dim sht As WorksheetFor Each sht In Sheetssht.CopyActiveWorkbook.SaveAs Filename:=“d:\data” & sht.N...

2020-03-29 19:40:28

VBA之使用自定义函数

如何在vba中使用自定义的函数呢?首先在模块里定义好函数,然后注意要往里面传参然后在excel单元格里调用该函数1.需求1,判断性别代码如下Function zmj(x)zmj = (x / 6.03) - x * 0.03End FunctionFunction xb(x As String)If x = "男" Then xb = "先生"ElseIf x =...

2020-03-29 19:33:20

VBA之split函数,instr函数等其他函数的使用

instr:判断字符再文本的第几位split:分割 里面有两个参数,第一个参数是要分割的单元格字符串,第二个是想要分割完的数组的第几位1.需求想把A列的字符串,按-分割,然后添上第几年第几周,放到B列里代码如下:Sub tiqu()On Error Resume Next ‘这个是防止代码出错程序崩溃’For i = 2 To Sheet2.Range(“a65536”).E...

2020-03-27 21:28:22

VBA之使用公式,函数

需求1:统计所有的地区的考生数,男生数量,女生数量汇总到sheet1里Sub tongji()Dim j, k, l As IntegerFor i = 2 To Sheets.Countk = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1j = j + Application.Works...

2020-03-27 20:43:13

VBA之打开工作簿输入密码才能显示内容

打开工作簿,弹出弹窗输入密码,如果密码错误则关闭工作簿首先在 thisworkbook里设置 当打开工作簿时 执行代码代码如下:Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim sht As Worksheet'隐藏所有表For Each sht In SheetsIf sht.Name <> “登录界面...

2020-03-26 23:28:32

VBA之重要数据的自动备份

工作中有时候想自动保存工作簿,按照时间戳的方式存到一个固定的路径,并且不会影响原来的工作簿Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ThisWorkbook.SaveCopyAs “d:\data” & Format(Now(), “yyyynmddhhmmss”) &am...

2020-03-26 23:21:09

VBA之动态的更改值来完成筛选

通过修改 l列的 车间名字,直接来把A1:F232的数据里的1车间筛选到L1:Q232里Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseRange(“l1:q10000”).ClearContentsRange(“a1:f232”).AutoFilter field:...

2020-03-26 22:51:49

查看更多

勋章 我的勋章
  • 持之以恒
    持之以恒
    授予每个自然月内发布4篇或4篇以上原创或翻译IT博文的用户。不积跬步无以至千里,不积小流无以成江海,程序人生的精彩需要坚持不懈地积累!
  • 勤写标兵Lv4
    勤写标兵Lv4
    授予每个自然周发布9篇以上(包括9篇)原创IT博文的用户。本勋章将于次周周三上午根据用户上周的博文发布情况由系统自动颁发。