EXCEL VBA 经典实例400句(2)

'(72)
ActiveSheet.ChartObjects("Chart1").Activate
'选中当前图表区域
ActiveChart.ChartArea.Select
'(73)更改工作表中图表的图表区的颜色
Worksheets("Sheet1").ChartObjects("Chart2").Chart. _
ChartArea.Interior.ColorIndex = 2
'(74)更改图表工作表中图表区的颜色
Sheets("Chart2").ChartArea.Interior.ColorIndex = 2
'(75)添加新的图表工作表
Charts.Add
'(76)指定图表数据源并按列排列
ActiveChart.SetSourceData Source:=Sheets("Sheet1")
.Range("A1:D5"), _
PlotBy:=xlColumns
'(77)新图表作为新图表工作表
ActiveChart.Location Where:=xlLocationAsNewSheet
'(78)将绘图区颜色变为白色
ActiveChar

学习之后能大幅提高excel VBA编写水平,内容详尽全面

t.PlotArea.Interior.ColorIndex = xlNone
'(79)将图表1导出到C盘上并命名为MyChart.gif
Worksheets("Sheet1").ChartObjects(1).Chart. _
Export Filename:="C：MyChart.gif", FilterName:="GIF"
'
'窗体
'(80)消息框中显示消息Hello
MsgBox "Hello!"
'(81)在消息框中点击"是"按钮，则Ans值为vbYes；点击"否"按钮，则Ans值为vbNo。
Ans = MsgBox("Continue?", vbYesNo)
'返回值不为"是"，则退出
If MsgBox("Continue?", vbYesNo) <> vbYes Then Exit Sub
'(82)使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
Config = vbYesNo + vbQuestion + vbDefaultButton2
'(83)在消息框中强制换行，可用vbCrLf代替vbNewLine。
MsgBox "This is the first line." & vbNewLine & "Second line."
'(84)应用工作表函数返回所选区域的平均值并按指定格式显示
MsgBox "the average is :" & _
Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count average" & Chr(13)
'(85)显示用户窗体
UserForm1.Show
'(86)加载一个用户窗体,但该窗体处于隐藏状态
Load UserForm1
'(87)隐藏用户窗体
UserForm1.Hide
'(88)卸载用户窗体
Unload UserForm1
'或
Unload Me
'(89)在用户窗体中显示图形
Picture1.Picture = LoadPicture("C:\1.JPG")
'(90)将窗体设置为无模式状态
UserForm1.Show 0
'或
UserForm1.Show vbModeless
'(91)窗体高度为当前活动窗口高度的0.88
Me.Height = Int(0.88 * ActiveWindow.Height)
'窗体宽度为当前活动窗口高度的0.88
Me.Width = Int(0.88 * ActiveWindow.Width)
'
'事件
'(92)禁用所有事件
Application.EnableEvents = False
'启用所有事件
Application.EnableEvents = True
'注：不适用于用户窗体控件触发的事件
'对象
'(93)创建一个Excel工作表对象
Set ExcelSheet = CreateObject("Excel.Sheet")
'设置 Application 对象使 Excel 可见
ExcelSheet.Application.Visible = True
'在表格的第一个单元中输入文本
ExcelSheet.Application.Cells(1, 1).Value = "Data"
'将该表格保存到C:\test.xls 目录
ExcelSheet.SaveAs "C:\TEST.XLS"
'关闭 Excel
ExcelSheet.Application.Quit
'释放该对象变量
Set ExcelSheet = Nothing
'(94)声明并创建一个Excel对象引用
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
'(95)创建并传递一个 Excel.Application 对象的引用
Call MySub(CreateObject("Excel.Application"))
'(96)创建一个 Dictionary 对象变量
Set d = CreateObject(Scripting.Dictionary)
'(97)为对象变量添加关键字和条目
d.
Add "a", "Athens"
'
'其他
'(98)设置Ctrl+I键为macro过程的快捷键
Application.OnKey "^I", "macro"
'(99)退出剪切/复制模式

学习之后能大幅提高excel VBA编写水平,内容详尽全面

Application.CutCopyMode = False
'(100)无论何时工作表中任意单元格重新计算，都会强制计算该函数
Application.Volatile True
'只有在该函数的一个或多个参数发生改变时，才会重新计算该函数
Application.Volatile False

'*******************************************************
' 定制模块行为
'(101)清除程序运行过程中所有的错误
Err.Clear
'*******************************************************
' 工作簿
'(102)返回上次保存工作簿的日期和时间
ThisWorkbook.BuiltinDocumentProperties ("Last Save Time")
'或
Application.Caller.Parent.Parent.BuiltinDocumentProperties ("Last Save Time")
'(103)返回上次打印或预览工作簿的日期和时间
ThisWorkbook.BuiltinDocumentProperties ("Last Print Date")
'或
Application.Caller.Parent.Parent.BuiltinDocumentProperties ("Last Print Date")
'(104)关闭所有打开的工作簿
Workbooks.Close
'(105)返回当前工作簿中的第一条链接
ActiveWorkbook.LinkSources(xlExcelLinks)(1)
'(106)返回工作簿代码的名称
ActiveWorkbook.CodeName
ThisWorkbook.CodeName
'(107)返回当前工作簿文件格式代码
ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat
'(108)返回当前工作簿的路径(注:若工作簿未保存,则为空)
ThisWorkbook.Path
ActiveWorkbook.Path
'(109)返回当前工作簿的读/写值(为False)
ThisWorkbook.ReadOnly
ActiveWorkbook.ReadOnly
'(110)返回工作簿的存储值(若已保存则为False)
ThisWorkbook.Saved
ActiveWorkbook.Saved
'(111)隐藏工作簿
Application.Visible = False
'显示工作簿
Application.Visible = True
'注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
'*******************************************************
' 工作表
'(112)在A列右侧插入列，即插入B列
ActiveSheet.Columns("B").Insert
' ActiveSheet.Columns("E").Cut
'以上两句将E列数据移至B列，原B列及以后的数据相应后移
ActiveSheet.Columns("B").Insert
…… 此处隐藏：3674字，全部文档内容请下载后查看。喜欢就下载吧 ……