Excel vba编程实例 源码

Excel vba编程实例 源码 PrivateSubCommandButton1_Click()AddOneAddNewFourthOneWorksheets(“Sheet2”).ActivateSeveralRowsClearRangeSetValueEnterValueCycleThroughEndSubSubAddOne()Workbooks.AddEndSubSubAddNew()

大家好,又见面了,我是你们的朋友全栈君。 

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

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/141734.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • sdfsfd

    sdfsfd

    2021年11月14日
  • 如何查看CUDA版本和CUDNN版本

    如何查看CUDA版本和CUDNN版本cuda一般安装在/usr/local/cuda/路径下,该路径下有一个version.txt文档,里面记录了cuda的版本信息cat/usr/local/cuda/version.txt即可查询同理,cudnn的信息在其头文件里cat/usr/local/cuda/include/cudnn.h|grepCUDNN_MAJOR-A2即可查询另附我…

  • Tensorflow加载预训练模型和保存模型

    使用tensorflow过程中,训练结束后我们需要用到模型文件。有时候,我们可能也需要用到别人训练好的模型,并在这个基础上再次训练。这时候我们需要掌握如何操作这些模型数据。看完本文,相信你一定会有收获!

  • PriorityQueue详解

    PriorityQueue详解作者:王一飞 ,叩丁狼高级讲师。原创文章,转载请注明出处。     概念PriorityQueue一个基于优先级的无界优先级队列。优先级队列的元素按照其自然顺序进行排序,或者根据构造队列时提供的Comparator进行排序,具体取决于所使用的构造方法。该队列不允许使用null元素也不允许插入不可比较的对象(没有实现Comparable接口的对象)。PriorityQueue队…

  • 数据仓库之电商数仓– 3.1、电商数据仓库系统(ODS层、DIM层、DWD层)

    数据仓库之电商数仓– 3.1、电商数据仓库系统(ODS层、DIM层、DWD层)目录一、数仓分层1.1为什么要分层1.2数据集市与数据仓库概念1.3数仓命名规范1.3.1表命名1.3.2脚本命名1.3.3表字段类型二、数仓理论2.1范式理论2.1.1范式概念2.1.2函数依赖2.1.3三范式区分2.2关系建模与维度建模2.2.1关系建模2.2.2维度建模⭐️2.3维度表和事实表⭐️2.3.1维度表2.3.2事实表2.4维度模型分类2.5数据仓库建模⭐️????2.5.1ODS层2.5.2DIM层和DWD层2.5.3DWS层与DWT层2.5.4

  • java swing入门教程_java swing基础(菜鸟教程学习)

    java swing入门教程_java swing基础(菜鸟教程学习)JavaSwing介绍1.Swing是一个为java世纪的GUI工具包2.Swing是JAVA基础类的一部分3.Swing包括了图形用户界面(GUI)器件如:文本框,按钮,分隔窗格和表4个器件4.Swing提供许多比AWT更好的屏幕显示元素,用纯java写成。AWT是JFC的一部分,支持可更换的面板和主题(各种操作系统默认的特有主题),然而并不是真的使用原生平台提供的设备,而是仅仅在表面上模仿…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号