1.VBA 基本概念——《Excel VBA 程序开发自学宝典》

1.1 常见对象及含义

对象名	含义
application	整个Excel应用程序
window	窗口
worksheet	一个工作表
sheets	指定工作簿的所有工作表的合集
shaperange	形状区域
pivottable	数据透视表
workbook	工作簿
shape	绘图层中的对象
range	某一单元格、行、列、选定区域
name	单元格区域的定义名
chart	图表
filedialog	文件对话框
commandbarpopup	命令栏上一个弹出式控件
commandbar	一个命令栏

 

 

 

 

 

 

 

 

 

 

                                                                                                                                                                               

1.2 worksheets方法一览

名称	说明
add	新建工作表
copy	将工作表复制到工作簿另一位置
delete	删除对象
fileacrosssheets	将单元格区域复制到集合中所有其他工作表同一位置
move	将工作表移到工作簿其他位置
printout	打印对象
printpreview	打印预览
select	选择对象

 

 

 

 

 

 

                                                                                                                                                                                         

1.3 事件分类

对象	事件
application	应用程序事件
workbook	工作簿事件
worksheet	工作表事件
chart	图表事件
userform	窗体事件
label	标签事件（窗体中的控件）
image	图像事件

 

 

 

 

 

 

                                                                                                                                                                                                                                                                                             1.4 字符处理函数

关键字	作用
strcomp	字符串相似判断
strconv	字符串类型转换
lcase   ucase	大小写变换
space   string	重复字符串
len	计算字符串长度
format	设置字符格式
lset   rset	重排字符串
instr   left   ltrim   mid   right   rtrim   trim  like	处理字符串
split   jion	拆分与连接字符串

 

 

 

 

 

 

 

                                                                                                                                                                              实例

---

   sub strcomp运算()

  msgbox strcomp("ABCD","abcd",1)      '参数1以文本比较方式，不区分大小写，返回0，表示相等

  msgbox strcomp("ABCD","abcd",0)      '参数0以二进制比较，返回-1，表示前者小于后者

  end sub

---

  sub strconv运算()

  msgbox strconv("English",vbuppercase)     '转成大写

  &chr(10)  &   strconv("English",vblowercase)      '转成小写

  &chr(10)  &   strconv("English",vbpropercase)      '只开头转大写

  end sub

---

   sub 大小写转换()

  msgbox lcase("HELLO")

  msgbox ucase("hello")

  end sub

---

   sub  重复n次()

  msgbox string(5,"*")     '返回“*****”

  msgbox string(4,"中国")      '返回“中中中中”只重复左边一位

  end sub

---

   private sub textbox1_change()

    if len(textbox1.text)>0 then

      if right(textbox1.text,1) like "[a-z]" then exit sub else me.textbox1=left(textbox1.text,len(textbox1.text)-1)       'like的用法，具体找帮助文档

    end if

  end sub