随笔分类 - VBA
VBA编程
摘要：1.需求描述 在data目下有以下两个数据文件： 其数据内容如下： 现在需要将数据转化为txt文本类型，最终效果如下： 2.实现代码 Sub magic() Dim mypath$, okpath$, f$, num%, fn$, arr, i%, j%, wb As Workbook, myare
阅读全文
摘要：需求描述在点击单元格的时候，单元格所在行与列都变色显示实现方案打开Excle表格，按住ALT+F11双击上图中的ThisWorkbookPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Pattern = xlNone Rows(Targ...
阅读全文
摘要：单元格内设置了有效性，通过VBA怎么去复制呢？代码如下：Public Sub 复制单元格批注() Dim range1 As range Dim range2 As range '清除G列 Columns("G:G").Clear Set range1 = range("A1:A2") '指定要复制的单元格区域 Set range2 = range("D1") '指定要复制的...
阅读全文
摘要：只复制单元格的批注该怎么操作呢？代码如下：Public Sub 复制单元格批注() Dim range1 As range Dim range2 As range '清除G列 Columns("G:G").Clear Set range1 = range("A1:B4") '指定要复制的单元格区域 Set range2 = range("G1") '指定要复制的位置（左上角单...
阅读全文
摘要：正在使用的工作簿，嫌窗口太多，不利于操作，想把窗口隐藏，该怎么做呢？Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿！" MsgBox "下面即将还原正在使用的工作簿!" Application.Visible = TrueEnd Sub点击运行程序后，出现如下结果接着出现弹窗工作簿还原了...
阅读全文
摘要：打开Excle，点击“文件”------“最近使用的文件”，如下图：根据上图可以看到，最近使用的文件数目为11个，那么是怎么实现的呢？具体代码如下：Public Sub 最近使用的文件清单数() '最近使用的文件清单数 Application.RecentFiles.Maximum = 11 MsgBox "最近使用的文件清单数设置为：11"End Sub
阅读全文
摘要：打开的Excle如何使用VBA查看当前窗口的宽与高呢？代码如下：Sub 查看宽度与高度() Dim myWidth As Double Dim myHeigth As Double myWidth = Application.Width myHeigth = Application.Height MsgBox "当前窗口的宽与高 " _ & vbCrLf & "...
阅读全文
摘要：如何使用VBA获取当前工作表的用户名呢？请看如下代码：Sub 获取当前工作表的用户名() MsgBox "当前工作表的用户名为：" & Application.UserNameEnd Sub点击运行程序后，效果如下：点击下载附件
阅读全文
摘要：在VBA中，如何获取Excle的安装路径呢？请看以下代码：Sub 获取Excle的安装路径() MsgBox "Excle的安装路径为：" & Application.PathEnd Sub点击运行程序后，执行结果如下：点击下载附件
阅读全文
摘要：Excle的窗口分为：最大化，最小化，一般 使用VB代码如何查看窗口的状态呢？代码如下所示： 点击“运行程序”，出现如下： 点击下载附件 说明：
阅读全文
摘要：如何获取Excle库文件地址呢？具体代码如下：Public Sub 获取Excel库文件夹的路径() MsgBox "库文件夹的路径是: " & Application.LibraryPathEnd Sub点击"运行程序"，出现如下结果：附件下载
阅读全文
摘要：使用VBA如何获取模板保存的路径呢？具体代码如下： 点击“运行程序”，效果图如下： 附件下载
阅读全文
摘要：数据如上图所示，点击RUN后的运行结果如下： 得到该文件夹，文件夹内容如上图。 代码如下： Private Sub Command_OLIVER() Dim arr arr = Range("A1:C" & [a65536].End(3).Row) Dim i As Long, wName As S
阅读全文
摘要：使用Excle自带的工具栏图标填充 填充效果图如下： 代码如下： 注意事项：在本代码中出现的“myButton”指的是Excle中的按钮，修改按钮名称如下图： 附件下载
阅读全文
摘要：在Excle中有两种引用方式，例如：第一行第一列的单元格可以是：A1 也可以是R1C1 切换引用样式的代码如下： 执行效果如下： 附件下载
阅读全文
摘要：打开Excle的时候，有时候不需要显示Miscrosoft Excle，如下图标记，想把标记内的内容替换为：管理系统 操作代码： 操作结果如下： 点击上图修改后出现弹窗： 点击下载附件
阅读全文
摘要：方法一： 存在缺陷：选中所有单元格，批量生成公式时候，每次需要点击进入工作表点击单元格--进入编辑状态，然后公式才会生效 使用公式如下： 附件下载地址：点击下载 方法二： 使用宏编程进行复制，代码如下： 进入Excle，然后点击按钮即可出现结果。 附件下载地址：点击下载Excle（宏实例）
阅读全文
摘要：【Cells属性】 Cells属性用于返回一个Range对象，表示工作表中所有的单元格，包括已经使用的单元格和未使用的单元格。 【代码区域】 【执行结果】 【Columns属性】 Columns用于返回一个Range对象，表示当前工作簿中指定区域的列。 【代码区域】 【执行结果】 【Next属性】
阅读全文
摘要：【访问工作簿】 对已经打开的工作簿，可以通过使用索引号来访问工作簿，也可以通过名称来访问工作簿 【代码区域】 【打印结果】 现在打开的工作簿为： 【获取工作簿信息】 【代码区域】 【结果展示】 【新建工作簿】 【代码区域】 【结果展示】 【使用对话框打开工作簿】 【代码区域】 【结果展示】 【备份工
阅读全文
摘要：Workbook事件用于响应对Workbook对象所进行的操作。 【BeforeClose事件】 BforeClose事件用于响应窗口关闭的操作 在工程资源器中，双击“ThisWorkbook”对象，弹出"ThisWorkbook"窗口，并且选择Workbook,BeforeClose 并在窗口中写
阅读全文