- 博客(41)
- 收藏
- 关注
原创 自定义函数
return x+y;在JS宏里,声明一个函数可以定制多个参数,与此同时,你在调用该函数的时候不需要传入所有的参数,它就能正常执行,原因在于这些参数默认已设定好了。return "男";}else{return "女";return `${return "男";} else {return "女";return ` ${ id . slice(6 , 10) } 年 `;} } }slice610return "男";} else {return "女";
2023-11-13 13:05:49
265
原创 WPS常用表格对象应用
MsoFileDialogType 可为以下 MsoFileDialogType 常量之一。1.msoFileDialogFilePicker 允许用户选择文件。2.msoFileDialogFolderPicker 允许用户选择一个文件夹。3.msoFileDialogOpen 允许用户打开文件。4.msoFileDialogSaveAs 允许用户保存一个文件。1、2只能选择文件或文件夹,而3、4则可以通过Execute方法来实际打开或者保存文件。function 选择文件(){
2023-11-10 23:14:53
1068
原创 JS循环(for、while)和分支(if、switch)语句
使用 for of 循环可以轻松的遍历数组或者其它可遍历的对象,例如字符串、集合等。for/in语句可以读取数组中的下标(索引号),或者对象的属性。
2023-11-10 16:29:04
301
原创 WPS的JS宏基础(三)——运算符
运算符是在编写代码时,最常用的符号。从本节课开始,运算符主要分为:算术运算符、连接运算符、比较运算符、逻辑运算符、赋值运算符等。我们将讲解这些常见的运算符,本节课讲解的是算术运算符。
2023-11-10 14:31:30
729
原创 EXCEL-SQL学习笔记——转换函数
统一项目起止的日期格式CDATESELECT 序号,项目名称, CDATE(开始时间) AS 开始日期, CDATE(结束时间) AS 结束日期 FROM [项目进度一览表$]CDATE函数将文本型日期转换为日期值,返回结果如图所示取值说明CDATE(-1)日期不能为负数,返回错误"#####"CDATE(0)或CDATE(1)返回#1900-1...
2020-03-06 19:19:41
687
原创 EXCEL-SQL学习笔记——INT和FIX函数
select 名称,重量,int(重量/8) as 满载货车数量 from [货物清单$] select 名称,重量,fix(重量/8) as 满载货车数量 from [货物清单$] 当表达式为负数的时候。int(表达式)返回一个<=表达式的最大整数,FIX函数返回一个>=表达式的最小整数。表达式为正数的时候返回相同的结果...
2020-03-05 18:59:09
1177
原创 VBA自学应用(18)——制作进度条
一、使用ProgressBar控件制作Private Sub UserForm_Activate() Dim i As Integer With Me.ProgressBar1 .Min = 1 .Max = 10000 .Scrolling = 0 '设置进行条的显示是连续的还是隔断的 For i ...
2020-03-04 21:16:27
2669
原创 VBA自学应用(17)——TreeView控件
数据图如所示首先找到我们的TreeView控件插入然后键入如下代码Private Sub UserForm_Initialize() Dim i As Integer Dim j As Integer Dim arr arr = Sheet3.Range("b3").CurrentRegion With Me.TreeView1 ...
2020-03-02 18:33:01
4856
原创 VBA自学应用(16)——Listview控件基本操作
ListView控件基本操作一、找到ListView控件二、Listview控件显示数据一、找到ListView控件工具——附加控件——Microsoft ListView Control。二、Listview控件显示数据首先我们插入一个ListView控件,如图所示。数据如图所示然后再对应事件中插入如下代码Private Sub UserForm_Initializ...
2020-02-07 15:40:53
10154
原创 VBA自学应用(15)——Monthview控件查看日期对应事件
首先我们需要在VBE窗口工具栏下找到我们所需要的控件MonthView。然后画出如下窗体在Monthview控件对应事件中写入如下代码Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Dim i As Integer Dim arr() ListBox1.Clear arr = Ran...
2020-01-16 18:06:10
1629
原创 VBA自学应用(14)——使用DTP控件输入日期
首先我们找到开发工具栏下的ActiveX控件——其他控件,如图所示。然后找到我们需要的控件最后用代码控制DTP控件的位置和输入。Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Address = Range("a2").Address ...
2020-01-15 18:46:42
2070
原创 EXCEL-SQL学习笔记——将价格进位到角得到商品零售价(round和cint)
关于四舍六入五单双请参考EXCEL-SQL学习笔记——replace函数select 产品,单位成本,round(单位成本*1.1,1) as 零售价 from [产品成本$]select 产品,单位成本,cint(单位成本*1.1*10)/10 as 零售价 from [产品成本$]如果cint(expression),expression包含小数,则遵循四舍六入五单双,如cint...
2020-01-11 19:21:33
366
原创 VBA自学应用(13)——二级组合框
现在我们有两列数据如图所示需要通过窗体做成如下效果首先呢,我们画一个类似图中的两个复合框在UserForm_Initialize事件中键入如下代码Private Sub UserForm_Initialize() Dim i As Long, j As Long Dim col As New Collection Dim rng As Range ...
2020-01-11 18:40:14
2011
原创 EXCEL-SQL学习笔记——将英文歌曲名称转换为小写字母(Strconv和format)
一、STRCONV函数转换为小写的字符串select 歌曲名称,strconv(歌曲名称,2) as 小写 from [英文歌曲$]strconve函数返回一个按照指定方式转换的字符串strconv(string,conversion,[,LCID]),其中LCID用来指定国家语言关于strconv函数请移步>>>strconv函数关于LCID设置请移步>&...
2020-01-10 20:01:43
221
原创 EXCEL-SQL学习笔记——查询有换行符字段的记录
select 品名,规格,包装,[统一零售价_(元/瓶)] from [价格表$]直接查询有换行符字段的记录,SQL会将换行符自动替换为"_"符号
2020-01-10 19:37:39
405
原创 VBA自学应用(12)——允许列表框多项选择和多列
一、允许多项选择代码如下Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion With ListBox1 '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
2020-01-10 18:17:11
6469
原创 EXCEL-SQL学习笔记——比较两列数据是否相同(strcomp、cbool、iif、SGN)
一、str(stringcompare)函数语法:strcomp(string1,string2 [,compare])strcomp用于返回一个整型数值用以指示字符串比较的结果表中的0表示记录一致,非0(包括空白)表示不一致compare为字符串比较类型,如果compare为null,将发生错误;省略compare,执行文本比较compare参数设置值说明...
2020-01-09 19:32:44
4616
原创 VBA自学应用(11)——移动列表框元素
在自学应用10我们已经讲过了如何给列表框添加元素,今天我们就来看看如何移动列表框的元素并且数据源的位置也随之变动。首先我们用listbox的list属性添加元素,这里自学应用10已经提过,不再做赘述如图是我的窗体部分在上移按钮中键入如下代码Private Sub CommandButton1_Click() With ListBox1 j = .ListI...
2020-01-09 18:13:57
1958
原创 VBA自学应用(10)——给组合框或列表框添加元素
给组合框或列表框添加元素一、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表项五、列表框的其他属性一、RowSource属性添加元素Private Sub UserForm_Initialize() Dim i As Long i = Sheet5.Cells(Rows.Count,...
2020-01-07 19:14:29
6958
原创 VBA自学应用(9)——制作游走字幕
不知道大家还记不记得很多商铺前都挂了电子荧幕,用来显示游走字幕——“本店今推出特价商品咸鱼excel、麻辣ppt”,今天就让我们自己用excel来制作这样的游走字幕,方法如下按ALT+F11打开vbe窗口,选择插入→用户窗体在用户窗体上添加frame控件,通过属性窗口设置backcolor为你喜欢的颜色,borderstyle为0,caption=""-添加label控件,设置backs...
2020-01-06 19:28:52
1419
原创 VBA笔记——自动选择文本框内容
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '鼠标右键的时候全选 With TextBox1 If Button = 2 Then .SelStart = 0 ...
2020-01-05 11:04:30
2261
原创 VBA自学应用(8)——文本框中按Enter键输入数据
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With TextBox1 If Len(Trim(TextBox1.Text)) > 0 Then If KeyCode = vbKeyReturn Then...
2020-01-04 13:49:00
2887
原创 VBA笔记——文本框添加剪切、复制、粘贴、删除快捷键
模块代码Private ActiveTB As MSForms.TextBoxPublic Sub CreateShortCutMenu() Dim ShortCutMenu As CommandBar Dim ShortCutMenuItem As CommandBarButton Dim sCaption As Variant Dim iFaceId A...
2020-01-04 11:18:09
2492
原创 EXCEL-SQL学习笔记——replace函数
如图,现需要将襄樊市更改为襄阳市SQL如下select 经销商地址,replace(经销商地址,"襄樊市","襄阳市") as 变更后地址 from [襄樊部分企业$]一、replace函数的使用replace返回一个字符串,字符串中的指定字符串已经被特定字符串替换了一次或者多次,语法如下replace(expression,find,replace[,start][,count]...
2020-01-03 20:09:29
634
2
原创 VBA笔记——文本框控件的换行
Private Sub UserForm_Initialize() With Me.txtDemo .WordWrap = True .MultiLine = True .Text = "文本框是一个灵活的控件,受下列属性的影响:Text、" _ & "MultiLine、WordWrap和AutoSize。"...
2020-01-03 13:11:02
6848
原创 VBA自学应用(7)——文本框中限制输入标点符号和汉字
代码如下Private Sub TextBox1_Change() Dim i As Integer Dim strs As String Dim reg As Object, reg1 As Object Set reg = CreateObject("vbscript.regexp") With reg .Global = True ...
2020-01-02 19:37:06
1484
1
原创 VBA自学应用(6)——URLDownloadToFile下载图片
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ByVal szFileName As String, ByVal dwReserved As Long, _ByVal lpfn...
2020-01-01 18:21:35
2962
原创 VBA自学应用(5)——为工作簿建立目录
平时我们工作表太多了,想给他建立一个目录吗,该怎么做到呢?这里我以自己常用的为例。如图我有很多日期的工作表,现在我要把它做成下面的效果这里注意:我是以每个工作表第一列作为工作表目录的名称,所以在每个工作表第一列的的字段都会列入"目录"工作表代码如下:Sub 刷新() Application.ScreenUpdating = False Dim sht As Work...
2019-12-31 12:01:05
745
2
原创 VBA自学应用(4)——批量导出图片到指定文件夹
今日表格中有很多图片,老板要我把图片全部保存到一个文件夹下。这点小事岂能难倒我?于是我打开Excel表格,拉到了最后面我勒个擦,有一千多个。没事,我还有VBA秘籍!具体情况如图所示于是我默默打开了VBE编辑器,输入了如下代码:Private Sub CommandButton1_Click()'注意,如果存在重名的,那么就会把原来的给覆盖 With Application.F...
2019-12-30 16:16:41
3679
5
原创 VBA自学应用(3)——文件拆分
平时我们工作中会遇到要将一个工作表的数据拆分成若干个工作簿的要求。我辈中人当然是一个个“复制粘贴”啦,那么该如何将类似下图的数据按照要求拆分成工作簿呢?要求:1、数据只有2018年的数据,以下单时间为准;2、一个客户一个文件,以客户代码为准;3、要求保存为:客户代码-客户名称.xlsx。代码如下Sub 拆分表格() '客户代码 9 '客户名称 10 App...
2019-12-30 11:24:04
755
原创 VBA笔记——遍历文件夹(含子文件夹)方法
文章目录一、调用目标文件夹的方法1、Application.FileDialog方法2、视窗浏览器界面选择目标文件夹二、仅列出所有文件三、仅列出目标文件夹中所有子文件夹名四、遍历目标文件夹内所有文件、以及所有子文件夹中的所有文件一、调用目标文件夹的方法1、Application.FileDialog方法Sub ListFilesTest() With Application.File...
2019-12-30 11:03:22
10966
1
原创 EXCEL-SQL学习笔记——MSQ和OLEDB
如何获取外部数据方法一:OLE DB接口OLEDB中使用SQL语句方法二:Microsoft Query导入MSQ中使用SQL语句如何刷新导入的数据数据源移动后如何修改数据源的连接路径方法一:根据弹出提示修改方法二:修改连接字符串...
2019-12-29 00:42:32
837
1
原创 VBA笔记——collection方法
定义集合是将信息存储于一个一维数组中,以便于访问、增添、删除同类信息成员object.count属性,long类型,返回collection对象中元素的个数object.add(item,key,before,after)方法,无返回值部分描述object对象表达式item必须的,要添加到集合中的成员key可选的。唯一字符串表达式 ,代替位置索引来访...
2019-12-28 19:41:46
7816
3
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人