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

相关推荐

• 使用VBA一键瞬间合并多个EXCEL工作簿，省时省力又省心

  最近一位同学让我付费给他写一段VBA代码,功能就是合并同一文件夹下的所有工作簿的第一个工作表到同一个工作簿中去,我大概花了二十多分钟将功能基本写出来了,又花了点时间研究优化代码,最后大功告成. 合并工 ...

• VBA案例精选 获取当前工作表用户名

  代码运行结果: 代码截图: 代码文本: Public Sub 获取窗口高度和宽度() Dim myHeight As Double, myWidth As Double myHeight = Appl ...

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

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

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

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

• VBA案例精选 获取指定单元格区域的起始和终止行号

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim RowBegin As Integer, RowEnd As Integer Dim myRange As Range ...

• VBA案例精选 获取单元格区域中最后一个单元格地址

  代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim myRange1 As Range, myRange2 As Range Set myRange1 = ActiveSh ...

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

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

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

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

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

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

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

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