热线电话: 18611015007 分享到:
首页>新闻中心>详细内容

Office2010里Excel宏的写法

  Excel中宏的录制和运行与Word中宏的操作基本相同,只是Excel中的对象与Word 中的对象不同。

  (1)Excel中的主要对象:

  Application对象代表Excel应用对象,对应用程序的操作可以使用该对象形字

  ActiveWorkbook对象代表当前活动的工作薄,对当前活动工作簿文件的操作可以使用该对象

  Sheets对象代表工作薄中的工作表对象集,可以用来访问指定的工作表。

  Range对象代表工作表中的单元格对象,可以用来访问指定单元格或一个单元格区域

  Cells对象:

  Cells对象代表工作表中的单元格对象集,可以用来访问单元格或一个单元格区域

  Selection对象代表工作表中的选定区域,可以用来对选定区域的操作。

  如下,根据【中华人民共和国国家标准GB11643-1999】中有关公民身份证号码的规定来校验Excel表格中输入信息的正误:

  所编写的宏如下:

  Sub IDcheck() '身份证号码校验函数

  Dim s, i As Integer

  Dim e, z As String

  ‘Part1: '----------------

  ‘------------身份证号码合法性检查---------------------------------------

  Const nRows As Integer = 84 ‘定义数据总行数

  Dim W(1 to 18) As Integer ‘定义加权因子数组

  For i = 2 to nRows

  If Not (Len(Cells(I,2))<>18 Then '位数检验

  IDcheck = "位数错误"

  End if

  Next i

  Exit sub

  '日期检验

  For I =2 to nRows

  CSRQ = Mid(Cells(I,2),7,8)

  If Year(Cells(I,3))<Val(Mid(CSRQ,1,4)) or Month(Cells(I,3))<> _

  Val(Mid(CSRQ,52)) Or Day(Cells(I,3)) <> Val(Mid(CSRQ,7,2))

  Then

  IDcheck = "日期错误"

  Range(Cells(I,1),Cells(I,4)).Select ‘选择出错数据区域

  Exit Sub

  End If

  End If

  Next i

  Part2: '-----------------------------校验码的生成及检查---------------------------------------

  略

  End Sub

  1、 Office中自动运行的以

  例如Word文档的ThisDocument对象有3个自动运行的宏,宏名分别是Document_Open\ Document_Close\ Document_New.

  例如打开一个Word文档时,显示当天的日期、时间和星期

  Dim T As String

  Private Sub Document_Open()

  '

  ' Document_Open 宏

  '

  '

  Dim D As Date, W As String

  Dim INFO As String

  D = Date

  T = Format(Time(), "HH:MM:SS AM/PM")

  Select Case Weekday(D)

  Case 1

  W = "星期天"

  Case 2

  W = "星期一"

  Case 3

  W = "星期二"

  Case 4

  W = "星期三"

  Case 5

  W = "星期四"

  Case 6

  W = "星期五"

  Case 7

  W = "星期六"

  End Select

  INFO = "今天是" & Format(Date, "YYYY年MM月DD日")

  INFO = INFO & vbCrLf & Space(7) & W & vbCrLf

  INFO = INFO & "当前时间是" & T

  MsgBox INFO, vbExclamation, "欢迎你!"

  End Sub


想了解更多?欢迎联系我们
服务邮箱 fei@bjjyhx.cn
周一至周五:9:00-18:00
热线电话 18611015007
周一至周五:9:00-18:00

在线表单

为了便于我们更好的为您服务,情正确填写一下信息,我们会在24小时内与您取得联系,并答复您的需求!

公司名称*
联  系  人*
联系电话*
详细地址*
产品描述*
留言内容*