《word VBA 代码》由会员分享，可在线阅读，更多相关《word VBA 代码（21页珍藏版）》请在金锄头文库上搜索。
1、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 & NowMs
2、gBox 新的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 DateA
3、dd(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.PathE
4、nd 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 &
5、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
6、, 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 =
7、 中国人民,保险公司 逗号换成换行: 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
8、 = 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
9、: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,
10、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
11、 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 & 西风得意乱
12、云追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) =
13、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
