Excel vba编程实例源码

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

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

Java学习书籍整理

Java学习书籍整理不知不觉中，做Java开发已经四年了，趁着现在换了工作，还算比较闲，就整理一下自己学习的一些知识。在学习过程中，我喜欢找的一些电子书来系统化的学习，多数时候我都只是做一个大概的了解，没有深入学习，基本就是看下目录，看下前几章的内容，深入的只会在实际用的时候才去详细看了。我从以下几个方面整理了一下这些学习的电子书，分享给大家，免得到处去找这些资源，百度脑图里面的分类也…

全栈程序员-站长
2022年6月15日
23
c++视频转字符画_c++字符数组转化为字符串

c++视频转字符画_c++字符数组转化为字符串运行此程序需要有graphics图形库#include <stdio.h>#include <graphics.h> // 图形库的头文件#define HEIGHT 8 // 转换后的高度#define WIDTH 8 // 转换后的宽度#define ASCII1 32 // 转换ASCII数量struct ASCII{ char as…

全栈程序员-站长
2022年8月18日
7
希尔伯特黄变换信号处理_希尔伯特变换后频谱图

希尔伯特黄变换信号处理_希尔伯特变换后频谱图希尔伯特黄变换(Hilbert-Huang)包括两部分工作，分别是经验模态分解（EMD）和希尔伯特变换（HT）。经验模态分解：找到信号x(t)的极大值和极小值，通过三次样条拟合得到上、下包络线，计算其均值得m1(t). 得到第一个分量,检擦其是否满足模态分量的条件：①得极大值点与过0点数量相差不超过1个；②的上、下包络线均值恒为0。如不满足，重复操作1、2直至得到满足模态函数…

全栈程序员-站长
2022年10月14日
2
MariaDB安装Win10

MariaDB安装Win10本次搭建mysql数据，选择了是和mysql类似的MariaDB,完全可以满足日常的使用需求，且命令和mysql没有太大的区别。对应MariaDB下载地址：https://downloads.mariadb.org/解压下载完成的文件，这里我解压到了C盘，路径：C:\mariadb-10.5.3-winx64使用win+R，输入CMD，进入DOS控制台。输入命令cdC:\mariadb-10.5.3-winx64，进入MariaDB的对应的路径中执行安装的命令mysqld.exe–..

全栈程序员-站长
2022年6月10日
95
xss平台使用方法_简单介绍一种你在家使用过的工具

xss平台使用方法_简单介绍一种你在家使用过的工具XSS常用语句及编码绕过XSS常用的测试语句有：<script>alert(1)</script><imgsrc=xonerror=alert(1)>&

全栈程序员-站长
2022年8月2日
8
【C/C++】C语言特性总结

【C/C++】C语言特性总结已经有大约半年的时间没有碰C语言了，当时学习的时候记录了很多的笔记，但是都是特别混乱，后悔那个时候，不懂得写博客，这里凭借记忆和零零散散的笔记记录，尝试系统性地复习一下C语言。之前都是在Windows环境下学习，这次把重心放在Linux环境下，这次的复习源于基础，但是要高于基础。文章目录工具gcc编译器VS2019C语言编译过程C语言代码主体必要内容C语言数据类型关键字常量变量进制表示s…

全栈程序员-站长
2022年6月21日
16

发表回复

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