腾讯云开发者社区-腾讯云

开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

IT开发技术与工作效率

专栏作者

132

文章

238119

阅读量

35

订阅数

Excel VBA基础教程——循环

Sub 过程名() i = 1 s = 0 '初始值为0可略 While i <= 100 s = s + i i = i + 1 Wend Do While i <= 100 s = s + i i = i + 1 Loop Do '第一次无条件执行 s = s + i i = i + 1 Loop While i <= 100 Do s = s + i i = i + 1 Loop Until i > 100 Do s =

2018-06-26

9970

Excel VBA快速入门与界面设置

vba excel 入门

1.jpg 2.jpg 3.jpg 4.jpg 5.jpg 6.jpg 7.jpg

2018-06-26

8560

VBA数据透视表

ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=sh & "!R1C1:R" & rn & "C22", _ Version:=4 _ ).CreatePivotTable _ TableDestination:="Sheet1!R1C1", _ TableName:="数据透视表1", _ DefaultVersion:=4 'xlPivot

2018-06-26

2K0

VBA函数与过程简洁教程

'VBA函数与过程简洁教程 Sub 过程名() 'Sub表示过程，在执行宏或图形右击指定宏中看得到，不能返回值 Call 函数名(Array(1, 2), b) '调用过程并把返回值放入r End Sub '结束过程 Function 函数名(a, Optional ByVal b) 'Function表示函数，在单元格中也可以使用，宏列表看不到，可以使宏列表简洁 'VBA默认ByRef会改变原参数的值，所以加了ByVal If IsMissing(b) Then b = 1 'Optional表示参数可

2018-06-26

9470

VBA常用程序——每个表都应该有

vba 编程算法

Sub 复制位图() Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap End Sub Sub 复制打印() Range("Print_Area").CopyPicture Appearance:=xlScreen, Format:=xlBitmap End Sub Sub 清除图片() For Each shp In ActiveSheet.Shapes If shp.Type = 13 Then shp.Delete

2018-06-26

9240

VBA透视表筛选子程序

Sub 透视筛选(pf, pv, v) With ActiveSheet.PivotTables("数据透视表1").PivotFields(pf) .EnableMultiplePageItems = True For Each pii In .PivotItems '全部选中以免出现全不选错误 pii.Visible = True Next For Each pii In .PivotItems If IsError(Application

2018-06-26

1.2K0

Excel VBA 基础教程——With和Parent的使用

vba excel parent

Sub 过程名() ThisWorkbook.Activate '这个工作簿.激活 ThisWorkbook.Sheets("Sheet1").Select '这个工作簿.工作表Sheet1.选择 ThisWorkbook.Sheets("Sheet1").Range("A1").Select '这个工作簿.工作表Sheet1.单元格A1.选择 '等同于： With ThisWorkbook.Sheets("Sheet1") .Parent.Activate '这个对象的父对象即T

2018-06-21

1.3K0

VBA非登陆下载Excel文件并处理例子

'下载文件相关函数申明 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public Declare Function Delete

2018-06-20

6240

没有更多了

社区活动

腾讯技术创作狂欢月

“码”上创作 21 天，分 10000 元奖品池！

Python精品学习库

代码在线跑，知识轻松学

博客搬家 | 分享价值百万资源包

自行/邀约他人一键搬运博客，速成社区影响力并领取好礼

技术创作特训营·精选知识专栏

往期视频·千货材料·成员作品最新动态