内容发布更新时间 : 2024/11/14 12:56:10星期一 下面是文章的全部内容请认真阅读。

'''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