Excel vba编程实例 源码
来源:互联网 发布:淘宝举报需不需要登录 编辑:程序博客网 时间:2024/05/01 20:40
Private Sub CommandButton1_Click()
'AddOne
'AddNew
'FourthOne
Worksheets("Sheet2").Activate
'SeveralRows
'ClearRange
'SetValue
'EnterValue
CycleThrough
End Sub
Sub AddOne()
Workbooks.Add
End Sub
Sub AddNew()
Set newBook = Workbooks.Add
With newBook
.Title = "1995 Sales"
.Subject = "Sales"
.SaveAs Filename:="95Sales.xls"
End With
End Sub
Sub FourthOne()
'AddOne
'Sheets(3).Activate
'Charts(1).Activate
'Charts("Chart1").Activate
'ActiveWorkbook.SaveAs _
'Filename:="E:/myfile.htm", _
'FileFormat:=xlHtml
'ChartObjects(1).Activate
'With Application.DefaultWebOptions
'.RelyOnVML = True
'.AllowPNG = True
'.PixelsPerInch = 96
'End With
'With ActiveWorkbook
'.WebOptions.AllowPNG = False
'With .PublishObjects("Chart3")
'.Filename = "E:/1998_Q1.htm"
'.Publish
'End With
'End With
End Sub
Sub SeveralRows()
Worksheets("Sheet2").Activate
Dim worksheettemp As Worksheet
Set worksheettemp = Worksheets("Sheet2")
Dim myUnion As Range
Set myUnion = Union(worksheettemp.Rows(1), worksheettemp.Rows(2), worksheettemp.Rows(5))
myUnion.Font.Bold = True
End Sub
Sub ClearRange()
Worksheets("Sheet2").[A1:B5].ClearContents
End Sub
Sub SetValue()
Dim MyRange As Range
Set MyRange = Worksheets("Sheet2").[A1:B5]
MyRange.Value = 10
End Sub
Sub EnterValue()
Worksheets("Sheet2").Cells(6, 1).Value = 10
End Sub
Sub CycleThrough()
Dim counter As Integer
For counter = 1 To 20
Worksheets("Sheet2").Cells(counter, 3).Value = counter
Next counter
End Sub
'AddOne
'AddNew
'FourthOne
Worksheets("Sheet2").Activate
'SeveralRows
'ClearRange
'SetValue
'EnterValue
CycleThrough
End Sub
Sub AddOne()
Workbooks.Add
End Sub
Sub AddNew()
Set newBook = Workbooks.Add
With newBook
.Title = "1995 Sales"
.Subject = "Sales"
.SaveAs Filename:="95Sales.xls"
End With
End Sub
Sub FourthOne()
'AddOne
'Sheets(3).Activate
'Charts(1).Activate
'Charts("Chart1").Activate
'ActiveWorkbook.SaveAs _
'Filename:="E:/myfile.htm", _
'FileFormat:=xlHtml
'ChartObjects(1).Activate
'With Application.DefaultWebOptions
'.RelyOnVML = True
'.AllowPNG = True
'.PixelsPerInch = 96
'End With
'With ActiveWorkbook
'.WebOptions.AllowPNG = False
'With .PublishObjects("Chart3")
'.Filename = "E:/1998_Q1.htm"
'.Publish
'End With
'End With
End Sub
Sub SeveralRows()
Worksheets("Sheet2").Activate
Dim worksheettemp As Worksheet
Set worksheettemp = Worksheets("Sheet2")
Dim myUnion As Range
Set myUnion = Union(worksheettemp.Rows(1), worksheettemp.Rows(2), worksheettemp.Rows(5))
myUnion.Font.Bold = True
End Sub
Sub ClearRange()
Worksheets("Sheet2").[A1:B5].ClearContents
End Sub
Sub SetValue()
Dim MyRange As Range
Set MyRange = Worksheets("Sheet2").[A1:B5]
MyRange.Value = 10
End Sub
Sub EnterValue()
Worksheets("Sheet2").Cells(6, 1).Value = 10
End Sub
Sub CycleThrough()
Dim counter As Integer
For counter = 1 To 20
Worksheets("Sheet2").Cells(counter, 3).Value = counter
Next counter
End Sub
- Excel vba编程实例 源码
- Excel vba编程实例 源码
- Excel VBA实例
- Excel中的VBA编程
- Excel VBA编程笔记
- EXCEL VBA编程基础
- Office Excel VBA编程
- excel下vba编程
- Excel VBA 编程练习
- Excel VBA编程基础
- Excel中的VBA编程
- Excel VBA之类模块 实例
- Excel 2003 VBA编程参考
- vba excel编程三日谈(1)
- vba excel编程三日谈(2)
- vba excel编程三日谈(3)
- excel vba(编程编)
- excel 2003 VBA编程入门教程
- 3G能给软件开发者带来什么机遇
- vba教程2
- 揭开Linux操作系统的Swap交换区之谜
- FileUpload上传处理类
- 博客开通……2009年4月14日16:49:40
- Excel vba编程实例 源码
- 爱情的9个真相 。(想谈恋爱的看,正在谈恋爱的看,不想谈恋爱的也可以看看。)
- 短延迟 usleep , msleep, nanosleep select
- 超级实用且不花哨的js代码大全
- 老师永远不教的50堂,看一看,你会比同龄人更成熟(转)
- 九百九十九朵玫瑰的由来
- 知味知缘知味知缘
- struts2写EXCEL输出
- 程序快捷方式/程序删除项/EXE自删除DIY