VAB代码01

VAB代码01PublicSub技巧1_001()DimmyVersionAsStringSelectCaseApplication.VersionCase8.0myVersion=97Case9.0myVersion=2021Case10.0myVersion=2021Case11.0myVersion=2021CaseElsemyVersion=版本未知EndSelectMsgBoxExcel版本是:&myVersionEndSubPublicSub技巧1_002()MsgBoxExcel的安装路径是:&Application.PathEndSubPublicSub技巧1_003()MsgBox当前用户名是:&技巧1_004()MsgBox当前的注册组织名是:&技巧1_005()MsgBox当前的当前操作系统的名称和版本号是:&Application.OperatingSystemEndSubPublicSub技巧1_006()MsgBox启动Excel的路径是:&Application.StartupPathEndSubPublicSub技巧1_007()MsgBox打开Excel文件时使用的默认路径是:&Application.DefaultFilePathEndSubPublicSub技巧1_008()MsgBox模板保存的默认路径是:&Application.TemplatesPathEndSubPublicSub技巧1_009()MsgBox库文件夹的路径是:&Application.LibraryPathEndSubPublicSub技巧1_010()MsgBox路径分隔符是:&Application.PathSeparatorEndSubPublicSub技巧1_011()MsgBoxExcel主窗口标题栏的名称是:&Application.CaptionEndSubPublicSub技巧1_012()DimmyStateAsStringmyState=Application.WindowStateIfmyState=xlMaximizedThenMsgBoxExcel窗口最大化,vbInformationElseIfmyState=xlMinimizedThenMsgBoxExcel窗口最小化,vbInformationElseIfmyState=xlNormalThenMsgBoxExcel窗口一般显示,vbInformationEndIfEndSubPublicSub技巧1_013()DimmyHeightAsDouble,myWidthAsDoublemyHeight=Application.HeightmyWidth=Application.WidthMsgBoxExcel主应用程序窗口的高度和宽度分别为：_&vbCrLf&高度：&myHeight_&vbCrLf&宽度：&myWidth,vbInformationEndSubPublicSub技巧1_014()DimmyLeftAsDouble,myTopAsDoublemyLeft=Application.LeftmyTop=Application.TopMsgBoxExcel主窗口的左边界位置和顶端距离分别为：_&vbCrLf&左边界位置：&myLeft_&vbCrLf&顶端距离：&myTopEndSubPublicSub技巧1_015()DimmyMaxHeightAsDouble,myMaxWidthAsDoublemyMaxHeight==本窗口在Excel主窗口中所能占有的最大高度和宽度分别为：_&vbCrLf&最大高度：&myMaxHeight_&vbCrLf&最大宽度：&myMaxWidthEndSubPublicSub技巧1_016()MsgBox当前打印机名称为：&Application.ActivePrinterEndSubPublicSub技巧1_017()MsgBox当前剩余内存为：&Application.MemoryFreeEndSubPublicSub技巧1_018()MsgBox当前MicrosoftExcel的总内存为：&Application.MemoryTotalEndSubPublicSub技巧1_019()MsgBox被Excel使用的内存为：&Application.MemoryUsedEndSubPublicSub技巧1_020()DimmyWStateAsLong,myWidthAsDouble,myHeightAsDoubleWithApplicationmyWState=.WindowState'获取当前的窗口状态.WindowState=xlNormal'将窗口设置为一般显示myWidth=.Width'获取当前窗口的宽度myHeight=.Height'获取当前窗口的高度.Width=500'设定窗口的宽度.Height=300'设定窗口的高度IfMsgBox(Excel窗口已经改变!&vbCrLf&要恢复为原来的状态吗?,_vbQuestion+vbYesNo)=vbNoThenExitSub.Width=myWidth'恢复窗口的宽度.Height=myHeight'恢复窗口的高度.WindowState=myWState'恢复窗口的显示状态EndWithEndSubPublicSub技巧1_021()DimmyWStateAsLong,myTopAsDouble,myLeftAsDoubleWithApplicationmyWState=.WindowState'获取当前的窗口状态.WindowState=xlNormal'将窗口设置为一般显示myTop=.Top'获取当前窗口的顶部位置myLeft=.Left'获取当前窗口的左侧位置.Top=50'设定窗口的顶部位置.Left=100'设定窗口的左侧位置IfMsgBox(Excel窗口的显示位置已经改变!&vbCrLf_&要恢复为原来的状态吗?,vbQuestion+vbYesNo)=vbYesThen.Top=myTop'恢复窗口的顶部位置.Left=myLeft'恢复窗口的左侧位置.WindowState=myWState'恢复窗口的显示状态EndIfEndWithEndSubPublicSub技巧1_022()DimmyStateAsLong,myTopAsDouble,myLeftAsDoubleDimmyWidthAsDouble,myHeightAsDouble,myMaxLeftAsDoubleWithApplication'获取必要的参数myState=.WindowState'获取当前的窗口状态myWidth=.Width'获取当前窗口的宽度myHeight=.Height'获取当前窗口的高度myLeft=.Left'获取当前窗口的左侧位置.WindowState=xlMaximized'将窗口最大化myMaxLeft=.Width'获取最大化后的窗口宽度'将Excel窗口移出屏幕之外.WindowState=xlNormal.Left=myMaxLeft+100IfMsgBox(已经将Excel窗口移出屏幕之外!&vbCrLf_&要恢复为原来的状态吗?,vbInformation+vbYesNo)=vbNoThenExitSub'恢复窗口的原来状态If.WindowState.Left=myLeft.Width=myWidth.WindowState=myStateEndIfEndWithEndSubPublicSub技巧1_023()Application.Visible=FalseMsgBoxExcel已经被隐藏!下面将重新显示Excel!Application.Visible=TrueEndSubPublicSub技巧1_024()Application.Caption=标题修改试验MsgBoxExcel标题已经被改为:&Application.Caption_&!下面将恢复默认的标题文字!Application.Caption=vbNullStringEndSubPublicSub技巧1_025()Application.Caption=vbNullCharMsgBoxExcel标题已经被删除!下面将恢复默认的标题文字!_&请仔细观察Excel标题文字!Application.Caption=vbNullStringEndSubPublicSub技巧1_026()Application.DisplayFullScreen=TrueMsgBoxExcel已经全屏显示!下面将恢复默认的显示状态!Application.DisplayFullScreen=FalseEndSubPublicSub技巧1_027()DimcelAsRange,myrangeAsRange,myAddressAsStringCells.ClearSetmyrange=Sheet1.Range(A1:M500)ForEachcelInmyrangemyAddress=cel.Address(RowAbsolute:=False,ColumnAbsolute:=False)Application.StatusBar=正在计算单元格&myAddress&的数据...cel.Value=cel.Value+500NextApplication.StatusBar=FalseEndSubPublicSub技巧1_028()'隐藏状态栏Application.DisplayStatusBar=FalseIfMsgBox(状态栏被隐藏!&vbCrLf&是否重新显示状态栏?,_vbQuestion+vbYesNo)=vbNoThenExitSub'显示状态栏Application.DisplayStatusBar=TrueEndSubPublicSub技巧1_029()'隐藏编辑栏Application.DisplayFormulaBar=FalseIfMsgBox(编辑栏被隐藏!&vbCrLf&是否重新显示编辑栏?,_vbQuestion+vbYesNo)=vbNoThenExitSub'显示编辑栏Application.DisplayFormulaBar=TrueEndSubPublicSub技巧1_030()'隐藏常用工具栏(Standard).Visible=FalseIfMsgBox(常用工具栏被隐藏!&vbCrLf&是否重新显示常用工具栏?,_vbQuestion+vbYesNo)=vbNoThenExitSub'显示常用工具栏(Standard).Visible=TrueEndSubPublicSub技巧1_031()'隐藏格式工具栏