资源预览内容
第1页 / 共21页
第2页 / 共21页
第3页 / 共21页
第4页 / 共21页
第5页 / 共21页
第6页 / 共21页
第7页 / 共21页
第8页 / 共21页
第9页 / 共21页
第10页 / 共21页
亲,该文档总共21页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
VBA_1基本入门代码集 by daode1212 2010-10-20Sub Msg_01()消息框:MsgBox 我们将成为VBA高手!End SubSub Msg_02()消息框,换行:MsgBox 我们将成为: & vbCrLf & VBA高手! & vbCr & VBS高手! & vbLf & ASP高手!End SubSub Msg_03()消息框,双引号:MsgBox 我们将成为VBA高手! & vbCr & Chr(34) & -专家级的高手! & Chr(34)End SubSub Msg_04()消息框,当前时间:MsgBox 新的长征起步于: & vbCr & NowMsgBox 新的VBA高手诞生于: & vbCr & Year(Now) & vbCr & Month(Now) & vbCr & Day(Now)MsgBox 当前日期: & DateMsgBox 当前时间: & TimeMsgBox 当前时钟(秒): & TimerMsgBox 星期(星期日:1,星期一:2): & Weekday(Now)MsgBox DateDiff(d, Date, 1-10-2020) 距2010-01-10的天数=字母所表示的意义= yyyy 年 q 季度 n 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 m 分钟 s 秒=MsgBox DateAdd(yyyy, 50, 01-10-1960) 加了50年的日子仅加上100个星期(700天):MsgBox Date + 7 * 100 再过100个星期是什么日子End SubSub Msg_05()消息框,数学计算:MsgBox 9*8+36/4-Sqr(81)= & vbCr & 9 * 8 + 36 / 4 - Sqr(81)MsgBox 27的立方根= & vbCr & 27 (1 / 3)作业:计算常用几何图形的周长棱长面积体积;End SubSub Msg_06()消息框,当前应用程序路径:MsgBox 当前应用程序路径: & vbCr & Application.PathEnd SubSub Msg_07()消息框,当前文件路径:MsgBox 当前XLS路径: & vbCr & ThisWorkbook.PathEnd SubSub Msg_08()消息框,当前工作簿所有工作表:For Each x In ThisWorkbook.Sheets s = s & x.Name & NextMsgBox 当前工作簿所有工作表: & vbCr & sEnd SubSub Msg_09()消息框,添加五个工作表,显示当前工作簿所有工作表:Sheets.Add , , 5For Each x In ThisWorkbook.Sheets s = s & x.Name & NextMsgBox 当前工作簿所有工作表与图表: & vbCr & sEnd SubSub Msg_10()消息框,求自然数1,2,3,.,2010之和For i = 1 To 2010s = s + iNextMsgBox 自然数1,2,3,.,2010之和是: & s作业:计算1-2010各自然数倒数之和;End SubSub 进制转换_11()10 - 16:MsgBox Hex(255)16 - 10:MsgBox &HFFEnd SubSub 子串在第几个位置_12()不能找到的:MsgBox InStr(12345, x) 输出:0找到的位置:MsgBox InStr(12345, 5) 输出:5找到的位置:MsgBox InStr(12345, 12) 输出:1从右边向左边搜索,每一次查到的字符位置(位置从左向右计,从1开始)MsgBox InStrRev(1234512, 2) 输出:7End SubSub 左中右_13() mystr = 中国人民保险公司 MsgBox Left(mystr, 2) MsgBox Mid(mystr, 3, 4) MsgBox Right(mystr, 2)End SubSub 翻转字符串_14()mystr = 中国人民保险公司MsgBox StrReverse(mystr)End SubSub 替换_15() mystr = 中国人民,保险公司 逗号换成换行: out = Replace(mystr, , vbCr) MsgBox outEnd SubSub Input01()输入框:s = InputBox(请输入你的大名, 姓名输入, daode1212)MsgBox s & -你一定会成为VBA高手的!End SubSub Input02()输入框:单元格写入内容:s = InputBox(请输入你的大名, 姓名输入, 项道德)Sheet1.Cells(1, 1) = sMsgBox Sheet1 中的 A1 单元格已经写入内容: & sEnd SubSub Input03()输入框:多个单元格写入内容:s = InputBox(要在A1:C10中写入什么?, 内容输入, 嫦娥二号)Sheet1.Range(A1:C10) = sMsgBox Sheet1 中的 A1:C10 单元格已经写入内容: & sEnd SubSub Input04()输入框:多个单元格写入内容:s = InputBox(在那一范围内写入内容?, 内容输入, A1:C10)Sheet1.Range(s) = RndMsgBox Sheet1 中的 & s & 单元格已经写入内容: & sEnd SubSub Input05()输入框:多个单元格写入内容:s = InputBox(在那一范围内写入内容?, 内容输入, A1:C10)For Each x In Sheet1.Range(s) v = Int(Rnd * 10000) / 100 x.Value = vNextMsgBox Sheet1 中的 & s & 单元格已经写入内容1-100作业:在一定范围内生成随机整数:60-100作业:在一定范围内生成随机数(两位小数):0.00-9999.99作业:在一定范围内生成小图案(利用webdings,Wingdings字符)End SubSub Input06()输入框:拆解身份证号:s = InputBox(请输入身份证号码, 内容输入, 330523197811220018)y = Mid(s, 7, 4)m = Mid(s, 11, 2)d = Mid(s, 13, 2)Sheet1.Cells.ClearSheet1.Cells(1, 1) = 年Sheet1.Cells(1, 2) = 月Sheet1.Cells(1, 3) = 日Sheet1.Cells(2, 1) = ySheet1.Cells(2, 2) = mSheet1.Cells(2, 3) = dMsgBox 年-月-日 已经分解!作业:设计并拆解考生号;End SubSub Input07()字符串转变为数组:s = InputBox(请输入二个整数, 内容输入, 33,18)A = Split(s, ,)MsgBox A(0) + A(1) 等同于: a(0) & a(1)End SubSub Input08()字符串转变为数组:s = InputBox(请输入二个整数, 内容输入, 33,18)A = Split(s, ,)Sheet1.Range(B4:B5) = AMsgBox CInt(A(0) + CInt(A(1) 已经转为整数了B6 = CInt(A(0) + CInt(A(1)作业:输入十个整数,并求出它们的平均数.End SubSub Input09()生成模拟考生数据:s = InputBox(请输入学生数, 内容输入, 100)z = z & 残叶飘零冷雨飞z = z & 西风得意乱云追z = z & 暮来漫漫梨花落z = z & 晨起茫茫玉宇堆z = z & 洗净铅华出本色z = z & 扫开烟霭露余晖z = z & 梅香不染枝方俏z = z & 雪重难压我自岿c = Len(z)Sheet1.Cells(1, 1) = 姓名Sheet1.Cells(1, 2) = 语文Sheet1.Cells(1, 3) = 数学For i = 2 To CInt(s) + 1 Sheet1.Cells(i, 1) = 项 & Mid(z, Int(c * Rnd) + 1, 1) & Mid(z, Int(c * Rnd) + 1, 1) Sheet1.Cells(i, 2) = 40 + Int(60 * Rnd) Sheet1.Cells(i, 3) = 10 + Int(90 * Rnd)NextMsgBox 生成模拟考生数据生成完毕!作业:生成模拟单位员工名册End SubSub Input10()数组转变为字符串:Dim A()s = InputBox(请输入一个整数, 内容输入, 50)c = CInt(s)ReDim A(c)For i = 0 To c A(i) = Chr(32 + i)Nexts = Join(A, )MsgBox s作业:测试 Chr(-24414 + i)End SubSub Input11()Select-Case用法:Dim A()s = In
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号