《word VBA 代码.pdf》由会员分享,可在线阅读,更多相关《word VBA 代码.pdf(3页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、word VBAword VBA 代码代码 wordvba 代码 vba_1 基本入门代码集 bydaode12122021-10-20 submsg_01()消息框:msgbox我们将沦为 vba 高手!endsub submsg_02()消息框,换行:msgbox我们将沦为:高手!高手!高手!endsub submsg_03()消息侧边,双引号:msgbox我们将成为 vba 高手!专家级的高手!endsub submsg_04()消息框,当前时间:msgbox代莱长征起步于:msgbox新的 vba 高手诞生于:msgbox当前日期:msgbox当前时间:msgbox当前时钟(秒):ms
2、gbox星期(星期日:1,星期一:2):msgboxdatediff(距 2021-01-10 的天数=字母所则表示的意义=yyyy 年q 季度n 月 y 一年的日数d 日 w 一周的日数ww 周h 小时m 分钟s 秒 =msgboxdateadd(提了 50 年的日子仅加之 100 个星期(700 天):msgboxdate+7*100再过 100 个星期是什么日子 endsub submsg_05()消息框,数学计算:msgboxmsgbox的立方根=作业:计算常用几何图形的周长棱长面积体积;endsub submsg_06()消息框,当前应用程序路径:msgbox当前应用程序路径:end
3、sub submsg_07()消息侧边,当前文件路径:msgbox当前 xls 路径:endsub submsg_08()消息框,当前工作簿所有工作表:foreachxinthisworkbook.sheetss=s&x.name&next msgbox当前工作簿所有工作表:endsub submsg_09()消息侧边,嵌入五个工作表,表明当前工作簿所有工作表:sheets.add,5 foreachxinthisworkbook.sheetss=s&x.name&next msgbox当前工作簿所有工作表与图表:endsub submsg_10()消息侧边,谋自然数 1,2,3,.,2021
4、 之和 fori=1to2021s=s+inext msgbox自然数 1,2,3,.,2021 之和是:作业:计算 1-2021 各自然数倒数之和;endsub sub 十进制切换_11()10-16:msgboxhex(255)16-10:msgbox&hffendsub sub 子串在第几个边线_12()无法找出的:msgboxinstr(输出:0找到的位置:msgboxinstr(输入:5找出的边线:msgboxinstr(输出:1 从右边向左边搜寻,每一次搜到的字符边线(边线从左向右计,从 1 已经开始)msgboxinstrrev(输入:7endsub sub 左中右_13()my
5、str=中国人民保险公司msgboxleft(mystr,2)msgboxmid(mystr,3,4)msgboxright(mystr,2)endsub sub 翻转字符串_14()mystr=中国人民保险公司msgboxstrreverse(mystr)endsub sub 替换_15()mystr=中国人民,保险公司逗号改成下划线:out=replace(mystr,msgboxoutendsub subinput01()输入框:s=inputbox(请输入你的大名姓名输入msgboxs&你一定会成为 vba 高手的!endsub subinput02()输入框:单元格写入内容:s=inputbox(恳请输出你的大名姓名输出项道德sheet1.cells(1,1)=s msgbox中的 a1 单元格已经写入内容:endsub subinput03()输入框:多个单元格写入内容:s=inputbox(必须在 a1:c10 中载入什么?内容输出嫦娥二号sheet1.range(msgbox中的 a1:c10 单元格已经写入内容:endsub
限制150内