注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

数据挖掘

学习数据挖掘

 
 
 

日志

 
 

Excel VBA - 自定义数据类型及其它  

2012-09-01 12:02:31|  分类: VBA |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
原文链接:http://blog.csdn.net/alexbnlee/article/details/6923787

→用户自定义数据类型需要使用Type语句

  1. Type lianxiren  
  2.     name As String  
  3.     sex As String  
  4.     age As Integer  
  5.     phone As String  
  6.     address As String  
  7.     department As String  
  8. End Type  
  9. Sub AddressList()  
  10.     Dim record As lianxiren  
  11.     record.name = "Alex"  
  12.     record.sex = "Male"  
  13.     record.age = 23  
  14.     record.phone = "18812345678"  
  15.     record.address = "Blahblah"  
  16.     record.department = "Blahblah"  
  17.     MsgBox record.name  
  18. End Sub  
前面建立一个自定义的数据类型,后面就可以引用

→系统常量指VBA系统内部定义的常量,一般以Vb为前缀开头。
例如:VbRed,VbOKOnly等等~

→Object型数据表示对象的引用,其中存储的内容是一个对象的地址,对于一个Object型变量赋值时,不能直接采用复制语句,而应当利用Set语句为其赋值
Dim Sheet As Object
Set Sheet = Worksheets("sheet1")

→Is 比较两个Object型变量应用的是否是同一个变量,如果是同一个变量,则返回True,否则为False。

→Like举例(与Word中的替换有点相似)

Dim MyCheck MyCheck = "aBBBa" Like "a*a"    ' 返回 TrueMyCheck = "F" Like "[A-Z]"    ' 返回 TrueMyCheck = "F" Like "[!A-Z]"    ' 返回 FalseMyCheck = "a2a" Like "a#a"    ' 返回 TrueMyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' 返回 TrueMyCheck = "BAT123khg" Like "B?T*"    ' 返回 TrueMyCheck = "CAT123khg" Like "B?T*"    ' 返回 False
→暂停语句,Stop语句,语句会在Stop位置停下,再按下运行可以继续运行。。。分号也可以连接字符串,而且会在数字左右加入空格

  1. Sub Stop1()  
  2.     Dim i As Integer  
  3.     For i = 1 To 5  
  4.         Debug.Print "程序第"; i; "次暂停"  
  5.         Stop  
  6.     Next  
  7. End Sub  

  评论这张
 
阅读(567)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017