word VBA 代码
更新时间:2023-09-11 21:26:01 阅读量: 教育文库 文档下载
- word怎么删除空白页推荐度:
- 相关推荐
'''VBA_1基本入门代码集
''' by daode1212 2010-10-20
Sub Msg_01() '''消息框:
MsgBox \我们将成为VBA高手!\End Sub
Sub Msg_02() '''消息框,换行:
MsgBox \我们将成为:\高手!\高手!\高手!\End Sub
Sub Msg_03()
'''消息框,双引号:
MsgBox \我们将成为VBA高手!\专家级的高手!\End Sub
Sub Msg_04()
'''消息框,当前时间:
'MsgBox \新的长征起步于:\
'MsgBox \新的VBA高手诞生于:\'MsgBox \当前日期:\'MsgBox \当前时间:\
'MsgBox \当前时钟(秒):\
'MsgBox \星期(星期日:1,星期一:2):\
'MsgBox DateDiff(\距2010-01-10的天数 ''==================字母所表示的意义===================== '' yyyy 年 '' q 季度 '' n 月
'' y 一年的日数 '' d 日
'' w 一周的日数 '' ww 周 '' h 小时 '' m 分钟 '' s 秒
''=========================================== ''
'''MsgBox DateAdd(\加了50年的日子 '''仅加上100个星期(700天):
'MsgBox Date + 7 * 100 '''再过100个星期是什么日子 End Sub
Sub Msg_05()
'''消息框,数学计算:
MsgBox \MsgBox \的立方根=\
'''作业:计算常用几何图形的周长\\棱长\\面积\\体积; End Sub
Sub Msg_06()
'''消息框,当前应用程序路径:
MsgBox \当前应用程序路径:\End Sub
Sub Msg_07()
'''消息框,当前文件路径:
MsgBox \当前XLS路径:\End Sub
Sub Msg_08()
'''消息框,当前工作簿所有工作表: For Each x In ThisWorkbook.Sheets s = s & x.Name & \Next
MsgBox \当前工作簿所有工作表:\End Sub
Sub Msg_09()
'''消息框,添加五个工作表,显示当前工作簿所有工作表: Sheets.Add , , 5
For Each x In ThisWorkbook.Sheets s = s & x.Name & \Next
MsgBox \当前工作簿所有工作表与图表:\End Sub
Sub Msg_10()
'''消息框,求自然数1,2,3,...,2010之和 For i = 1 To 2010 s = s + i Next
MsgBox \自然数1,2,3,...,2010之和是:\'''作业:计算1---2010各自然数倒数之和; End Sub
Sub 进制转换_11() '''10 --> 16: MsgBox Hex(255)
'''16 --> 10: MsgBox &HFF End Sub
Sub 子串在第几个位置_12() '''不能找到的:
'MsgBox InStr(\输出:0 '''找到的位置:
'MsgBox InStr(\输出:5 '''找到的位置:
'MsgBox InStr(\输出:1
'''从右边向左边搜索,每一次查到的字符位置(位置从左向右计,从1开始) 'MsgBox InStrRev(\输出:7 End Sub
Sub 左中右_13()
mystr = \中国人民保险公司\ MsgBox Left(mystr, 2) MsgBox Mid(mystr, 3, 4) MsgBox Right(mystr, 2) End Sub
Sub 翻转字符串_14()
mystr = \中国人民保险公司\MsgBox StrReverse(mystr) End Sub
Sub 替换_15()
mystr = \中国人民,保险公司\ '''逗号换成换行:
out = Replace(mystr, \ MsgBox out End Sub
Sub Input01() '''输入框:
s = InputBox(\请输入你的大名\姓名输入\MsgBox s & \你一定会成为VBA高手的!\End Sub
Sub Input02()
'''输入框:单元格写入内容:
s = InputBox(\请输入你的大名\姓名输入\项道德\Sheet1.Cells(1, 1) = s
MsgBox \中的 A1 单元格已经写入内容:\End Sub
Sub Input03()
'''输入框:多个单元格写入内容:
s = InputBox(\要在A1:C10中写入什么?\内容输入\嫦娥二号\Sheet1.Range(\
MsgBox \中的 A1:C10 单元格已经写入内容:\End Sub
正在阅读:
word VBA 代码09-11
表面化学第1阶段测试题10-11
氨制冷系统低温压力管道材料问题的探讨03-11
S2-Win200304-23
华数奥赛教材四年级上册练习题 - 图文12-06
西门子PLC电梯控制毕业设计05-27
中国移动 集团专线业务介绍05-01
企业所得税年报怎么填07-31
部门加人申请02-24
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 代码
- word
- VBA
- 2018年高考化学第一轮复习专题有机物的性质、推断、鉴别与合成习题苏教版
- 铝合金门窗制作、安装工艺流程
- 北京市民政局关于印发《北京市民政行政处罚裁量基准》的通知
- 苍岭镇中心小学平安创建(2010.09)
- 2010理论强化班杨帆三国法讲义 - 图文
- 永合丽园施工组织设计
- 汉初黄老之学的内涵及其兴盛原因
- 低碳节能知识问答
- 浙教版,品德与社会,六年级下册知识点复习大全
- 花生简介 - 图文
- 巴中市人民政府办公室关于印发巴中市投资建设项目和企业设立并
- 煤气安全管理作业要点
- 英语六级水平备考雅思冲7分的规划方案 - 图文
- 经济管理实习报告30页(1)
- 人教版高中英语必修四高一英语(模块3)期中测验试题
- 新常态下中国瓦楞纸箱印刷成套设备市场风险因素分析
- 探讨英语教学中学案导学的应用
- 江苏省泰州市泰兴中学2015-2016学年高二(上)段考物理试卷(必修)(10月份)(解析版)
- 电子技术课程设计:延时开关电路
- 颠茄植物提取生产线及规范化种植基地项目可行性研究报告