Excel常用宏编程的代码学习.docx
- 文档编号:30284555
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:5
- 大小:18.65KB
Excel常用宏编程的代码学习.docx
《Excel常用宏编程的代码学习.docx》由会员分享,可在线阅读,更多相关《Excel常用宏编程的代码学习.docx(5页珍藏版)》请在冰豆网上搜索。
Excel常用宏编程的代码学习
Excel 常用宏编程的代码学习
用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的!
使用Dim语句
Dimaasinteger'声明a为整型变量ﻫDima'声明a为变体变量ﻫDim a asstring'声明a为字符串变量ﻫDimaas currency,b as currency,c ascurrency '声明a,b,c为货币变量ﻫ......ﻫ声明变量可以是:
Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、Date、String(只限变长字符串)、String *length(定长字符串)、Object、Variant、用户定义类型或对象类型。
ﻫ
强制声明变量
OptionExplicitﻫ说明:
该语句必在任何过程之前出现在模块中。
ﻫ声明常数ﻫ用来代替文字值。
ﻫConst
ﻫ'常数的默认状态是Private。
ﻫConstMy=456ﻫ
'声明Public常数。
Public ConstMyString="HELP"
'声明 Private Integer常数。
ﻫPrivateConstMyIntAsInteger=5ﻫﻫ'在同一行里声明多个常数。
Const MyStr="Hello",MyDoubleAsDouble=3.4567 ﻫﻫﻫ选择当前单元格所在区域
在EXCEL97中,有一个十分好的功能,他就是把鼠标放置在一个有效数据单元格中,执行该段代码,你就可以将连在一起的一片数据全部选中。
只要将该段代码加入到你的模块中。
ﻫSub My_Select ﻫSelection.CurrentRegion.SelectﻫEndsubﻫ
返回当前单元格中数据删除前后空格后的值
submy_trim
msgboxTrim(ActiveCell.Value)
end subﻫ
单元格位移
sub my_offsetﻫActiveCell.Offset(0,1).Select'当前单元格向左移动一格 ﻫActiveCell.Offset(0,-1).Select'当前单元格向右移动一格ﻫActiveCell.Offset(1,0).Select'当前单元格向下移动一格 ﻫActiveCell.Offset(-1, 0).Select'当前单元格向上移动一格 ﻫendsubﻫ如果上述程序产生错误那是因为单元格不能移动,为了解除上述错误,我们可以往ﻫsubmy_offset之下加一段代码on errorresumenext
ﻫ
ﻫ注意以下代码都不再添加sub“代码名称”和endsub请自己添加!
ﻫ
给当前单元格赋值ﻫActiveCell.Value= "你好!
!
!
"
ﻫ给指定单元格赋值 ﻫ例如:
A1单元格内容设为"HELLO"ﻫRange("a1").value="hello"ﻫﻫ又如:
你现在的工作簿在sheet1上,你要往sheet2的A1单元格中插入"HELLO"ﻫ1. ﻫsheets("sheet2").selectﻫrange("a1").value="hello"
或ﻫ2.ﻫSheets("sheet1").Range("a1").Value= "hello"
ﻫ说明:
ﻫ1.sheet2被选中,然后在将“HELLO"赋到A1单元格中。
2.sheet2不必被选中,即可“HELLO"赋到sheet2 的A1单元格中。
隐藏工作表
'隐藏SHEET1这张工作表ﻫsheets("sheet1").Visible=False
ﻫ'显示SHEET1这张工作表
sheets("sheet1").Visible=True
ﻫ
打印预览
有时候我们想把所有的EXCEL中的SHEET都打印预览,请使用该段代码,它将在你现有的工作簿中循环,直到最后一个工作簿结束循环预览。
ﻫDimmy AsWorksheetﻫFor EachmyInWorksheetsﻫmy.PrintPreview
Nextmyﻫ
得到当前单元格的地址ﻫmsgboxActiveCell.Addressﻫﻫ得到当前日期及时间ﻫmsgboxdate &chr(13)& timeﻫ
保护工作簿ﻫActiveSheet.Protectﻫﻫ取消保护工作簿ﻫActiveSheet.Unprotectﻫ
给活动工作表改名为"liu"
ActiveSheet.Name="liu"ﻫ
打开一个应用程序
AppActivate (Shell("C:
\WINDOWS\CALC.EXE"))
增加一个工作表
Worksheets.Add
ﻫ删除活动工作表
activesheet.delete
ﻫ打开一个工作簿文件
Workbooks.Open"C:
\My Documents\Book2.xls"
ﻫ关闭活动窗口
ActiveWindow.Close
ﻫ单元格格式
选定单元格左对齐
Selection.HorizontalAlignment=xlLeftﻫﻫ选定单元格居中ﻫSelection.HorizontalAlignment =xlCenter
选定单元格右对齐ﻫSelection.HorizontalAlignment =xlRight
选定单元格为百分号风格
Selection.Style = "Percent"
ﻫ选定单元格字体为粗体
Selection.Font.Bold= True ﻫﻫ选定单元格字体为斜体
Selection.Font.Italic=True
ﻫ选定单元格字体为宋体20号字
WithSelection.Font
.Name ="宋体"
.Size= 20ﻫEndWith
ﻫﻫWith 语句 ﻫﻫWith 对象
.描述 ﻫEndWith
ﻫ清除单元格ﻫActiveCell.Clear '删除所有文字、批注、格式ﻫﻫﻫ返回选定区域的行数
MsgBox Selection.Rows.Count
ﻫ返回选定区域的列数
MsgBoxSelection.Columns.Countﻫ
返回选定区域的地址ﻫSelection.Addressﻫ
忽略所有的错误
ONERRORRESUMENEXT
遇错跳转 ﻫonerrorgotoerr_handle ﻫ'中间的其他代码
err_handle:
'标签
'跳转后的代码
删除一个文件ﻫkill"c:
\1.txt" ﻫ
定制自己的状态栏
Application.StatusBar="现在时刻:
"&Timeﻫ
恢复自己的状态栏
Application.StatusBar=falseﻫﻫ
用代码执行一个宏
Application.Runmacro:
="text"
滚动窗口到a1的位置ﻫActiveWindow.ScrollRow=1 ﻫActiveWindow.ScrollColumn=1
定制系统日期ﻫDim MyDate,MyDay ﻫMyDate= #12/12/69#
MyDay = Day(MyDate)ﻫ
返回当天的时间
DimMyDate,MyYearﻫMyDate=Date
MyYear =Year(MyDate)ﻫMsgBoxMyYear
ﻫinputbox<输入框>
XX=InputBox("Enternumberof monthstoadd")
得到一个文件名ﻫDim kkAs String
kk =Application.GetOpen("EXCEL(*.XLS),*.XLS",Title:
="提示:
请打开一个EXCEL文件:
")ﻫmsgboxkk ﻫ
打开zoom对话框
Application.Dialogs(xlDialogZoom).Show ﻫ
激活字体对话框
Application.Dialogs(xlDialogActiveCellFont).Show
ﻫ打开另存对话框ﻫDimkkAsString ﻫkk =Application.GetSaveAs("excel(*.xls), *.xls")ﻫWorkbooks.Openkk
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 常用 编程 代码 学习