Excel怎么样在一列中展现出办事薄中全数专业表的称呼?

Excel怎么样在一列中展现出办事薄中全数专业表的称呼?

问题:Excel怎样在一列中显得出办事薄中所有的职业表的名号?

 

VBA学习笔记

回答:

哪些是VBA?它有哪些功用?

笔记摘抄自EXCEL精英培训-深湖蓝幻想

在一列中体现职业薄的具有职业表的名称,不使用VBA的应用方案下如:

 A.达成Excel中并未有达成的效率。

VBA学习笔记01(链接)
VBA学习笔记02 (链接)

先是步,选创立名称变量,如下图,先点击按键,在弹出的对话框中输入名称变量“A”,援用地方处输入公式“=get.workbook(1)”.

 B.进步运转速度。

目录

www.澳门新萄京赌场 1

 C.编写自定义函数。

CH1 VBA基础知识

其次步,设置公式 ,在劳作表B第11中学安装公式
“=INDEX(A,ROW(A1))”,鼠标移至B1单元格右下角,待光标形成深水晶绿十字光标后,按住鼠标左键向下拖动复制公式,最后效果如下:

 D.实现自动化功用。

CH2 VBA函数与公式

www.澳门新萄京赌场 2

 E.通过插入窗体做袖珍管理软件。

CH3 VBE编辑器

回答:

VBA在哪儿寄存的?怎么运营?

CH4 分支与END语句

以此难点得以简化为:

 A.模块中

CH5 文件操作

<br />


<br />

获得三个职业簿里面有着的sheet_name?

   在Excel 20第10中学若未有“开垦工具”项,通过“文件”——“选项”——“自定义作用区”——选中“开拓工具”——“分明”(图1)。

CH1 VBA基础知识

(1)平时蒙受须要获得sheet_name的图景是:

(注:为了升高word20第10中学插入的图纸的身分,“文件”——“选项”——“高等”——选中“不压缩文件图像品质”——“明确”。)

一、VBA对象:

VBA中的对象实际正是大家操作的富有艺术、属性的excel中补助的靶子
Excel中的多少个常用对象表示方法

一最初未有很好的简化式命名sheet_name,sheet_name中并未有统一的格式,还也有空格等这种气象。

 

1、工作簿

 Workbooks 代表工作簿集合,所有的工作簿,Workbooks(N),表示已打开的第N个工作簿
 Workbooks ("工作簿名称")
 ActiveWorkbook 正在操作的工作簿
 ThisWorkBook 代码所在的工作簿      

尚未合理施用职业簿,有些只是为了“方便”,二个职业簿建了伍十二个以上的sheet,其实这种分类做法实在给你的成效优惠扣的!

图1 选中“文件”—“选项”

2、工作表

Sheets(“专门的工作表名称”)
Sheet1 表示第三个插入的职业表,Sheet2表示第二个插入的劳作表….
Sheets(n) 表示按排列顺序,第n个工作表
ActiveSheet 表示活动事业表,光标所在职业表
worksheet 也意味着专门的学业表,但不饱含图形专门的学业表、宏职业表等。

难度指数:♢

图2 ”自定义功能区”—“开采工具”——“显明”

3、单元格

   cells 所有单元格
   Range ("单元格地址")
   Cells(行数,列数)
   Activecell 正在选中或编辑的单元格
   Selection 正被选中或选取的单元格或单元格区域

在不敢问津sheet个数的状态首推VBA:

 

二、VBA方法和性质

新建三个表,新建宏,输入下边代码:

图3 最后的界面多出了“开拓工具”选项卡

1.VBA属性:VBA属性正是VBA对象所具备的风味。表示有些对象的习性的法子是。

    对象.属性=属性值        
  Sub ttt()
       Range("a1").Value = 100
 End Sub

Sub a()

 

2.VBA方法

VBA方法是法力于VBA对象上的动作
意味着用某些方法效果于VBA的对象上,能够用上边包车型地铁格式:

  Sub ttt4()  
     牛排.做 熟的程度:=七成熟     
    Range("A1").Copy Range("A2")
 End Sub

For Each sh In Sheets

                                                               图4 代码寄放在“模块”中

三、VBA语句

k = k + 1

B.运行宏

1.宏主次语句:运营后方可完结多少个功力

Sub test()  开始语句

  Range("a1") = 100

End Sub   结束语句

Cells(k, 1) = sh.Name

单击向右的绿三角,即能够运作。

2.函数顺序语句:运营后方可回来四个值

Function shcount()

shcount = Sheets.Count

End Function

Next

 

3.在前后相继中使用的言语

 Sub test2()

    Call test

  End Sub

 Sub test3()

   For x = 1 To 100   for next 循环语句
      Cells(x, 1) = x
   Next x

 End Sub

End Sub

   

4.判定语句

(1)IF判别语句

     Sub 判断()        单条件判断
        If Range("a1").Value > 0 Then
           Range("b1") = "正数"
       Else
           Range("b1") = "负数或0"
      End If
    End Sub

Sub 判断2() 多条件判断
   If Range("a1").Value > 0 Then
      Range("b1") = "正数"
   ElseIf Range("a1") = 0 Then
      Range("b1") = "等于0"
   ElseIf Range("B1") <= 0 Then
      Range("b1") = "负数"
   End If
End Sub

Sub 多条件判断2()
  If Range("a1") <> "" And Range("a2") <> "" Then
     Range("a3") = Range("a1") * Range("a2")
  End If
 End Sub

(2)IFF函数推断

Sub 判断4()
   Range("a3") = IIf(Range("a1") <= 0, "负数或零", "负数")
End Sub

(3)select判断

Sub 判断1() 单条件判断
  Select Case Range("a1").Value
 Case Is > 0
   Range("b1") = "正数"
Case Else
 Range("b1") = "负数或0"
End Select
End Sub

    Sub 判断2() 多条件判断
       Select Case Range("a1").Value
        Case Is > 0
               Range("b1") = "正数"
      Case Is = 0
             Range("b1") = "0"
      Case Else
             Range("b1") = "负数"
    End Select
  End Sub

    Sub 判断3()
       If Range("a3") < "G" Then
             MsgBox "A-G"
       End If
    End Sub

(4)推断范围

    Sub if 区间判断()
        If Range("a2") <= 1000 Then
            Range("b2") = 0.01
        ElseIf Range("a2") <= 3000 Then
            Range("b2") = 0.03
        ElseIf Range("a2") > 3000 Then
          Range("b2") = 0.05
        End If
    End Sub

    Sub select区间判断()
       Select Case Range("a2").Value
       Case 0 To 1000
             Range("b2") = 0.01
       Case 1001 To 3000
           Range("b2") = 0.03
       Case Is > 3000
           Range("b2") = 0.05
       End Select
    End Sub

—>运行

                                                   图5 右绿三角运营  

5.循环语句

(1)

    Sub t1()
      Range("d2") = Range("b2") * Range("c2")
      Range("d3") = Range("b3") * Range("c3")
      Range("d4") = Range("b4") * Range("c4")
      Range("d5") = Range("b5") * Range("c5")
      Range("d6") = Range("b6") * Range("c6")
    End Sub

(2)FO劲客 <循环变量>=<初值>to<终值> [step 步长]
<循环体>
[EXIT FOR]
<循环体>
NEXT [循环变量]

  Sub t2()
      Dim x As Integer
       For x = 10000 To 2 Step -3
            Range("d" & x) = Range("b" & x) * Range("c" & x)
       Next x
  End Sub

(3)

   Sub t3()
        Dim rg As Range
       For Each rg In Range("d2:d18")
              rg = rg.Offset(0, -1) * rg.Offset(0, -2)
       Next rg
  End Sub

(4) do[ while 逻辑表达式]
<循环体>
[www.澳门新萄京赌场,EXIT DO]
<循环体>
loop [while 逻辑表明式]

    Sub t4()
          Dim x As Integer
               x = 1
         Do
             x = x + 1
             Cells(x, 4) = Cells(x, 2) * Cells(x, 3)
         Loop Until x = 18
    End Sub

(5)

    Sub t5()
           x = 1
           Do While x < 18
                 x = x + 1
                 Cells(x, 4) = Cells(x, 2) * Cells(x, 3)
           Loop
    End Sub

『看完有获得点个赞吧- -』

                                                          图6  选中test并“运行”

6.变量

(1)什么是变量?
所谓变量,正是可变的量。就好象在内部存款和储蓄器中有的时候存放的三个小盒子,这么些小盒子放的怎么着物体不定点。

  Sub t1()
        Dim X As Integer x就是一个变量
        For X = 1 To 10
                Cells(X, 1) = X
        Next X
  End Sub

(2)变量的花色和注解

A.变量的类别

byte 字符型(0-255)
integer 整数型(-32768-32767)
long 长整数型
single 单精度浮点型
double 双精度浮点型
currency 货币型
decimal 小数型
string 字符串型 (数字 文本)
date 日期型
boolean 布尔型 (逻辑推断)
variant 万能型

B.注明变量

  dim 变量名 as 数据类型

  dim str as string

C.如给文本、数值、日期等数据型变量赋值
let 变量名称 =数据
如给指标变量(object型,如单元格)赋值
set 变量名称=对象
e.g

    set rng=worksheets("sheet1").range("a1")
    rng.value="欢迎"

动用常量
const 变量名称 as 数据类型-数值

   const p as single =3.14

(3)变量的并存周期

1 进程级变量:进程停止,变量值释放

   如t1

2 模块级变量:变量的值只在本模块中保持,职业簿关闭时随即释放
例5

     Sub t6()
        m = 1
     End Sub
     Sub t5()
      MsgBox m
      m = 7
     End Sub

3 全局级变量:
在装有的模块中都能够调用,值会保存到EXCEL关闭时才会被放飞。

   public 变量

     Sub t7()
       MsgBox qq
     End Sub

(4)变量的刑释解教

平日情状下,进度级变量在经过运营停止后就能够自动从内部存款和储蓄器中释放,而只有部分从外表借用的指标变量才供给利用set
变量=nothing举行放飞。
<br />


<br />

www.澳门新萄京赌场 3回答:

 

CH2 VBA函数与公式

1、宏表函数

                                                    图7 运转结果

一、在单元格中输入公式

2、使用VBA,都足以的

3.怎么是宏?宏和VBA有何关系?

1、用VBA在单元格中输入常见公式

 Sub t1()
   Range("d2") = "=b2*c2"
 End Sub

 Sub t2()
  Dim x As Integer
  For x = 2 To 6
   Cells(x, 4) = "=b" & x & "*c" & x
  Next x
 End Sub

回答:

 宏(Macro),是一种批量甩卖。

2、用VBA在单元格输入带引号的公式

 Sub t3()

       Range("c16") = "=SUMIF(A2:A6,""b"",B2:B6)" 遇到单引号就把单引号加倍

 End Sub

能够使用链接成效,做成目录,查找也可能有协理,再在每张表中设重临键直接回到目录。

 宏常常不仅可以够摄像又能够手动编制程序,而VBA日常是透过编制程序完结。宏能够和VBA相结合使用。

3、用VBA在单元格中输入数组公式

Sub t4()
  Range("c9").FormulaArray = "=SUM(B2:B6*C2:C6)"
End Sub

回答:

4.录像贰个宏。

二、利用单元格公式再次来到值

 Sub t5()
     Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)")
     Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
 End Sub

一定于建个目录索引,函数和代码都足以的

  A.“开采工具”——“摄像宏”——宏名字为“输入100”——“录制”——在A1单元格中输入100——“甘休”。

三、借用专业表函数

 Sub t6()

    Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")

 End Sub

  B.“宏”——选中“输入100”——“执行”。

四、利用VBA函数

 Sub t7()

  Range("C20") = VBA.InStr(Range("a20"), "E")

 End Sub    

  

五、编写自定义函数

  Function wn()
     wn = Application.Caller.Parent.Name
  End Function

<br />


<br />

5.编纂二个宏。

CH3 VBE编辑器

  • 1.评释文字 :文字前加单引号
  • 2.强制转行 空格+下划线
  • 3.调试工具栏: 逐语句运维或按F8
  • 4.装置断点:STOP
  • 5.霎时窗口: debug.print “第“&X&”运营结果“ 呈现某步程序运维结果
  • 6.本地窗口:展现运转中断时对象新闻
    <br />

<br />

  A.“开荒工具”——“Visual Basic”——“视图”——“工程财富处理器”——“插入”——“模块”——在左边手输入代码:

CH4 分支与END语句

   www.澳门新萄京赌场 4

一、END语句

意义:强制退出全体正在周转的程序。

  B. 单击绿右三角就能够运转。恐怕关闭VBA编辑窗口,单击“宏”——选中“test”——“实行”。

二、Exit语句

剥离内定的说话

1、Exit Sub

 Sub e1()
 Dim x As Integer
    For x = 1 To 100
      Cells(1, 1) = x
      If x = 5 Then
        Exit Sub
      End If
     Next x
  Range("b1") = 100
 End Sub

2、Exit function

 Function ff()
 Dim x As Integer
    For x = 1 To 100
      If x = 5 Then
        Exit Function
      End If
     Next x
  ff = 100
 End Function

3、Exit for

Sub e2()     
 Dim x As Integer
    For x = 1 To 100
      Cells(1, 1) = x
      If x = 5 Then
        Exit For
      End If
     Next x

   Range("b1") = 100
 End Sub

4、Exit do

 Sub e3()
 Dim x As Integer
   Do
     x = x + 1
      Cells(1, 1) = x
      If x = 5 Then
        Exit Do
      End If
   Loop Until x = 100
   Range("b1") = 100
 End Sub

 

三、分支语句

1.Goto语句,跳转到钦赐的地方

 Sub t1()
      Dim x As Integer
      Dim sr
      100:
            sr = Application.InputBox("请输入数字", "输入提示")
     If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100
  End Sub

2.gosub..return ,跳过去,再跳回来

Sub t2()
      Dim x As Integer
      For x = 1 To 10
             If Cells(x, 1) Mod 2 = 0 Then GoSub 100
      Next x
 Exit Sub
 100:
         Cells(x, 1) = "偶数"
     Return
End Sub

3.on error resume next 境遇错误,跳过继续施行下一句

 Sub t3()
  On Error Resume Next
  Dim x As Integer
    For x = 1 To 10
      Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
  Next x
 End Sub

4.on error goto 失误时跳到内定的行数

Sub t4()
    On Error GoTo 100
    Dim x As Integer
    For x = 1 To 10
        Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
    Next x
 Exit Sub
 100:
         MsgBox "在第" & x & "行出错了"
End Sub

5.on error goto 0 撤废错误跳转

    Sub t5()
            On Error Resume Next
            Dim x As Integer
            For x = 1 To 10
            If x > 5 Then On Error GoTo 0
                Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
          Next x
     Exit Sub

<br />


<br />

6.VBA语句

CH5 文件操作

  A.宏程序语句。

一、常用概念

1.excel文书和职业簿

excel文件就是excel职业簿,excel文件张开须求excel程的支撑

(1) Workbooks 职业簿群集,泛指excel文件或工作簿

Workbooks(“A.xls”),名称为A的excel工作簿

Sub t1()
    Workbooks("A.xls").Sheets(1).Range("a1") = 100
 End Sub

workbooks(2),按展开各样,第二个展开的工作簿。

  Sub t2()
    Workbooks(2).Sheets(2).Range("a1") = 200
 End Sub

(2)ActiveWorkbook
,当打开多个excel职业簿时,你正在操作的特别正是ActiveWorkbook(活动职业簿)

(3)Thisworkbook,VBA程序所在的专门的工作簿,无论你展开多少个工作簿,无论当前是哪个专业簿是移动的,thisworkbook正是指它所在的工作簿。

2.工作簿窗口

Windows("A.xls"),A工作簿的窗口,使用windows可以设置工作簿窗口的状态,如是否隐藏等。
 Sub t3()
    Windows("A.xls").Visible = False
 End Sub
 Sub t4()
    Windows(2).Visible = True
 End Sub

3.excel工作表的归类

excel职业表有两大类,一类是大家日常用的专门的学问表(worksheet),另一类是图形、宏表等。这两类的统称是sheets

sheets 专门的职业表集结,泛指excel各样专门的学问表

Sheets(“A”),名称为A的excel工作表

 Sub t1()
    Sheets("A").Range("a1") = 100
 End Sub

workbooks(2),按张开各样,第二个张开的专业簿。

  Sub t2()
    Sheets(2).Range("a1") = 200
 End Sub

ActiveSheet ,当张开八个excel专门的学问簿时,你正在操作的可怜正是ActiveSheet

   www.澳门新萄京赌场 5

二、 EXCEL文件操作

1 判定A.Xls文件是不是存在

Sub W1()
 If Len(Dir("d:/A.xls")) = 0 Then
   MsgBox "A文件不存在"
 Else
   MsgBox "A文件存在"
 End If
 End Sub

2 决断A.Xls文件是不是张开

Sub W2()
 Dim X As Integer
  For X = 1 To Windows.Count
    If Windows(X).Caption = "A.XLS" Then
      MsgBox "A文件打开了"
      Exit Sub
    End If
  Next
End Sub

3 excel文书新建和封存

Sub W3()
 Dim wb As Workbook
 Set wb = Workbooks.Add
   wb.Sheets("sheet1").Range("a1") = "abcd"
 wb.SaveAs "D:/B.xls"
End Sub

4 excel文件张开和停业

 Sub w4()
        Dim wb As Workbook
              Set wb = Workbooks.Open("D:/B.xls")
              MsgBox wb.Sheets("sheet1").Range("a1").Value
        wb.Close False
 End Sub

5 excel文件保留和备份

 Sub w5()
      Dim wb As Workbook
       Set wb = ThisWorkbook
        wb.Save
        wb.SaveCopyAs "D:/ABC.xls"
 End Sub

6 excel文书复制和删除

 Sub W6()
  FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"
  Kill "D:/ABC.XLS"
 End Sub

7.推断A专门的学问表文件是不是留存

Sub s1()
 Dim X As Integer
  For X = 1 To Sheets.Count
    If Sheets(X).Name = "A" Then
      MsgBox "A工作表存在"
      Exit Sub
    End If
  Next
  MsgBox "A工作表不存在"
End Sub
  1. excel专门的学业表的插入

     Sub s2()
        Dim sh As Worksheet
        Set sh = Sheets.Add
        sh.Name = "模板"
        sh.Range("a1") = 100
     End Sub
    

9.excel职业表掩饰和撤除遮蔽

 Sub s3()
          Sheets(2).Visible = True
 End Sub

10.excel专业表的位移

 Sub s4()
             Sheets("Sheet2").Move before:=Sheets("sheet1")        ‘sheet2移动到sheet1前面
            Sheets("Sheet1").Move after:=Sheets(Sheets.Count)      ’ sheet1移动到所有工作表的最后面
 End Sub

11.excel职业表的复制

 Sub s5() 在本工作簿中
      Dim sh As Worksheet
        Sheets("模板").Copy before:=Sheets(1)
        Set sh = ActiveSheet
        sh.Name = "1日"
        sh.Range("a1") = "测试"
 End Sub

Sub s6() 另存为新职业簿

  Dim wb As Workbook
   Sheets("模板").Copy
   Set wb = ActiveWorkbook
      wb.SaveAs ThisWorkbook.Path & "/1日.xls"
      wb.Sheets(1).Range("b1") = "测试"
      wb.Close True
   End Sub

12.爱慕职业表

 Sub s7()
        Sheets("sheet2").Protect "123"
 End Sub
 Sub s8() 判断工作表是否添加了保护密码
  If Sheets("sheet2").ProtectContents = True Then
    MsgBox "工作簿保护了"
  Else
    MsgBox "工作簿没有添加保护"
  End If
 End Sub

13.专业表删除

 Sub s9()
   Application.DisplayAlerts = False
     Sheets("模板").Delete
   Application.DisplayAlerts = True
 End Sub

14.工作表的抉择

 Sub s10()
   Sheets("sheet2").Select
 End Sub

  B.函数程序语句

  www.澳门新萄京赌场 6

 C.在前后相继中应运语句。

  www.澳门新萄京赌场 7

D.循环语句。

  www.澳门新萄京赌场 8

7.VBA对象

  A.专业簿对象

     Workbooks
代表专门的学问簿会集,所有工作簿,Workbooks(N),表示已开辟的第N个工作簿

     Workbooks (“职业簿名称”)

     ActiveWorkbook 正在操作的职业簿

     ThisWorkBook ‘代码所在的工作簿

  B.专门的工作表对象

     Sheets(“工作表名称”)

     Sheet1 表示第二个插入的专门的学问表,Sheet2象征第三个插入的劳作表….

     Sheets(n) 表示按排列顺序,第n个职业表

     ActiveSheet 表示活动工作表,光标所在专门的职业表

     worksheet 也意味事业表,但不富含图片职业表、宏专门的学问表等。

  C.单元格对象

     cells 全体单元格

     Range (“单元格地址”)

     Cells(行数,列数)    Range(“B3”)和Cells(3,2)表示一点差别也没有的单元格

     Activecell 正在选中或编辑的单元格

     Selection 正被选中或选拔的单元格或单元格区域

8. VBA属性

    VBA属性便是VBA对象所具备的性状,表示有个别对象的习性如下:对象.属性=属性值

    Sub ttt()

      Range(“a1”).Value = 100     ’给单元格a1填充数值100

    End Sub

                                                       
                                                                  
         

    Sub ttt1()

      Sheets(1).Name = “专门的学问表改名了”   ’给办事簿重命名叫“职业表改名了”

    End Sub

                                                
                                                                      
               

    Sub ttt2()

       Sheets(“Sheet2”).Range(“a1”).Value =
“abcd”   ’给sheet2工作表的a1单元格填充字符串“abcd”

    End Sub

                                           
                                                           
                                

      Sub ttt3()

     ’单元格的内部的填充色

          Range(“A2”).Interior.ColorIndex = 3  ’将A2单元格的背景颜色设置为革命

         Range(“A2”).Font.ColorIndex =
3      ’将A2单元格的书体颜色设置为革命

      End Sub

   
                                                                                                                                       

9.VBA方法

   VBA方法是效果于VBA对象上的动作,表示用有个别方法效果于VBA的对象上,能够用上面包车型地铁格式:

   对象.方法  参数名称:=参数值

                                                                                                                                            

  Sub ttt4()

      ’Range(“A1”).Copy Destination:= Range(“A2”)

      Range(“A1”).Copy Range(“A2”)   ’将A第11中学的内容复制到A2

  End Sub

                                                                                                                                            

  Sub ttt5()

    Sheet1.Move before:=Sheets(“Sheet3”)   ’将sheet1表移动到sheet3事先

  End Sub

                                                                                                                                           

10.在二个乡政坛的文件中供给将Excel中二个表格的身份ID号,配对并填充到另贰个表中。宏代码如下:

     Sub 配对()

      Dim I, J As Integer

      For I = 3 To 225

           For J = 4 To 930

               If Sheets(“Sheet4”).Range(“b” & I).Value =
Sheets(“黄门乡”).Range(“b” & J).Value Then   

                     Sheets(“Sheet4”).Range(“e” & I).Value =
Sheets(“黄门乡”).Range(“d” & J).Value

              End If

         Next J

       Next I

     End Sub

     ’竟然没写入End IF,提醒错误“Next 缺乏 For”

11.看清语句

   A.if推断语句

                                                                                                                           

     Sub 判别1() ‘单条件判定

       If Range(“a1”).Value > 0 Then

            Range(“b1”) = “正数”

       Else

            Range(“b1”) = “负数或0”

       End If

     End Sub

  B.IIF决断语句

                                                                                                                            

    Sub 判断4()

        Range(“a3”) = IIf(Range(“a1”) <= 0, “负数或零”, “负数”)

    End Sub

  C.select判断

                                                                                                                             

    Sub 判定1() ‘单条件推断

      Select Case Range(“a1”).Value

      Case Is > 0

         Range(“b1”) = “正数”

      Case Else

         Range(“b1”) = “负数或0”

      End Select

    End Sub

                                                                                                                               

    Sub 推断2() ‘多规格剖断

        Select Case Range(“a1”).Value

         Case Is > 0

           Range(“b1”) = “正数”

         Case Is = 0

           Range(“b1”) = “0”

         Case Else

           Range(“b1”) = “负数”

         End Select

       End Sub

                                                                                                                                                     

      Sub 判断3()

         If Range(“a3”) < “G” Then

            MsgBox “A-G”

         End If

      End Sub

D.区间推断

                                                                                                                                     

  Sub if区间推断()

  If Range(“a2”) <= 1000 Then

    Range(“b2”) = 0.01

  ElseIf Range(“a2”) <= 3000 Then

    Range(“b2”) = 0.03

  ElseIf Range(“a2”) > 3000 Then

    Range(“b2”) = 0.05

  End If

  End Sub

                               
                                                                       
                       

Sub select区间推断()

 Select Case Range(“a2”).Value

 Case 0 To 1000

   Range(“b2”) = 0.01

 Case 1001 To 3000

   Range(“b2”) = 0.03

 Case Is > 3000

   Range(“b2”) = 0.05

 End Select

End Sub

                                                                                                                                  

12.循环语句

   A.单语句代码

     Sub t1()

      Range(“d2”) = Range(“b2”) * Range(“c2”)   ’将b2单元格与c2单元格相乘并赋值给d2单元格

      Range(“d3”) = Range(“b3”) * Range(“c3”)   ’将b3单元格与c3单元格相乘并赋值给d3单元格

      Range(“d4”) = Range(“b4”) * Range(“c4”)   ’将b4单元格与c4单元格相乘并赋值给d4单元格

      Range(“d5”) = Range(“b5”) * Range(“c5”)   ’将b5单元格与c5单元格相乘并赋值给d5单元格

      Range(“d6”) = Range(“b6”) * Range(“c6”)   ’将b6单元格与c6单元格相乘并赋值给d6单元格

     End Sub

  B.For each 循环语句

    Sub s1()

      Dim rg As Range

      For Each rg In Range(“a1:b7,d5:e9”)

        If rg = “” Then

           rg = 0

        End If

      Next rg

    End Sub

   ’注:在a1到b7单元区域和d5到e9单元格区域中的遍历全体单元格,若为空,就赋值0。

C、For Next语句

   Sub t2()

   Dim x As Integer

    For x = 10000 To 2 Step -3

     Range(“d” & x) = Range(“b” & x) * Range(“c” & x)

    Next x

   End Sub

   注:将一千0行数据中每间隔3行的b列和c列相乘赋值给d列。

D、For Each语句(应用offset方法来拟定单元格)

   Sub t3()

   Dim rg As Range

    For Each rg In Range(“d2:d18”)

     rg = rg.Offset(0, -1) * rg.Offset(0, -2)

    Next rg

   End Sub

   ’注:offset便是偏移,针对d2来说,Offset(0, -1)指的便是向左移动1个单元格,即c2;而Offset(0, -2)指的就是向左移动2个单元格,即b2;第三个参数是垂直运动,正为升高,负为向下;第2个参数是程度位移,正为向右,负为向左。

   

                图12 offset函数分析图

E.Do ……Loop Until语句

   Sub t4()

   Dim x As Integer

    x = 1

    Do

      x = x + 1

      Cells(x, 4) = Cells(x, 2) * Cells(x, 3)

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图