VBA案例精选 修改Excel标题 基操勿6

相关推荐

• Excel VBA 8.27从中间提取部分文本 正则并不是唯一选择

  正则提取太复杂?部分场景可以用函数 点击上方"Excel和VBA",选择"置顶公众号" 致力于原创分享Excel的相关知识,源码,源文件打包提供 一起学习,一起 ...

• VBA案例精选 获取Excel窗口状态

  代码运行结果: 代码截图: 代码文本: Public Sub 获取窗口状态() Dim myState As String myState = Application.WindowState If m ...

• VBA案例精选 获取Excel模板保存路径

  代码运行结果: 代码截图: 代码文本: Public Sub 获取Excel模板保存路径() MsgBox "模板保存的默认路径是: " & Application.Tem ...

• VBA案例精选 显示Excel内置对话框

  代码运行结果: 代码截图: 代码文本: Public Sub 显示Excel内置对话框() UserForm1.Show End Sub VB常量 对话框 值 xlDialogActiveCellFo ...

• VBA案例精选 切换Excel引用模式

  代码运行结果: 代码截图: 代码文本: Public Sub 切换Excel引用模式() Application.ReferenceStyle = xlA1    'A1引用样式 MsgBox &qu ...

• VBA案例精选 黑科技|隐藏Excel表格

  代码运行结果: 代码截图: 代码文本: Public Sub 隐藏正在使用的Excel工作薄() Application.Visible = False MsgBox "Excel已经被隐藏 ...

• VBA案例精选 获取工作簿的所有信息

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim wb As Workbook Dim myProperties As DocumentProperty Columns( ...

• VBA案例精选 创建多个新窗口且并排显示

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim i As Integer Dim wd As Window Set wd = ActiveWindow '创建3个新窗口 ...

• VBA案例精选 获取指定单元格边框格式

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim myRange As Range Set myRange = Range("A1")    '指定任 ...

• VBA案例精选 获取指定单元格字体格式

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim myRange As Range Set myRange = Range("A1")    '指定任 ...