大黑山 - 博客园

2021年1月20日

摘要：主程序： Sub mymain() Dim MainArr, t Application.ScreenUpdating = False t = timer With ThisWorkbook.Worksheets("排序") MainArr = .Range("a2: a" & Cells(Rows 阅读全文

posted @ 2021-01-20 21:52 大黑山阅读(1667) 评论(1) 推荐(0) 编辑

单元格内字符属性

摘要：实现效果如下：代码如下: Sub MyCharacters() Dim arr, s$, i&, L&, n& s = InputBox("请输入改变的字符", "提示") '需要改变格式的字符串 n = Len(s) '变量s的长度 If n = 0 Then: Exit Sub Applica 阅读全文

posted @ 2021-01-20 00:25 大黑山阅读(221) 评论(0) 推荐(0) 编辑

计时器

摘要： VBA采用Application.OnTime实现计时器，代码如下： Public RunWhen As Double Public Const cRunIntervalSeconds = 120 ' two minutes Public Const cRunWhat = "TheSub" ' th 阅读全文

posted @ 2021-01-20 00:18 大黑山阅读(130) 评论(0) 推荐(0) 编辑

不重复随机数

摘要： 1、不重复随机数1 生产[lowerbound,upperbound]的随机数，核心代码：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)，示例代码如下： Sub RndNumNoRepeat1() Dim dic Dim i& Set di 阅读全文

posted @ 2021-01-20 00:13 大黑山阅读(372) 评论(0) 推荐(0) 编辑

2021年1月17日

VBA中的Shll、API

摘要：一、Shell 1、调用程序打开文件 Sub test1() Shell "C:\WINDOWS\notepad.exe" '调用记事本 'Shell "C:\WINDOWS\notepad.exe C:\1.txt" '用记事本打开C:\下的1.txt End Sub 2、打开网页 Sub tes 阅读全文

posted @ 2021-01-17 14:10 大黑山阅读(718) 评论(0) 推荐(0) 编辑

CommandBar & Ribbon

摘要：在EXCEL2007以前，Excel 的按钮都是CommandBar，但从2007开始微软开始采用 Ribbon (功能区)，但CommandBar没有全部取消，还有一部分继续存在。列示菜单工具栏 Sub 列示菜单工具栏() Dim x As Integer For x = 1 To Applic 阅读全文

posted @ 2021-01-17 00:41 大黑山阅读(410) 评论(1) 推荐(0) 编辑

Excel相关界面

摘要： 1、修改标题：Application.Caption = "大黑山标题" 2、修改状态栏：Application.StatusBar = " 大黑山状态栏" 3、隐藏（显示）状态栏：Application.DisplayStatusBar = False 4、隐藏（显示）编辑栏：Applicati 阅读全文

posted @ 2021-01-17 00:35 大黑山阅读(195) 评论(0) 推荐(0) 编辑

2020年12月20日

延时函数

摘要： '延时函数Sub Delay(t As Single) Dim timeBegin As Single Dim SleepTime As Single timeBegin = Timer Do DoEvents SleepTime = Timer - timeBegin If SleepTime < 阅读全文

posted @ 2020-12-20 23:42 大黑山阅读(362) 评论(0) 推荐(0) 编辑

2020年9月13日

VBA窗体之ListView分页显示

摘要：实现功能如下： 1、指定每页显示记录：CmbRecNum_Change 代码如下： Option Explicit Dim cnn As ADODB.Connection '声名数据库连接对象变量 Dim rst As ADODB.Recordset '声名记录集对象变量 Dim rstDS As 阅读全文

posted @ 2020-09-13 22:39 大黑山阅读(1632) 评论(0) 推荐(0) 编辑

VBA窗体之ListView

摘要：实现窗体功能如下： 1、点击添加表头：BtnAddTitle_Click 2、点击添加记录：BtnAddRecord_Click 代码如下： Option Explicit Private Sub BtnAddTitle_Click() With ListView1 .ColumnHeaders.C 阅读全文

posted @ 2020-09-13 22:27 大黑山阅读(2163) 评论(0) 推荐(1) 编辑

公告