VBA学习收获总结一==》源代码

1.关闭屏幕更新==》ScreenUpdating
源代码：

Sub 关闭屏幕更新()
MsgBox "顺序切换工作表 Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后 关闭屏幕更新"
Worksheets(1).Select
MsgBox "目前屏幕中显示工作表 Sheet1"
Application.ScreenUpdating = True
Worksheets(2).Select
MsgBox "显示 Sheet2了吗？"
Worksheets(3).Select
MsgBox "显示 Sheet3了吗？"
Worksheets(2).Select
MsgBox "下面与前面执行的程序代码相同,但关闭屏幕更新功能"
Worksheets(1).Select
MsgBox "目前屏幕中显示工作表 Sheet1" & Chr(10) & "关屏屏幕更新功能"
Application.ScreenUpdating = False
Worksheets(2).Select
MsgBox "显示 Sheet2了吗？"
Worksheets(3).Select
MsgBox "显示 Sheet3了吗？"
Worksheets(2).Select
Application.ScreenUpdating = True
End Sub

2.状态栏显示
源代码：

Sub testStatusBar()
Application.DisplayStatusBar = True '开启状态栏显示
'赋值状态栏显示的文本
Application.StatusBar = "http://fanjy.blog.excelhome.net"
'Application.DisplayStatusBar = True '关闭状态栏显示
End Sub

3.设置光标形状
源代码：

Sub ViewCursors()
Application.Cursor = xlNorthwestArrow
MsgBox "您将使用箭头光标,切换到 Excel界面查看光标形状"
Application.Cursor = xlIBeam
MsgBox "您将使用工形光标,切换到 Excel界面查看光标形状"
Application.Cursor = xlWait
MsgBox "您将使用等待形光标,切换到 Excel 界面查看光标形状"
Application.Cursor = xlDefault
MsgBox "您已将光标恢复为缺省状态"
End Sub

4.得出系统信息。
源代码：

Sub GetSystemInfo()
MsgBox "Excel 版本信息为:" & Application.CalculationVersion
'MsgBox "Excel 当前允许使用的内存为:" & Application.MemoryFree 不知道为什么，这几个运行不出来
'MsgBox "Excel 当前已使用的内存为:" & Application.MemoryUsed
'MsgBox "Excel 可以使用的内存为:" & Application.MemoryTotal
MsgBox "本机操作系统的名称和版本为:" & Application.OperatingSystem
MsgBox "本产品所登记的组织名为:" & Application.OrganizationName
MsgBox "当前用户名为:" & Application.UserName
MsgBox "当前使用的 Excel 版本为:" & Application.Version
End Sub

5.剪切复制mode
源代码：

Sub exitCutCopyMode()
Application.CutCopyMode = False 'xlCut xlCopy 均可以退出剪切复制模式
End Sub

6.禁止弹出警告信息

Sub testAlertsDisplay()
Application.DisplayAlerts = False
End Sub

7.全屏幕显示

Sub testFullScreen()
MsgBox "运行后将 Excel 的显示模式设置为全屏幕"
Application.DisplayFullScreen = True
MsgBox "恢复为原来的状态"
Application.DisplayFullScreen = False
End Sub

8.Excel启动的文件夹路径

Sub ExcelStartfolder()
MsgBox "Excel 启动的文件夹路径为：" & Chr(10) & Application.StartupPath
End Sub

9.打开最近使用过的文件

Sub OpenRecentFiles()
MsgBox "显示最近使用过的第三个文件名,并打开该文件"
MsgBox "最近使用的第三个文件的名称为:" & Application.RecentFiles(3).Name
Application.RecentFiles(3).Open
End Sub

10.打开文件对话框

Sub FindFileOpen()
On Error Resume Next
MsgBox "请打开文件", vbOKOnly + vbInformation, "打开文件"
If Not Application.FindFile Then
MsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败"
End If
End Sub