《VBA编程中的常用代码2》由会员分享，可在线阅读，更多相关《VBA编程中的常用代码2（6页珍藏版）》请在金锄头文库上搜索。
1、精品word学习资料可编辑Excel 与 VBA编程中的常用代码用过 VB 的人都应当知道如何声明变量，在VBA中声明变量和 VB 中是完全一样的！使用 Dim 语句Dim a as integer 声明 A 为整形变量Dim a 声明 A 为变体变量Dim a as string 声明 A为字符串变量Dim a,b,c as currency 声明 A,b,c 为货币变量.声明变量可以是： Byte ，Boolean ，Integer，Long，Currency ，Single ，Double ，Decimal （当前不支持）， Date ，String （只限变长字符串），String *
2、 length（定长字符串）， Object ，Variant，用户定义类型或对象类型；强制声明变量Option Explicit说明：该语句必在任何过程之前显现在模块中；声明常数，用来代替文字值；Const常数的默认状态是 Private；Const My = 456声明 Public常数；Public Const MyString = HELP声明 Private Integer常数；Private Const MyInt As Integer = 5在同一行里声明多个常数；Const MyStr = Hello, MyDouble As Double = 3.4567在 EXCEL97中
3、，有一个特别好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中；只要将该段代码加入到你的模块中；Sub My_Select Selection.CurrentRegion.Select End sub删除当前单元格中数据的前后空格；sub my_trim Trim(ActiveCell.Value) end sub使单元格位移名师归纳总结欢迎下载精品word学习资料可编辑sub my_offsetActiveCell.Offset(0, 1).Select当前单元格向左移动一格ActiveCell.Offset(0, -1).Select当前单
4、元格向右移动一格ActiveCell.Offset(1 , 0).Select当前单元格向下移动一格ActiveCell.Offset(-1 , 0).Select当前单元格向上移动一格end sub假如上述程序产生错误那是由于单元格不能移动，为明白除上述错误，我们可以往sub my_offset之下加一段代码 on error resume next留意以下代码都不再添加sub “代码名称” 和end sub 请自己添加 .给当前单元格赋值：ActiveCell.Value = 你好！ 给特定单元格加入一段代码:例如：在单元格中插入 Range(a1).value=hello又如：你现在的工
5、作簿在sheet1 上，你要往 sheet2 的单元格中插入 1.sheets(sheet2).select range(a1).value=hello 或2.Sheets(sheet1).Range(a1).Value = hello说明：1. sheet2被打开，然后在将“ HELL O放入到 A1 单元格中；2. sheet2不被打开，将“ HELLO放 入到 A1 单元格中；隐匿工作表 隐匿 SHEET1这张工作表sheets(sheet1).Visible=False 显示 SHEET1这张工作表sheets(sheet1).Visible=True有时候我们想把全部的EXCEL中的
6、 SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最终一个工作簿终止循环预览；Dim my As WorksheetFor Each my In Worksheets my.PrintPreviewNext my得到当前单元格的地址名师归纳总结欢迎下载精品word学习资料可编辑msgbox ActiveCell.Address得到当前日期准时间msgbox date & chr(13) & time爱惜工作簿ActiveSheet.Protect取消爱惜工作簿ActiveSheet.Unprotect给当前工作簿改名为liu ActiveSheet.Name = liu打
7、开一个应用程序AppActivate (Shell(C:WINDOWSCALC.EXE)增加一个工作簿Worksheets.Add删除当前工作簿activesheet.delete打开一个文件Workbooks.Open FileName:=C:My DocumentsBook2.xls关闭当前工作簿ActiveWindow.Close当前单元格定为：左对齐Selection.HorizontalAlignment = xlLeft当前单元格定为：中心对齐Selection.HorizontalAlignment = xlCenter当前单元格定为：右对齐Selection.Horizonta
8、lAlignment = xlRight当前单元格为百分号风格Selection.Style = Percent当前单元格字体为粗体Selection.Font.Bold = True名师归纳总结欢迎下载精品word学习资料可编辑当前单元格字体为斜体Selection.Font.Italic = True当前单元格字体为宋体20 号字With Selection.Font.Name = 宋体.Size = 20 End WithWith语句With对象. 描述End With让你的机器发出响声BEEP清除单元格中全部文字，批注，格式，全部的东西！ActiveCell.Clear测试选择状态的单
9、元格的行数MsgBox Selection.Rows.Count测试选择状态的单元格的列数MsgBox Selection.Columns.Count测试选择状态的单元格的地址Selection.Address让全部的错误不再发生ON ERROR RESUME NEXT产生错误时让错误转到另一个地方on error goto l codel: code删除一个文件kill c:1.txt定制自己的状态栏名师归纳总结欢迎下载精品word学习资料可编辑Application.StatusBar = 现在时刻 : & Time复原自己的状态栏Application.StatusBar = false
10、在运行期执行一个宏Application.Run macro:=text滚动窗口到 a1 的位置ActiveWindow.ScrollRow = 1ActiveWindow.ScrollColumn = 1定制系统日期Dim MyDate, MyDay MyDate = #12/12/69# MyDay = Day(MyDate)今日的年限Dim MyDate, MyYear MyDate = DateMyYear = Year(MyDate)MsgBox MyYear产生一个 inputboxInputBox (Enter number of months to add)得到一个文件名：Di
11、m kk As Stringkk = Application.GetOpenFilename(EXCEL (*.XLS), *.XLS, Title:=提示：请打开一个 EXCEL文件： ) msgbox kk打开 zoom 对话框Application.Dialogs(xlDialogZoom).Show激活字体对话框Application.Dialogs(xlDialogActiveCellFont).Show打开另存对话框Dim kk As Stringkk = Application.GetSaveAsFilename(excel (*.xls), *.xls) Workbooks.O
12、pen kk此段代码查找字符串中特定字符的位置，需要建立一个窗体， 并在窗体中，放入 TEXTBOX1,TEXTBOX和2 TEXTBOX3(3个文本框）及 COMMANDBUTTO按N1(名师归纳总结欢迎下载精品word学习资料可编辑钮) ，如下图所示：Private Sub CommandButton1_Click() a = TextBox1.Textb = TextBox2.Text aa = Len(a)i = 1Dim YY As StringIf b = Then Exit SubDoIf InStr(i, a, b, vbTextCompare) = 0 Then Exit Do kk = InStr(i, a, b, vbTextCompare)YY = YY & CStr(kk) & /i = kk + 1Loop While aa = i TextBox3.Text = YYEnd Sub名师归纳总结欢迎下载
