当前位置:首页 >> 计算机软件及应用 >> VBA自学整理资料

VBA自学整理资料

Sub 计算 A 列数字个数() Dim i As Integer i=WorksheetFunction.Count(Range("A:A")) MsgBox "A 列数字个数为:"&i End Sub

Option Compare Binary Sub 字母比较() MsgBox "a">"A" End Sub 返回结果为 True Option Compare Text Sub 字母比较() MsgBox "a">"A" End Sub 返回结果为 False Sub test() Dim sums As Long, cell As Range, i As Byte, mystr As String For Each cell In Range("A1:A10") If VBA.IsNumeric(cell) Then sums = sums + cell Else mystr = mystr & cell If cell = "" Then i = i + 1 Next cell Debug.Print "A1:A10 中有空白单元格" & i & "个" '注意中间的空格 Debug.Print "A1:A10 中数据和为:"; sums Debug.Print "A1:A10 中文本为:"; mystr End Sub '运行前打开立即窗口。 Sub 显示用户名() user_name = Application.InputBox("请输入您的姓名", "姓名", , , , , , 2) MsgBox "您好!" & Chr(10) & user_name End Sub Sub 测试一() Dim tim As Long, x As Integer, y As Integer, z As Integer tim = Timer For x = -100 To 10000 For y = 1 To 10000 z=x+y Next y, x MsgBox "时间:" & (Timer - tim)

End Sub '每次结果不一样

Sub 测试 2() tim = Timer For x = -100 To 10000 For y = 1 To 10000 z=x+y Next y, x MsgBox "时间:" & (Timer - tim) End Sub '每次结果不一样,但比第一个长。 Sub test() MsgBox 2000 * 3888 End Sub Sub test2() Dim a As Long a = 2000 * 388 End Sub Sub test3() MsgBox CLng(2000) * 388 End Sub Sub test4() Dim a As Long Const b As Long = 2000 a = b * 388 End Sub Sub test3() MsgBox CLng(2000) * 388 End Sub Sub test4() Dim a As Long Const b As Long = 2000 a = b * 388 MsgBox a End Sub 动态变量是指每次被过程调用时均重新初始化的变量, 而静态变量是在初始化后, 下一次调 用时仍保留上次的值的变量。 Sub 动态与静态() Dim a As Byte

Static b As Byte a=a+1 b=b+1 Debug.Print "a 等于" & a Debug.Print "b 等于" & b End Sub 打开立即窗口,执行三次,结果为 a 等于 1 b 等于 1 a 等于 1 b 等于 2 a 等于 1 b 等于 3

Sub 新建总表() For i = 1 To Sheets.Count If Sheets(i).Name = "总表" Then GoTo err Next i Sheets.Add ActiveSheet.Name = "总表" End err: MsgBox "已经存在总表" End Sub Sub 建立 10 个表() If Sheets.Count >= 10 Then Exit Sub Sheets.Add , Sheets(Sheets.Count), 1 Call 建立 10 个表 End Sub Sub 成绩(成绩) If 成绩>=60 Then msgbox "及格" else msgbox "不及格" end sub sub test() 成绩(70) end sub Function 成绩(分数) If 分数 >= 60 Then 成绩 = "及格" Else 成绩 = "不及格" End Function Sub test()

成绩 (70) End Sub

Function 成绩(分数) If 分数 >= 60 Then MsgBox "及格" Else MsgBox "不及格" End Function Sub test5() 成绩 (70) End Sub Function 大写(cell As String) As String Dim rmbs As String If cell = "" Or Not IsNumeric(cell) Then 大写 = "": Exit Function If cell = 0 Then 大写 = "零元整": Exit Function rmbs = Replace(Replace(Application.Text(Round(cell, 2), "[DBnum2]"), ".", "元"), "-", "负") rmbs = IIf(Left(Right(rmbs, 3), 1) = "元", Left(rmbs, Len(rmbs) - 1) & "角" & Right(rmbs, 1) & " 分", IIf(Left(Right(rmbs, 2), 1) = "元", rmbs & "角", IIf(rmbs = "零", "", rmbs & "元整"))) rmbs = Replace(Replace(rmbs, "零元", ""), "零角", "") 大写 = rmbs End Function 如在 A1 单元格输入 15000.85,B1 单元格输入=大写(A1) ,B1 中显示“壹万伍仟元捌角伍 分” 。 。 Function 工作表(Optional 序号) As String Application.Volatile If IsMissing(序号) Then 序号 = ActiveSheet.Index If 序号 > Sheets.Count Then 工作表 = "" Else 工作表 = Sheets(序号).Name End If End Function "=HYPERLINK("#"&工作表(ROW(A2))&"!A1",工作表(ROW(A1)))" Sub 现在时间() MsgBox Format(Date, "yyyy 年 m 月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "h") & "点钟", 64, "现在是" End Sub Sub 现在时间 2()

MsgBox Format(Date, "yyyy 年 m 月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "hh 时 mm 分 ss 秒"), 64, "现在是" End Sub Sub 时间() [a1] = WorksheetFunction.Text(Now(), "hh:mm:ss") Application.OnTime Now() + TimeValue("00:00:01"), "时间" End Sub Sub 终止() Application.OnTime Now() + TimeValue("00:00:01"), "时间", , False End Sub Sub 统一形状大小及位置() Dim i As Byte For i = 1 To Sheets(10).Shapes.Count Sheets(10).Shapes(i).Width = 100 Sheets(10).Shapes(i).Height = 50 Sheets(10).Shapes(i).Top = 200 Sheets(10).Shapes(i).Left = 200 * i + 100 Next i End Sub

Sub 统一形状大小及位置 2() Dim i As Byte For i = 1 To Sheets(10).Shapes.Count Sheets(10).Shapes(i).Width = 100 Sheets(10).Shapes(i).Height = 50 Sheets(10).Shapes(i).Top = 200 Sheets(10).Shapes(i).Left = 200 * i + 100 Sheets(10).Shapes(i).Fill.ForeColor.RGB = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next i End Sub Sub 添加矩形() If Application.Workbooks("宏练习").Sheets(6).Range("a1") = "矩形" Then Application.Workbooks(" 宏练习 ").Sheets(6).Shapes.AddShape(msoShapeRectangle, 27.75, 4.5, 93#, 41.25).Select End If End Sub Sub 添加矩形 3() Dim i As Byte For i = 1 To 10

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40 * i, 40 * i, 20, 20).Select Next i End Sub

Sub 添加矩形 4() Dim i As Byte, j As Byte For i = 1 To 10 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40 * i, 40 * i, 20, 20).Select Next i For j = 1 To 9 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 400 - 40 * j, 400 + 40 * j, 20, 20).Select Next j End Sub

名称 值 描述 msoShape16pointStar 94 十六角星。 msoShape24pointStar 95 二十四角星。 msoShape32pointStar 96 三十二角星。 msoShape4pointStar 91 四角星。 msoShape5pointStar 92 五角星。 msoShape8pointStar 93 八角星。 msoShapeActionButtonBackorPrevious 129 “后退”或“上一个”按钮。支持鼠标单击和鼠标 移过操作。 msoShapeActionButtonBeginning 131 “开始”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonCustom 125 不带默认图片或文本的按钮。 支持鼠标单击和鼠标移过操 作。 msoShapeActionButtonDocument 134 “文档”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonEnd 132 “结束”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonForwardorNext 130 “前进”或“下一个”按钮。支持鼠标单击和鼠标 移过操作。 msoShapeActionButtonHelp 127 帮助按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonHome 126 “主页”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonInformation 128 “信息”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonMovie 136 “影片”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonReturn 133 “返回”按钮。支持鼠标单击和鼠标移过操作。 msoShapeActionButtonSound 135 “声音”按钮。支持鼠标单击和鼠标移过操作。 msoShapeArc 25 弧形。 msoShapeBalloon 137 气球。 msoShapeBentArrow 41 带 90 度圆角的箭头。 msoShapeBentUpArrow 44 带 90 度直角的箭头。默认情况下上指。

msoShapeBevel 15 凹凸效果。 msoShapeBlockArc 20 空心弧。 msoShapeCan 13 圆柱形。 msoShapeChevron 52 V 形。 msoShapeCircularArrow 60 带 180 度圆角的箭头。 msoShapeCloudCallout 108 云形标注。 msoShapeCross 11 十字形。 msoShapeCube 14 立方。 msoShapeCurvedDownArrow 48 上弧形箭头。 msoShapeCurvedDownRibbon 100 下凸弯带形横幅。 msoShapeCurvedLeftArrow 46 右弧形箭头。 msoShapeCurvedRightArrow 45 左弧形箭头。 msoShapeCurvedUpArrow 47 下弧形箭头。 msoShapeCurvedUpRibbon 99 上凸弯带形。 msoShapeDiamond 4 菱形。 msoShapeDonut 18 环形。 msoShapeDoubleBrace 27 双大括号。 msoShapeDoubleBracket 26 双括号。 msoShapeDoubleWave 104 双波形。 msoShapeDownArrow 36 下箭头。 msoShapeDownArrowCallout 56 带下箭头的标注。 msoShapeDownRibbon 98 中心区域位于弯带末端下方的弯带形。 msoShapeExplosion1 89 爆炸形。 msoShapeExplosion2 90 爆炸形。 msoShapeFlowchartAlternateProcess 62 其他过程流程图符号。 msoShapeFlowchartCard 75 资料卡流程图符号。 msoShapeFlowchartCollate 79 对照流程图符号。 msoShapeFlowchartConnector 73 联系流程图符号。 msoShapeFlowchartData 64 数据流程图符号。 msoShapeFlowchartDecision 63 决策流程图符号。 msoShapeFlowchartDelay 84 延期流程图符号。 msoShapeFlowchartDirectAccessStorage 87 磁鼓流程图符号。 msoShapeFlowchartDisplay 88 显示流程图符号。 msoShapeFlowchartDocument 67 文档流程图符号。 msoShapeFlowchartExtract 81 摘录流程图符号。 msoShapeFlowchartInternalStorage 66 内部贮存流程图符号。 msoShapeFlowchartMagneticDisk 86 磁盘流程图符号。 msoShapeFlowchartManualInput 71 手动输入流程图符号。 msoShapeFlowchartManualOperation 72 手动操作流程图符号。 msoShapeFlowchartMerge 82 合并流程图符号。 msoShapeFlowchartMultidocument 68 多文档流程图符号。 msoShapeFlowchartOffpageConnector 74 离页连接符流程图符号。 msoShapeFlowchartOr 78 “或者”流程图符号。 msoShapeFlowchartPredefinedProcess 65 预定义过程流程图符号。

msoShapeFlowchartPreparation 70 准备流程图符号。 msoShapeFlowchartProcess 61 过程流程图符号。 msoShapeFlowchartPunchedTape 76 资料带流程图符号。 msoShapeFlowchartSequentialAccessStorage 85 磁带流程图符号。 msoShapeFlowchartSort 80 排序流程图符号。 msoShapeFlowchartStoredData 83 库存数据流程图符号。 msoShapeFlowchartSummingJunction 77 汇总连接流程图符号。 msoShapeFlowchartTerminator 69 终止流程图符号。 msoShapeFoldedCorner 16 折角形。 msoShapeHeart 21 心形。 msoShapeHexagon 10 六边形。 msoShapeHorizontalScroll 102 横卷形。 msoShapeIsoscelesTriangle 7 等腰三角形。 msoShapeLeftArrow 34 左箭头。 msoShapeLeftArrowCallout 54 带左箭头的标注。 msoShapeLeftBrace 31 左大括号。 msoShapeLeftBracket 29 左括号。 msoShapeLeftRightArrow 37 左右双向箭头。 msoShapeLeftRightArrowCallout 57 带左右双向箭头的标注。 msoShapeLeftRightUpArrow 40 左右上三向箭头。 msoShapeLeftUpArrow 43 左上双向箭头。 msoShapeLightningBolt 22 闪电形。 msoShapeLineCallout1 109 带边框和水平标注线的标注。 msoShapeLineCallout1AccentBar 113 带水平强调线的标注。 msoShapeLineCallout1BorderandAccentBar 121 带边框和水平强调线的标注。 msoShapeLineCallout1NoBorder 117 带水平线的标注。 msoShapeLineCallout2 110 带对角直线的标注。 msoShapeLineCallout2AccentBar 114 带对角标注线和强调线的标注。 msoShapeLineCallout2BorderandAccentBar 122 带边框、对角直线和强调线的标注。 msoShapeLineCallout2NoBorder 118 不带边框和对角标注线的标注。 msoShapeLineCallout3 111 带倾斜线的标注。 msoShapeLineCallout3AccentBar 115 带倾斜标注线和强调线的标注。 msoShapeLineCallout3BorderandAccentBar 123 带边框、倾斜标注线和强调线的标注。 msoShapeLineCallout3NoBorder 119 不带边框和倾斜标注线的标注。 msoShapeLineCallout4 112 带 U 型标注线段的标注。 msoShapeLineCallout4AccentBar 116 带强调线和 U 型标注线段的标注。 msoShapeLineCallout4BorderandAccentBar 124 带边框、强调线和 U 型标注线段的标注。 msoShapeLineCallout4NoBorder 120 不带边框和 U 型标注线段的标注。 msoShapeMixed -2 只返回值,表示其他状态的组合。 msoShapeMoon 24 新月形。 msoShapeNoSymbol 19 禁止符。 msoShapeNotchedRightArrow 50 燕尾形右箭头。 msoShapeNotPrimitive 138 不支持。 msoShapeOctagon 6 八边形。

msoShapeOval 9 椭圆形。 msoShapeOvalCallout 107 椭圆形标注。 msoShapeParallelogram 2 平行四边形。 msoShapePentagon 51 五边形。 msoShapePlaque 28 缺角矩形。 msoShapeQuadArrow 39 四向箭头。 msoShapeQuadArrowCallout 59 带四向箭头的标注。 msoShapeRectangle 1 矩形。 msoShapeRectangularCallout 105 矩形标注。 msoShapeRegularPentagon 12 五边形。 msoShapeRightArrow 33 右箭头。 msoShapeRightArrowCallout 53 带右箭头的标注。 msoShapeRightBrace 32 右大括号。 msoShapeRightBracket 30 右括号。 msoShapeRightTriangle 8 直角三角形。 msoShapeRoundedRectangle 5 圆角矩形。 msoShapeRoundedRectangularCallout 106 圆角矩形标注。 msoShapeSmileyFace 17 笑脸。 msoShapeStripedRightArrow 49 尾部带条纹的右箭头。 msoShapeSun 23 太阳。 msoShapeTrapezoid 3 梯形。 msoShapeUpArrow 35 上箭头。 msoShapeUpArrowCallout 55 带上箭头的标注。 msoShapeUpDownArrow 38 上下双向箭头。 msoShapeUpDownArrowCallout 58 带上下双向箭头的标注。 msoShapeUpRibbon 97 中心区域位于弯带末端上方的弯带形横幅。 msoShapeUTurnArrow 42 U 型箭头。 msoShapeVerticalScroll 101 竖卷形。 msoShapeWave 103 波形。


更多相关文档:

自学资料(Excel VBA)[收集整理1].txt

自学资料(Excel VBA)[收集整理1] - 帮助? |?留言交流? |?登录 首页我的图书馆主题阅读精彩目录精品文苑Tags会员浏览好书推荐 自学资料(Excel VBA)[收集整理1...

VBA函数大全(自己整理的).doc

VBA函数大全(自己整理的) - Abs 函数 返回参数的绝对值,其类型和参数相

自己整理了一些VBA基础语句分享给大家.doc

自己整理了一些VBA基础语句分享给大家_计算机软件及应用_IT/计算机_专业资料。...Excel VBA 图表应用技巧、 Excel 教程下载与免费在线学习培训 Excel 的宏不能记录...

自整理VBA有用思路及程序.doc

整理VBA有用思路及程序_计算机软件及应用_IT/计算机_专业资料。部分 ...【整理】word vba学习记... 9页 免费 Excel VBA从外部工作... 2页 ...

机器学习整理.doc

机器学习整理资料 1、学习方法: 二分类:每个分类器只能把样本分为两类。...LIKE: 可用 Like 运算符自定义字符比较函数之类的, 应该是 VBA 的函数. 17、...

excel-vba资料大全精华版.doc

二十二、一个工作薄中有许多工作表如何快速整理出...VBA 相关资料 1、Application.CommandBars("Worksheet...您需要学会利用"录制宏" 的方法来学习宏:点击 ...

学习vba的心得体会.doc

学习vba 的心得体会 篇一:学习 excel 的一些心得...经历数据的整理,数 据的计算,数据的汇总分析,数据...教育资料库 一级教师 622700 37769690 1.2 文档数...

VBA入门的基础语句-详解.txt

VBA入门的基础语句-详解_IT/计算机_专业资料。VBA...vba技术联盟,VBA教程、VBA学习、VBA编程 Selection....如何在vba中操作快捷键整理答案如下: 问: 用VBA...

学习VBA基础知识_图文.ppt

学习VBA基础知识 - VBA基础(2019/3/12) VBA概念 VBA编程基础 VBA常用语句 VBA程序流程控制 数组 1-1 VBA简介 VBA (Visual Basic f...

word vba学习记录.doc

word vba学习记录_计算机软件及应用_IT/计算机_专业资料。很好的word vba入门材料整理】word vba 学习记录 Version:2011-01-14 Author: green-waste (at) ...

vba常用实用技巧整理.doc

1-1 使用 Range 属性 VBA 中可以使用 Range 属性返回单元格或单元格区域,如...自学资料(Excel VBA)[收... 3页 免费 整理CDR的常见问题和实用... 15...

VBA最最精典的教程(基础入门).ppt

百度文库 专业资料 IT/计算机 计算机软件及应用...VBA最最基础入门(整理版) 109页 5财富值 excel_VBA...在介绍学习VBA之前,应该花几分钟录制一个宏。新...

VBA函数大全(自己整理的).docx_图文.pdf

VBA函数大全(自己整理的).docx_IT/计算机_专业资料 暂无评价|0人阅读|0次下载 | 举报文档 VBA函数大全(自己整理的).docx_IT/计算机_专业资料VBA函数 ...

VBA实战加班记录数据整理.doc

VBA实战加班记录数据整理_计算机软件及应用_IT/计算机_专业资料。Sub 加班记录数据整理() Application.Calculation = xlCalculationManual '关闭自动计算以加快运行...

2011Excel&VBA自学集.pdf

2011Excel&VBA自学集 - VBA 程序集(第 1 辑) 程序

VBA最最基础入门《原创》.pdf

VBA最最基础入门(整理版) 109页 5财富值 VBA最最精典的教程(基础入... 59...Excel与VBA程序设计精讲 34页 免费 VBA入门 69页 免费 学VBA的最佳学习资料 ...

VBA数组学习笔记(摘).txt

VBA数组学习笔记(摘)_计算机软件及应用_IT/计算机_专业资料。EXCEL VBA数组操作方法整理VBA数组学习笔记一、数组的分类 按元素数目分:元素数目大小固定的数组和...

整理分组vba 代码--原创.txt

整理分组vba 代码--原创_计算机软件及应用_IT/计算机_专业资料。将excel 文件整理分组 '###代码原创,请勿用于工作以外其他用途---李瑞祥 '###此代码旨在按A列...

04-Excel VBA 学习总结 - 简论集合.doc

04-Excel VBA 学习总结 - 简论集合_计算机软件及应用_IT/计算机_专业资料。Excel VBA 学习总结 - 简论集合 VBA 的对象是有很多共性的,抛开它们所在层次的不同...

VBA字符串用法(自整理).doc

VBA字符串用法(自整理)_计算机软件及应用_IT/计算机_专业资料。参考多个论坛关于VBA字符串函数、用法的神贴和多本VBA参考手册,汇总整理VBA字符串用法大全 ...

更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com