Excel vba编程实例源码

全栈程序员-站长 • 2022年5月25日上午9:00 • 未分类 • 阅读 36

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

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

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/141734.html原文链接：https://javaforall.net

赞 (0)

全栈程序员-站长

0 0

国内一些比较大型的IT外包公司[通俗易懂]

国内一些比较大型的IT外包公司[通俗易懂]下面的这些公司是我根据网上的资料整理出来的。找工作的同学都要看看，下面这些是国内一些比较大型的外包公司，想进外包公司的和不想进的都要了解一下，别进错了。序号公司名称英文备注1.博朗软件Bleum上海2.东软集团Neusoft沈阳3.大连华信-大连4.新致软件…

全栈程序员-站长
2022年4月26日
excel图片链接显示为图片_怎样将图片拼接成长图

excel图片链接显示为图片_怎样将图片拼接成长图由于公司需要统计根据门店业绩和装修档次定制扶持政策，所以要到处携带门店门头照片+业绩的报表，而数据库存储的是图片的链接。由于后台统计报表相对应的库暂时没有插入图片的功能。所以通过宏来完成将Excel中url替换为插入图片，又为了避免插入图片太多，导致Excel大小暴增，所以在选择了对应门店门头照片链接时才插入图片。具体步骤如下：1、进入对应sheet页的ViewCode一种…

全栈程序员-站长
2022年9月22日
Android NFC开发详细总结[通俗易懂]

AndroidNFC开发NearFieldCommunication(NFC)为一短距离无线通信技术，通常有效通讯距离为4厘米以内。NFC工作频率为13.65兆赫兹，通信速率为106kbit/秒到848kbit/秒。NFC手机相比普通手机来说，短范围无线技术。1.NFC基础用NDEF消息格式来发送和接收NFC数据,从NFC标签中读取NDEF数据是用标签调度系

全栈程序员-站长
2022年4月14日
国密SM4分组加密[通俗易懂]

国密SM4分组加密[通俗易懂]分享一篇SM4加密算法实现文章，算法用C语言即可实现，只有短短300多行代码。SMS4是我国无线局域网标准WAPI中所采用的分组密码标准，随后被我国商用密码标准采用，又名SM4（SM是“商密”的缩写，目前公布的其他商密标准包括SM2椭圆曲线公钥密码，SM3密码杂凑算法）。作为我国商用密码的分组密码标准，预计SMS4在国内的敏感但非机密的应用领域会逐渐取代3DES，AES等国外分组密码标准，用于通…

全栈程序员-站长
2022年9月27日
python3合并两个有序列表 and 加一

python3合并两个有序列表 and 加一

全栈程序员-站长
2021年4月18日
电脑一直跳出不支持16位的应用程序该如何解决

电脑一直跳出不支持16位的应用程序该如何解决

全栈程序员-站长
2021年9月28日

发表回复

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