Excel VBA 从入门到精通

1、ACtion        代表要在数据透视表中执行的操作

2、Chartview       代表图表的视图

3、ColorScale   代表色阶条件格式规则

4、Databar    代表数据条件格式规则

5、HeaderFooter    代表一个单独的页眉或者页脚

6、IconSetCondition    代表图标集条件格式规则

7、Tableatyle    代表可应用于表格的单个样式

1、ShowDevTools   返回或者设置一个Boolean值，
该值表示是否在功能区中显示“开发工具”选项卡。可读写Boolean类型

2、ShowMenuFloaties    返回或设置一个Boolean值，
该值表示当用户在工作簿窗口中按鼠标中键时是否显示浮动工具栏。可读写Boolean类型

3、ShowSelectionFloaties    该值 表示当用户选择文本时是否显示浮动工具栏。

4、MeasurementUnit     指定应用程序中使用度量单位

5、FormulaBarHeight     指定用户指定行中编辑栏的高度。

1、ApplyCharTemplate    将标准图表类型或自定义图表类型应用于图表

2、ApplyLayout    应用功能区中显示的版式

3、ExportAsFixedFormat    用于将指定格式的文件导出

4、ModifyAppliesToRange    设置此格式规则所应用于的单元格区域

1、编译错误

2、运行时错误

插入与清除断点

1）Excel加载宏

2）Com加载宏

3）自动化加载宏

1）分析工具库

2）分析工具库-VBA函数

3）条件求和向导

4）欧元转换工具

5）Internet Assistant VBA

6）查找向导

7）规划求解

1）避免命名冲突。

2）长度不能超过255个字符

3）首字母必须是英文或者汉字，名字中不能包含空格、句号、惊叹号，也不能包含字符@、&、$、#

1）布尔型（Boolean）
其值只能是True或False。

2）字节型（Byte）
存储单精度型、无符号整型、1个字节的数值形式，取值范围是0~255之间的无符号数。

3）货币型（Currency）
存储为8个字节，是整型的数值形式，是一种比例数据模型。

4）日期型（Date）
占用8个字节，用来存储日期和时间的数据类型。
任何可辨认的文本日期都可以赋值给Date变量

5）小数型（Decimal）
存储为12个字节带符号的整型形式，并除以一个10的幂数

6）双精度型（Double)
存储为8个字节的浮点数值。双精度型的声明字符是数字符号#。

7）整型（Integer）
存储为两个双字节的数值形式。
整型声明使用百分比符号（%）

8）长整型（Long）
存储为32位（4个字节）有符号的数值形式，长整型声明字符为和号（&）。

9）对象型（Object）
存储为4个字节的地址形式，其为对象的引用。利用Set语句声明为对象型的变量。

10）单精度浮点型（Single）
存储为4个字节浮点数值。其声明字符为感叹号（！）

11）字符串型（String）
有两种：变长字符串与定长字符串，其声明字符为美元符号（$)

12） 变体型（Variant）
未被显式声明的（如Dim、Private、Public或者Static）
其他类型变量的数据类型。可以用VarType()函数或TypeName()函数来决定如何处理变体型中的数据。

Type<类型名>
      <元素名1> As <类型1>
      <元素名2> As <类型2>
    ....
      <元素名n> As <类型n>
end Type

语法结构：
Dim [WithEvents] varname [([subsripts])] [As [new] type] [,[WithEvents] varname [([subscripts])] [As [new] type]]...
withevents：可选参数，可以声明任意个单变量，但不能声明数组，也不能和New一起使用
VarName：必要参数，指变量的名称
Subscripts：可选参数，表示数组变量的维数，最多可定义60多维数组。
New：可选参数，表示可隐式地创建对象关键字。
Type：可选参数，表示变量的数据类型，所声明的每一个变量都要有一个单独的As Type子句。

语法结构同Dim。
在式个模块或者程序过程中调用同一个变量时，Dim语句声明不能达到要求。
可以在不同模块中调用公用变量。

语法结构：
Private [WithEvents] varname [([subsripts])] [As [new] type] [,[WithEvents] varname [([subscripts])] [As [new] type]]...
withevents：可选参数，可以声明任意个单变量，但不能声明数组，也不能和New一起使用
VarName：必要参数，指变量的名称
Subscripts：可选参数，表示数组变量的维数，最多可定义60多维数组。
New：可选参数，表示可隐式地创建对象关键字。
Type：可选参数，表示变量的数据类型，所声明的每一个变量都要有一个单独的As Type子句。

*将变量声明为私有变量，一旦不在同一模块中使用，则变量为无效变量

Dim，过程级别，只能在过程运行中使用。

Private，模块级别，只能在同一模块中使用

Public，工程级别，在整个工程中都可以调用。

Static，过程级别。在过程运行中起作用、

'定义常量
Const Price1 as Currency=125
Const Price2 as Currency=254
Const Price3 as Currency=186
Const Price4 as Currency=147
Const S_Name1 as String="产品A"
Const S_Name2 as String="产品B"
Const S_Name3 as String="产品C"
Const S_Name4 as String="产品D"

sub a()
dim PNum as integer
dim sht as worksheet
set sht=worksheets("sheet1")
dim I as integer
dim Per1 ,Per2,Per3,Per4 as single
I=2
Do
       If sht.cells(I,3)=S_Name1 then
           Per1=sht.cells(I,4)*Price1
       end if
       If sht.cells(I,3)=S_Name3 then
           Per3=sht.cells(I,4)*Price3
       end if
       If sht.cells(I,5)=S_Name2 then
           Per2=sht.cells(I,6)*Price2
        end if
       If sht.cells(I,5)=S_Name4 then
           Per1=sht.cells(I,6)*Price4
       end if
sht.cells(I,7)=Per1+Per2+Per3+Per4
if Per1+Per2+Per3+Per4>10000 then
   PNum=PNum+1
end if
i=I+1
Loop until sht,cells(I,2)=""
sht.Range("B7")=PNum
end sum

1、”+“运算符可以进行加法运算。

2、”&“运算符用于实现两个表达式进行字符串的强制连接

const mylevel1 as single=1200
const mylevel2 as single=1000
const mylevel3 as single=800

sub a()
dim sht as worksheet
set sht =worksheets("sheet1")
dim I as Integer,Per as Single
I=2
Do
   If sht.Cells(I,5)="A" then
   Per=mylevel1
elseif sht.cells(I,5)="B" then 
  Per=mylevle12
else 
  Per=mylevel3
end if
sht,cells(I,6)=sht.cells(I,4)+Per
I=I+1
Loop Until sht.cells(I,1)=""
end sub

例：检测图书逾期情况
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim myStr as string
if sht.range("C3")+sht.range("D3")>sht.range("E3") then
  myStr="按时归还"
else
  myStr="逾期"
end if
sht.range("F3")=myStr
end if

例：检测图书逾期情况
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim myStr as string
dim I as Integer
I=3
Do
if sht.cells(I,3)+sht.cells(I,4)>sht.cells(I,5) then
myStr="按时归还"
else
myStr="逾期"
end if
sht.cells(I,6)=myStr
I=I+1
Loop until sht.cells(I,1)=""
end sub

例：设置单元格格式
sub a()
dim sht as worksheet
dim Myrange as range
set sht=worksheets("明细表")
set Myrange=sht.range("A2:K15")
Myrange.select
with selection
       .Font.name="黑体"
      .Font.Size=13
      .Borders.Linestyle=xlContinuous
      .Columns.Autofit
      .RowHeight=22
 end with
end sub

1、使用单引号(')

2、使用语句标识注释。Rem

语法结构：
On Error Goto line
line:为必选参数，可以是任何行标签或行号。指定的line必须在同一个过程中，

sub a()
on error Resume Next
dim sht as worksheet
for each sht in worksheets
if sht.name="档案机密" then
sht.name="机密文件"
exit sub
end if
next sht
worksheets.add
activesheet.Name="机密档案"
msg:
msgbox "档案中不存在机密档案工作表"
end sub

语法结构：
InputBox(prompt [,title] [,default] [,xpos] [,ypos] [,helpfile,context])
Prompt：必选，作为对话框消息出现的字符串表达式。
Title：可选，显示在对话框标题栏中的字符串表达式。
          如果省略，则把应用程序名放入标题栏。
Default：可选，显示文本框中的字符串表达式，如果省略，则文本框为空。
Xpos：可选，其值是数值表达式，是成对出现的。用于指定对话框左边缘与屏幕左边的距离。
             如果省略，则对话框会水平居中。
Ypos：可选，其值是数值表达式，是成对出现的。用于指定对话框上边缘与屏幕上边的距离。
           如果省略，则对话框放置在屏幕垂直方向距下边大约三分之一的位置。
Helpfile：可选。用于识别帮助文件，提供上下文相关的帮助
Context：可选，由帮助文件的作者指定给某个帮助主题的上下文编号。

语法结构：
Object.InputBox(Prompt,Title,Default,Left,Top,Helpfile,HelpContextID，Type)
Object： 必选。是指一个代表Application对象的变量。
Prompt：必选。要在对话框中显示的信息，可为字符串、数字、日期或布尔值。
Title：可选。文本框的标题。省略时，默认为Input。
Default：可选。该值在对话框最初暗淡无光时出现在文本框中，省略时，默认为空。
Left：可选，相对于屏幕左上角Xr坐标。
Top:可选，相对于屏幕左上角的Y坐标。
HeipFile：可选。
HelpContextID：可选。
Type：可选。省略时，默认为对话框将返回文本。

Type参数值及其含义：
1) 0：公式
2) 1：数字
3) 2：文本（字符串）
4) 4：逻辑值（True或者False）
5）8：单元格引用，作为一个Range对象
6）16：错误值，如#/A
7）64：数值数组

例：交互式清除内容
sub a()
dim MyRange as Range
set MyRange=application.InputBox("选取需要清除的单元格","选取单元格",Type:=8)
dim Myclear as Integer
MyClear=MsgBox("是否清除选定单元格区域中的内容，YES/No？",vbOkCancel+vbQuestion,Title:="清除内容")
if MyClear=1 then
MyRange.clearContents
end if
end sub

例：提取员工称呼
Const Bstr as string="先生"
Const Gstr as String="女士"

sub a()
    Dim sht as worksheet
    set sht worksheets("sheet1")
    dim I as Integer
    dim as myName as string
I=3
Do
   if left(sht.cells(I,2)=4 then
    myName=Left(sht.cells(I,2),2)
else
    myName=Left(sht.cells(I,2),1)
end if
  if sht.celss(I,3)="男" then
      sht.cells(I,10)=myName & Bstr
else
     sht.cells(I,10)=myName & Gstr
end if
I=I+1
loop Until sht.cells(I,1)=""
end sub

例：录入津贴补助
sub a()
dim sht as worksheet
dim I as Integer
set sht=worksheets("sheet1")
I=3
Do
if sht,cells(I,4)="总裁" then
    sht.cells(I,10)=2000
elseif sht,cells(I,4)="副董" then
sht.cells(I,10)=1000
elseif sht,cells(I,4)="经理" then
sht.cells(I,10)=800
elseif sht,cells(I,4)="主任" then
sht.cells(I,10)=500
elseif sht,cells(I,4)="助理" then
sht.cells(I,10)=200
else
   sht,cells(I,10)=100
end if
I=I+1
Loop until sht.cells(I,1)=""
end sub

例：录入津贴补助
sub a()
dim sht as worksheet
dim I as Integer
set sht=worksheets("sheet1")
I=3
Do
select Case sht,cells(I,4)
case "总裁" 
  sht.cells(I,10)=2000
case "副董" 
  sht.cells(I,10)=1000
Case "经理" 
sht.cells(I,10)=800
case "主任" 
sht.cells(I,10)=500
Case "助理" 
sht.cells(I,10)=200
case else
sht,cells(I,10)=100
end select
I=I+1
Loop until sht.cells(I,1)=""
end sub

例：根据员工业绩进行考核
sub a()
dim sht as worksheet
dim I as Integer
set sht=worksheets("sheet1")
I=3
Do
 if sht.cells(I,3)="市场部" then
   select Case sht.cells(I,4)
       case is >10000
    sht.cells(I,5)="A"
    sht.cells(I,6)=500
       case is >6000
    sht.cells(I,5)="B"
    sht.celss(I,6)=200
        Case is >3000
    sht.celss(I,5)="C"
    sht.Celss(I,6)=100
   Case else
    sht.cells(I,5)="不达标"
   sht.celss(I,6)=-500
   sht.cells(i,6).Font.ColorIndex=3
end select
end if
end sub

1)例：在A列从A1开始输入1-10的数字
sub a()
dim i as integer
for i=1 to 10
range("A:"& i)=i
next i
end sub

2）例：统计各部门人数
sub a()
dim sht as worksheet
dim Num as integer
sht=worksheet(1)
Num=sht.range("A2:A164").currentRegion.rows.count
dim AdmStr,PerStr,SalStr,PrStr,TecStr,PrdStr,PrpStr,MarStr as integer
for i=3 to Num
    select case sht.cells(i,5)
             case "行政部"
                    AdmStr=AdmStr+1
...
    end select
next i
end  sub

1）例：统计各部门人数。
sub a()
dim sht as worksheet
dim Num，i as integer
set sht=worksheets("sheet1")
Num=sht.range("A2:A164").currentRegion.rows.count
dim AdmStr,PerStr,SalStr,PrStr,TecStr,PrdStr,PrpStr,MarStr as integer
i=3
Do 
select case sht.cells(i,5)
case "行政部"
AdmStr=AdmStr+1
...
end select
Loop while sht.cells(i,1)<>""
end sub

例：突出显示员工的工资额。
sub a()
Dim myRange as range,RowN as Integer
dim sht as worksheet
set sht=worksheets("sheet1")
RowN=sht.range("A1").currentRegion.rows.count
set myRange=sht.Range(sht.cells(2,7),sht.cells(RowN,7))
for each one in myRange
    if one.value>2000 then
      one.Font.ColorIndex=3
    end if 
  Next one
end sub

例：格式化表格的填充颜色（隔行）：
 sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim RowN as integer,Col as Integer
RowN=sht.range("A1").currentRegion.Rows.count
Col=sht.range("A1").CurrentRegion.columns.count
For i=3 to RowN Step 2
      For J=1 to Col step 2
     sht.cells(i,j).interior.color=RGB(255,204,255)
      Next j
Next i

例：检测员工是否有休假。
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim I as integer
I=3
Do
sht.cells(I,5)=iif(Cint((Now()-sht.cells(I,4)))>365,"休假","无休假")
     I=I+1
  Loop until sht.Cells(I,1)=""
end sub

例：根据员工入职年限，计算休假天数
sub a()
dim sht as worksheet|
set sht=worksheets("sheet1")
dim I as Integer:I=3
dim Wdays as Integer
Do
   Wdays=CInt((Now()-sht.cells(I,4)))
sht.cells(I,6)=Switch(Int(Wdays/365)=1,5,_
                      Int(Wdays/365)=2,8,_
                      Int(Wdays/365)=3,10,_
                      Int(Wdays/365)>3,15)
   I=I+1
  Loop Until sht.cells(I,1)=""
end sub

例：将员工休假天数以中文显示出来。
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim I as Integer:I=3
dim myInt,myDays as Integer
Do
    myDays=sht.cells(I,6)
    myInt=Switch(myDays=0,0,myDays=5,1,_
                 myDays=8,2,myDays=10,3,myDays=15,4)
    sht.cells(I,7)=choose(myInt+1,"零天","伍天","捌天","拾天","壹拾伍天")
   I=I+1
Loop until sht.cells(I,1)=""
end sub

例：一键调整单元格区域内格式
sub a()
with selection
        .Font.Name="黑体"
        .Font.Size=13
        .Font.Bold=True
        .Interior.Color=Rgb(255.204.255)
        .Columns.Autofit
        .HorizontalAlignment=XlCenter
        .VerticalAlignment=Xlcenter
end with
end sub

例：统计市场部男员工人数
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim I,PeoN as Integer
I=3
Do
    if sht.cells(I,5)="市场部" then
        if sht.cells(I,3)="男" then
                    PeoN=PeoN+1
       end if
    I=I+1
Loop Until sht.cells(I,1)=""
MsgBox "市场部男职工人数:"& PeoN
end sub

语法结构：
Dim <数组名> ([索引下界 to] 索引下界) as <数据类型>

数组名：是一个标识符，它的命名规则与变量命名规则相同。
索引下界：指数组中索引号的最小值。
索引上界：指数组中索引号的最大值。索引上界值必须大于下界值。
数据类型：是指常见的12类基本数据类型。

语法结构：
Dim <数组> (行数,列数) as <数据类型>

行数、列数是定义二维数组必不可少的参数，行数与列数拥有各自的索引下界与索引上界值。
例如：Dim MyArray（3，4） as string 即表明MyArray为二维数组，且能存放4行5列的数据，
默认索引下界值为0.

例：利用数组存放基本工资
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim myArray(4,2)
for i=1 to 4
     for j=1 to 2
           myArray(i,j)=sht.cells(i+1,j+8)
      next j
    next i
end sub

例：计算业绩提成
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim myArray(4) as single
  for i=0 to 4
    myArray(i)=sht.cells(i+2,7)
next i
dim RowN as Integer
RowN=2
Do
    select case sht.cells(RowN,3) 
    case is>100000
    sht.cells(RowN,4)=sht.cells(RowN,3)*myArray(0)
     case is>50000
     sht.cells(RowN,4)=sht.cells(RowN,3)*myArray(1)
     case is>30000
     sht.cells(RowN,4)=sht.cells(RowN,3)*myArray(2)
      case is>10000
      sht.cells(RowN,4)=sht.cells(RowN,3)*myArray(3)
       case else
      sht.cells(RowN,4)=sht.cells(RowN,3)*myArray(4)
end select
RowN=RowN+1
Loop Until sht.cells(RowN,1)=""
end sub

例：计算业绩提成
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
myArray=array(0.018,0.014,0.011,0.0086,0.00057)
dim Rown as Integer
Rown=2
Do
   select case sht.cells(Rown,3)
    case is >=100000
    sht.cells(Rown,4)=sht.cells(Rown,3)*myArray(0)
    case is >=50000
    sht.cells(Rown,4)=sht.cells(Rown,3)*myArray(1)
     case is >=30000
     sht.cells(Rown,4)=sht.cells(Rown,3)*myArray(2)
     case is >=10000
     sht.cells(Rown,4)=sht.cells(Rown,3)*myArray(3)
     case else 
      sht.cells(Rown,4)=sht.cells(Rown,3)*myArray(4)
end select
Rown=Rown+1
Loop until sht.cells(Rown,1)=""
end sub

例1：将员工编号赋给数组
'声明变量类型
sub a()
dim Num as integer,CB() as string
num=cells(65536,1).end(xlup).row
redim CB(Num-2)
for i=0 to Num-2
    CB(i)=cstr(cells(i+2,1).value)
next i
for i=0 to num-2
    debug.print "数组元素CB(" & i & ")的值为：":CB(i)
next i
end sub

例2：给现有数组添加数据
sub 计算总投资额()
dim myarray
myarray=array("摄影类","￥100,000.00","办公类","￥120,000.00","三维类","￥80,000.00","机械类","￥50,000.00"
dim Num as integer
num=Ubound(myarray)
redim preserve myarray(Lbound(myarray) to num+4)
myarray(num+1)=inputbox("请输入新增加项目1名称：","新增项目名称")
myarray(num+2)=inputbox("请输入新增加项目1投资额：","新增项目投资额")
myarray(num+3)=inputbox("请输入新增加项目2名称：","新增项目名称")
myarray(num+4)=inputbox("请输入新增加项目2投资额：","新增项目投资额")
dim myIve as single
for i=Lbound(myarray)+1 to num+4 step 2
myIve=myive+myarray(i)
next i
worksheets(1).range("D1")="所有项目总投资额为：" & myive & "元"
with worksheets(1).range("D1")
.font.name="宋体"
.font.size=13
.font.bold=true
.font.color=rgb(255,255,255)
.interior.colorindex=3
.columns.autofit
end with
end sub

例1：检测变量是否为数组
sub b()
myarray=array(“申",“酉",“丑",“子")
mystr=“申、酉、丑、子"
if isarray(myarray)=true then
result1="变量myarray为数组变量"
else
result1="变量myarray为非数组变量"
end if
if isarray(mystr)=true then
reault2="变量mystr为数组变量"
else
result2="变量mystr为非数组变量"
end if 
msgbox result1 & chr(10) & result2
end sub

sub password(ByVAl x as integer,ByRef y as integer)
if y=100 then y=x+y else y=x-y x=x+100
end sub
sub call_password()
dim x1 as integer
dim y1 as integer
x1=12
y1=100
rem 调用过程方式：1.call 过程名（参数1，参数2，...);2.过程名 参数1，参数2，...
call password(x1,y1)
rem 结果是12,、112,y1按地址传递改变了值，而经按值传递，未改变原值
debug.print x1,y1
end sub

function password(ByVal x as integer,ByRef y as integer)as boolean
if y=100 then y=x+y else y=x-y
x=x+100
if y=150 then password=true else password=false
end function
rem 设计调用自定义函数password()的过程代码
sub call_password()
dim x1 as integer
dim y1 as integer
x1=12:y1=100
rem 调用函数:1.作为一个表达式放在=号右端;2.作为参数
if password then
debug.print x1
end if 
end sub

1）函数具有一个特定的返回值

2）子过程没有返回值

语法格式：
[Private|Pulic|Friend] [Static] Sub name [(arglist)]
      [statements]
[Exit Sub]
     [statements]
end sub

例：格式化表格
sub a()
'设置整个表格的字体、边框等格式
dim sht as worksheet
set sht=worksheets("sheet1")
dim rown as integer,Col as integer
rown=sht.range("A1").currentRegion.rows.count
Col=sht.Range("A1").CurrentRegion.columns.count
sht.range(cells(2,1),cells(rown,col)).select
with selection
     .font.name="宋体"
      .font.size=11
     .borders.linestyle=xlcontinuous
     .columns.autofit
.     horizontalAlignment=xlcenter
     .VerticalAlignment=xlcenter
end with
sht.range(cells(2,1),cells(2,col)).select
with selection
.font.size=14
.font.bold=true
.columns.autofit
end with
end sub

1)Public:可选，表示所有模块的所有其他过程都可以访问该Function过程。
2)Private：可选，表示只有包含其声明的模块的其他过程可以访问该过程。
3)Friend：可选，表示只能在类模块中使用。
4)name：必选，表示Function过程的名称。
5)Arglist：可选，代表在调用时要传递给Function过程的参数列表。
6)type：可选，表示Function过程返回值的数据类型。
7)statements：可选，表示在Function过程中执行的任何语句组。
8)expression：可选，表示Function过程的返回值。

语法格式：
[call ] name [argumentlist]

call:可选参数，关键字。如果指定了这个关键字，则参数必须加上括号。如
       call myProc(0)
name：过程名，必要参数，表示要调用的过程名称
arglist：参数列表，可选 参数，都可以加上关键字ByVal或ByRef，以描述被 调用
            的过程将如何处理这些参数。

语法结构:
name argumentlist

argumentlist参数是指传递过程的变量\数组或者表达式,各参数之间用逗号隔开.

例：一键获取各产品折扣价

sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
num=sht.range("A1").currentregion.rows.count
for i=3 to num
     sht.cells(i,4)=discount(cells(i,3),0.65)
     sht.cells(i,5)=discount(cells(i,3),0.75)
     sht.cells(i,6)=discount(cells(i,3),0.95)
     sht.cells(i,7)=discount(cells(i,3),1)
next i
end sub

function discount(price,rate)
   discount=price*rate
end function

1）print过程

2） Assert过程

sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim i as integer:i=3
do
 if len(sht.cells(i,1))=15 then
   sht.cells(i,6)="正确"
else
  sht.cells(i,6)="不正确"
end if 
i=i+1
loop until sht.cells(i,1=""
end sub

例：截取字符串
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim i as integer:i=3
do
sht.cells(i,6)=left(sht.cells(i,2),2)
sht.cells(i,7)=mid(sht.cells(i,2),3,4)
sht.cells(i,8)=right(sht.cells(i,2),6)
i=i+1
loop until sht.cells(i,2)=""
end sub

例：用星号替换号码第4至7位数字
sub a()
dim sht as worksheet
set sht=worksheets("sheet1")
dim i as integer:I=3
dim Tel as string
do
Tel=sht.cells(i,4)
sht.cells(i,4)=left(tel,3) & Replace(Tel,mid(tel,4,4),string(4,"*"),4)
i=i+1
Loop until sht.cells(i,4)=""
end sub

compare参数设置值列表

firstdayofweek参数值列表

weekday()返回值

语法结构
DateAdd(interval,number,date)

interval:必选，字符串表达式，是要加上的时间单位
number:必选，数值表达式，是要加上的时间间隔，其数值可以为正数（得到未来的日期），也可以为负数
date:必选，表示日期的字符串或字符串表达式

语法结构
Datediff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

interval:必选，字符串表达式，是要加上的时间单位。
date1/date2:必选，Date型，计算中要用到的两个日期。
firstdayofweek:可选，指定一个星期的第一天，默认星期日为第一天。
firstweekofyear:可选，指定一年的第一周，

语法结构
Datediff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])
返回的值为Integer数据
interval:必选，字符串表达式，是要加上的时间单位。
date:必选，Date型，表示要指定的日期。
firstdayofweek:可选，指定一个星期的第一天，默认星期日为第一天。
firstweekofyear:可选，指定一年的第一周，

Nameformat参数的设置值列表