摘要：
在Excle中，需要填充单元格，直接下拉，然后即可填充，但是使用VBA代码又该如何实现这个呢？代码区域Public Sub 快速填充() Dim myRange As range Cells.Clear '清除所有表格数据 Set myRange = range("A1:A12") With myRange.Cells(1) .Value = "1月" '设定... 阅读全文
摘要：
单元格内设置了有效性，通过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 & "... 阅读全文