当前位置:首页 >> 计算机软件及应用 >> 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 波形。


更多相关文档:

VBA自学整理资料.doc

VBA自学整理资料 - Sub 计算 A 列数字个数() Dim i As In

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

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

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

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

VBA自学收集.pdf

vba自学收集(一些入门时收... 13页 免费 [Excel]VBA自学收集1 43页 免费 自学资料(Excel VBA)[收集... 3页 免费 VBA自学 42页 免费 VBA自学整理 43页 1...

VBA超详细总结.doc

VBA超详细总结_计算机软件及应用_IT/计算机_专业资料VBA超详细总结 ...VBA 中有对象、方法、属性。理解这些是学习 VBA 的基础。 1、 对象:工作簿、...

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

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

10-Excel VBA 学习总结 - 多行多列数据展示.doc

10-Excel VBA 学习总结 - 多行多列数据展示_计算机软件及应用_IT/计算机_专业资料。Excel VBA 学习总结 - 多行多列数据展示 对于多行多列数据,基本使用 ...

word vba学习记录.doc

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

WORD VBA学习记录.pdf

WORD VBA学习记录_电子/电路_工程科技_专业资料。【整理】word vba 学习记录 Version:2011-01-14 Author: green-waste (at) 163.com 【看帖前...

学习vba的心得体会.doc

经历数据的整理,数 据的计算,数据的汇总分析,数据的展示,到最后的数据报 告...VBA学习 113人阅读 2页 1下载券 VBA学习资料 740人阅读 137页 1下载券 ...

vba常用实用技巧整理.doc

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

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

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

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

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

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

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

2011Excel&VBA自学集.pdf

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

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

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

Excel_VBA程序开发自学text.xls

Excel_VBA程序开发自学text - http://www.hao122.cn/ 本书除对VBA语言的基础语法与对象操作解说外,重点展示如何开发一个独立完善的插件。而非仅 仅局限在通过...

VBA代码收集整理.doc

VBA代码收集整理 - 开始-打印机和传真机-右健该打印机图标-打印首选项-灰度

我的自学之路.pdf

我的自学之路_电脑基础知识_IT/计算机_专业资料。此...《刚君的自学之路》,罗老师是我超喜欢的Excel和VBA...生产部和生管部报表整理 到一个工作簿中,然后分组...

VBA常用语句.doc

VBA常用语句_计算机软件及应用_IT/计算机_专业资料。...vba 技术联盟,VBA 教程、VBA 学习、VBA 编程 ...vba 中操作快捷键 整理答案如下: 问: 用 VBA ...

更多相关标签:
网站地图

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