Excel vba编程实例 源码
来源:互联网 发布:威克姆阿贝女校知乎 编辑:程序博客网 时间:2024/05/01 13:10
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编程入门教程
- 股神巴菲特
- JS判断是否为数字,是否为整数,是否为浮点数
- 打开目录并选中文件的三种方法
- 删除惹眼的未知帐户 在设置共享时 共享和安全里
- 国内十大人才短缺职位以“技术人员”居首
- Excel vba编程实例 源码
- 网址收藏
- Introduce of myself
- 查看结构体成员的大小和偏移地址的方法
- 用心管理情绪
- EMC-CBR故障诊断研究(四)
- 何.谓.成.功
- 控制面板程序(CPL)调试方法
- 更新数据库字段部分内容