excel vba常用代码集

《excel vba常用代码集》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、EXCELVBA常用代码集1.显示活动工作簿名称MsgBox"当前活动工作簿是"&ActiveWorkbook.Name2.保存活动工作簿Activeworkbook.Save3.保存所有打开的工作簿关闭EXCELForEachWinApplication.WorkbooksW.SaveNextWApplication.Quit4.将网格线设置为蓝色ActiveWindow.GridlineColorIndex=55.将工作表sheet1隐藏Sheet1.Visible=xlSheetVeryHidden6.将工作表Shtte1显示Sheet1.Visible=xlS

2、heetVisible7.单击某单元格,该单元格所在的行以蓝色背景填充,字体颜色为白色PrivateSubWorksheet_SelectionChange(ByValTargetAsExcel.Range)IfTarget.Row>=2Then’第二行以下的区域OnErrorResumeNext[ChangColor_With1].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With1"With[ChangColor_With1].FormatConditions.Delete.AddxlExpr

3、ession,,"TRUE".Item(1).Interior.ColorIndex=5.Item(1).Font.ColorIndex=2EndWithEndIfEndSub8.使窗体在启动的时候自动最大化PrivateSubUserForm_Initialize()Application.WindowState=xlMaximizedWithApplicationMe.Top=.TopMe.Left=.LeftMe.Height=.HeightMe.Width=.WidthEndWithEndSub9.不保存工作簿退出EXCELApplication.Displa

4、yAlerts=FalseApplication.Quitbeconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchoffic

5、esshallbebindingonbothends,eachcore(第5页)10.使窗体的关闭按纽不好用PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode=vbformcontrdmenuThenMsgBox"请用关闭按钮关闭窗口!!",64,"提示"Cancel=TrueEndIfEndSub11.使窗体在3秒后自动关闭PrivateSubUserForm_Activate()Application.WaitNow+TimeValue("00:00:03")Us

6、erForm1.HideEndSub12.启动窗体的时候自动使Label1显示Sheet1工作表3列,8行的内容PrivateSubUserForm_Activate()Label1.Caption=Sheets("sheet1").Cells(3,8)EndSub13.让按纽CommandButton1在窗体上以不可用状态显示CommandButton1.Enabled=False14.让按纽Commandbutton1在窗体上以隐藏方式存在CommandButton10.Visible=False15.点击Commandbutton1按纽进入”工资”工作表Shee

7、ts("工资").Select16.在Textbox1中输入数据,窗体可显示出”工资”工作表中与输入内容关联的项PrivateSubTextBox1_Change()ForX=1ToApplication.CountA(Sheets("工资").Range("a:a"))IfSheets("工资").Cells(X,1)=TextBox1.TextThen’在工资表第一列查找与Textbox1输入相符的项Label2.Caption=Sheets("工资").Cells(X,2)’在Label2中显示Textbox1数据所在的第二列的数据Label7