Excel怎么着在一列中展现出办事薄中全部工作表的名称,宏技巧集绵

问题:Excel怎样在一列中显得出办事薄中全体工作表的称谓?

 

 

VBA学习笔记

回答:

怎么样是VBA?它有哪些意义?

什么样是VBA?它有怎样遵守?

笔记摘抄自EXCEL精英培养和磨炼-土色幻想

在一列中展现工作薄的具有工作表的称号,不行使VBA的解决方案下如:

 A.完结Excel中一贯不兑现的效应。

 A.实现Excel中没有达成的法力。

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

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

 B.提升运维速度。

 B.进步运转速度。

目录

皇家赌场网址hj9292 1

 C.编写自定义函数。

 C.编写自定义函数。

CH1 VBA基础知识

第1步,设置公式 ,在办事表B第11中学安装公式
“=INDEX(A,ROW(A1))”,鼠标移至B1单元格右下角,待光标变成浅紫蓝十字光标后,按住鼠标左键向下拖动复制公式,最后效果如下:

 D.完结自动化功效。

 D.完结自动化效能。

CH2 VBA函数与公式

皇家赌场网址hj9292 2

 E.通过插入窗体做小型管理软件。

 E.通过插入窗体做小型管理软件。

CH3 VBE编辑器

回答:

VBA在哪儿存放的?怎么运作?

VBA在哪儿存放的?怎么运作?

CH4 分支与END语句

其一难题得以简化为:

 A.模块中

 A.模块中

CH5 文件操作

<br />


<br />

获得二个工作簿里面全部的sheet_name?

   在Excel 20第10中学若没有“开发工具”项,通过“文件”——“选项”——“自定义成效区”——选中“开发工具”——“确定”(图1)。

   在Excel 20第10中学若没有“开发工具”项,通过“文件”——“选项”——“自定义效率区”——选中“开发工具”——“明确”(图1)。

CH1 VBA基础知识

(1)一般遭逢须要得到sheet_name的事态是:

(注:为了抓好word20第10中学插入的图片的品质,“文件”——“选项”——“高级”——选中“不压缩文件图像品质”——“鲜明”。)

(注:为了增强word20第10中学插入的图样的身分,“文件”——“选项”——“高级”——选中“不压缩文件图像品质”——“鲜明”。)

一、VBA对象:

VBA中的对象实际正是我们操作的有所艺术、属性的excel中帮忙的对象
Excel中的几个常用对象表示方法

一开始没有很好的简化式命名sheet_name,sheet_name中没有统一的格式,还会有空格等那种场地。

 

 

1、工作簿

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

从没客观利用工作簿,有个别只是为着“方便”,三个工作簿建了肆拾七个以上的sheet,其实那种分类做法确实给您的频率优惠扣的!

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

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

2、工作表

Sheets(“工作表名称”)
Sheet1 表示第二个插入的工作表,Sheet2表示第二个插入的干活表….
Sheets(n) 表示按排列顺序,第n个工作表
ActiveSheet 表示活动工作表,光标所在工作表
worksheet 也表示工作表,但不包涵图形工作表、宏工作表等。

难度指数:♢

图2 ”自定义功用区”—“开发工具”——“分明”

图2 ”自定义成效区”—“开发工具”——“鲜明”

3、单元格

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

在不敢问津sheet个数的地方首要选用VBA:

 

 

贰 、VBA方法和性质

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

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

图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 代码存放在“模块”中

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

三、VBA语句

k = k + 1

B.运行宏

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 右绿三角运维  

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)FOHaval <循环变量>=<初值>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 逻辑表明式]
<循环体>
[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  选中test并“运行”

6.变量

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

  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 />

皇家赌场网址hj9292 3回答:

 

 

CH2 VBA函数与公式

壹 、宏表函数

                                                    图7 运转结果

                                                    图7 运营结果

① 、在单元格中输入公式

二 、使用VBA,都得以的

3.哪些是宏?宏和VBA有怎样关联?

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

一 、用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),是一种批量甩卖。

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

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

 Sub t3()

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

 End Sub

能够运用链接功用,做成目录,查找也有益于,再在每张表中设重回键直接回到目录。

 宏平常既能够录像又有啥不可手动编制程序,而VBA一般是通过编制程序实现。宏能够和VBA相结合使用。

 宏通常既能够摄像又能够手动编制程序,而VBA一般是因此编程达成。宏能够和VBA相结合使用。

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

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

回答:

4.录像1个宏。

4.录像2个宏。

贰 、利用单元格公式重回值

 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——“甘休”。

  A.“开发工具”——“摄像宏”——宏名为“输入100”——“摄像”——在A1单元格中输入100——“截至”。

③ 、借用工作表函数

 Sub t6()

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

 End Sub

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

  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.编辑一个宏。

5.编写制定二个宏。

CH3 VBE编辑器

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

<br />

  A.“开发工具”——“Visual Basic”——“视图”——“工程财富管理器”——“插入”——“模块”——在右侧输入代码:

  A.“开发工具”——“Visual Basic”——“视图”——“工程财富管理器”——“插入”——“模块”——在右侧输入代码:

CH4 分支与END语句

   皇家赌场网址hj9292 4

   皇家赌场网址hj9292 5

一、END语句

功用:强制退出全数正在周转的次第。

  B. 单击绿右三角即可运转。只怕关闭VBA编辑窗口,单击“宏”——选中“test”——“执行”。

  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

Excel怎么着在一列中展现出办事薄中全部工作表的名称,宏技巧集绵。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语句

6.VBA语句

CH5 文件操作

  A.宏程序语句。

  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),按打开各类,第3个打开的工作簿。

  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工作簿时,你正在操作的10分就是ActiveSheet

   皇家赌场网址hj9292 6

   皇家赌场网址hj9292 7

贰 、 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.函数程序语句

  B.函数程序语句

  皇家赌场网址hj9292 8

  皇家赌场网址hj9292 9

 C.在程序中应运语句。

 C.在程序中应运语句。

  皇家赌场网址hj9292 10

  皇家赌场网址hj9292 11

D.循环语句。

D.循环语句。

  皇家赌场网址hj9292 12

  皇家赌场网址hj9292 13

7.VBA对象

7.VBA对象

  A.工作簿对象

  A.工作簿对象

     Workbooks
代表工作簿集合,全数的工作簿,Workbooks(N),表示已开辟的第N个工作簿

     Workbooks
代表工作簿集合,全部的工作簿,Workbooks(N),表示已打开的第N个工作簿

     Workbooks (“工作簿名称”)

     Workbooks (“工作簿名称”)

     ActiveWorkbook 正在操作的工作簿

     ActiveWorkbook 正在操作的工作簿

     ThisWorkBook ‘代码所在的工作簿

     ThisWorkBook ‘代码所在的工作簿

  B.工作表对象

  B.工作表对象

     Sheets(“工作表名称”)

     Sheets(“工作表名称”)

     Sheet1 表示第③个插入的工作表,Sheet2象征第二个插入的做事表….

     Sheet1 表示第③个插入的工作表,Sheet2表示第三个插入的工作表….

     Sheets(n) 表示按排列顺序,第n个工作表

     Sheets(n) 表示按排列顺序,第n个工作表

     ActiveSheet 表示活动工作表,光标所在工作表

     ActiveSheet 表示活动工作表,光标所在工作表

     worksheet 也表示工作表,但不包含图形工作表、宏工作表等。

     worksheet 也意味着工作表,但不包罗图形工作表、宏工作表等。

  C.单元格对象

  C.单元格对象

     cells 全数单元格

     cells 全体单元格

     Range (“单元格地址”)

     Range (“单元格地址”)

     Cells(行数,列数)    Range(“B3”)和Cells(3,2)表示同样的单元格

     Cells(行数,列数)    Range(“B3”)和Cells(3,2)表示无差距的单元格

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

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

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

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

8. VBA属性

8. VBA属性

    VBA属性就是VBA对象所持有的性格,表示某些对象的习性如下:对象.属性=属性值

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

    Sub ttt()

    Sub ttt()

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

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

    End Sub

    End Sub

                                                       
                                                                  
         

                                                       
                                                                  
         

    Sub ttt1()

    Sub ttt1()

      Sheets(1).Name = “工作表改名了”   ’给工作簿重命名为“工作表改名了”

      Sheets(1).Name = “工作表改名了”   ’给工作簿重命名为“工作表改名了”

    End Sub

    End Sub

                                                
                                                                      
               

                                                
                                                                      
               

    Sub ttt2()

    Sub ttt2()

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

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

    End Sub

    End Sub

                                           
                                                           
                                

                                           
                                                           
                                

      Sub ttt3()

      Sub ttt3()

     ’单元格的里边的填充色

     ’单元格的当中的填充色

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

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

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

         Range(“A2”).Font.ColorIndex =
3      ’将A2单元格的字体颜色设置为草绿

      End Sub

      End Sub

   
                                                                                                                                       

   
                                                                                                                                       

9.VBA方法

9.VBA方法

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

   VBA方法是职能于VBA对象上的动作,表示用有些方法效果于VBA的对象上,能够用上边包车型客车格式:

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

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

                                                                                                                                            

                                                                                                                                            

  Sub ttt4()

  Sub ttt4()

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

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

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

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

  End Sub

  End Sub

                                                                                                                                            

                                                                                                                                            

  Sub ttt5()

  Sub ttt5()

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

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

  End Sub

  End Sub

                                                                                                                                           

                                                                                                                                           

10.在贰个乡政坛的文书中须要将Excel中三个表格的身份证号,配对并填充到另二个表中。宏代码如下:

10.在叁个乡政坛的公文中须求将Excel中贰个表格的身份证号,配对并填充到另3个表中。宏代码如下:

     Sub 配对()

     Sub 配对()

      Dim I, J As Integer

      Dim I, J As Integer

      For I = 3 To 225

      For I = 3 To 225

           For J = 4 To 930

           For J = 4 To 930

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

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

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

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

              End If

              End If

         Next J

         Next J

       Next I

       Next I

     End Sub

     End Sub

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

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

11.判定语句

11.认清语句

   A.if判断语句

   A.if判断语句

                                                                                                                           

                                                                                                                           

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

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

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

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

            Range(“b1”) = “正数”

            Range(“b1”) = “正数”

       Else

       Else

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

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

       End If

       End If

     End Sub

     End Sub

  B.IIF判断语句

  B.IIF判断语句

                                                                                                                            

                                                                                                                            

    Sub 判断4()

    Sub 判断4()

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

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

    End Sub

    End Sub

  C.select判断

  C.select判断

                                                                                                                             

                                                                                                                             

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

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

      Select Case Range(“a1”).Value

      Select Case Range(“a1”).Value

      Case Is > 0

      Case Is > 0

         Range(“b1”) = “正数”

         Range(“b1”) = “正数”

      Case Else

      Case Else

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

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

      End Select

      End Select

    End Sub

    End Sub

                                                                                                                               

                                                                                                                               

    Sub 判断2() ‘多规格判断

    Sub 判断2() ‘多规格判断

        Select Case Range(“a1”).Value

        Select Case Range(“a1”).Value

         Case Is > 0

         Case Is > 0

           Range(“b1”) = “正数”

           Range(“b1”) = “正数”

         Case Is = 0

         Case Is = 0

           Range(“b1”) = “0”

           Range(“b1”) = “0”

         Case Else

         Case Else

           Range(“b1”) = “负数”

           Range(“b1”) = “负数”

         End Select

         End Select

Excel怎么着在一列中展现出办事薄中全部工作表的名称,宏技巧集绵。       End Sub

       End Sub

                                                                                                                                                     

                                                                                                                                                     

      Sub 判断3()

      Sub 判断3()

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

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

            MsgBox “A-G”

            MsgBox “A-G”

         End If

         End If

      End Sub

      End Sub

D.区间判断

D.区间判断

                                                                                                                                     

                                                                                                                                     

  Sub if区间判断()

  Sub if区间判断()

  If Range(“a2”) <= 1000 Then

  If Range(“a2”) <= 1000 Then

    Range(“b2”) = 0.01

    Range(“b2”) = 0.01

  ElseIf Range(“a2”) <= 3000 Then

  ElseIf Range(“a2”) <= 3000 Then

    Range(“b2”) = 0.03

    Range(“b2”) = 0.03

  ElseIf Range(“a2”) > 3000 Then

  ElseIf Range(“a2”) > 3000 Then

    Range(“b2”) = 0.05

    Range(“b2”) = 0.05

  End If

  End If

  End Sub

  End Sub

                               
                                                                       
                       

                               
                                                                       
                       

Sub select区间判断()

Sub select区间判断()

 Select Case Range(“a2”).Value

 Select Case Range(“a2”).Value

 Case 0 To 1000

 Case 0 To 1000

   Range(“b2”) = 0.01

   Range(“b2”) = 0.01

 Case 1001 To 3000

 Case 1001 To 3000

   Range(“b2”) = 0.03

   Range(“b2”) = 0.03

 Case Is > 3000

 Case Is > 3000

   Range(“b2”) = 0.05

   Range(“b2”) = 0.05

 End Select

 End Select

End Sub

End Sub

                                                                                                                                  

                                                                                                                                  

12.循环语句

12.循环语句

   A.单语句代码

   A.单语句代码

     Sub t1()

     Sub t1()

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

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

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

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

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

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

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

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

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

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

     End Sub

     End Sub

  B.For each 循环语句

  B.For each 循环语句

    Sub s1()

    Sub s1()

      Dim rg As Range

      Dim rg As Range

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

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

        If rg = “” Then

        If rg = “” Then

           rg = 0

           rg = 0

        End If

        End If

      Next rg

      Next rg

    End Sub

    End Sub

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

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

C、For Next语句

C、For Next语句

   Sub t2()

   Sub t2()

   Dim x As Integer

   Dim x As Integer

    For x = 10000 To 2 Step -3

    For x = 10000 To 2 Step -3

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

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

    Next x

    Next x

   End Sub

   End Sub

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

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

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

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

   Sub t3()

   Sub t3()

   Dim rg As Range

   Dim rg As Range

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

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

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

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

    Next rg

    Next rg

   End Sub

   End Sub

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

   ’注:offset就是偏移,针对d2而言,Offset(0, -1)指的正是向左移动二个单元格,即c2;而Offset(0, -2)指的便是向左移动三个单元格,即b2;第二个参数是笔直运动,正为发展,负为向下;第③个参数是水平位移,正为向右,负为向左。

   

   

                图12 offset函数分析图

                图12 offset函数分析图

E.Do ……Loop Until语句

E.Do ……Loop Until语句

   Sub t4()

   Sub t4()

   Dim x As Integer

   Dim x As Integer

    x = 1

    x = 1

    Do

    Do

      x = x + 1

      x = x + 1

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

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

    Loop Until x = 18

    Loop Until x = 18

   End Sub

   End Sub

   ’注:Cell(行,列),即上文中的x指的是行。将第②列和第3列相乘赋值给第六列。

   ’注:Cell(行,列),即上文中的x指的是行。将第贰列和第一列相乘赋值给第5列。

F.Do While……Loop语句

F.Do While……Loop语句

   Sub t5()

   Sub t5()

    x = 1

    x = 1

    Do While x < 18

    Do While x < 18

      x = x + 1

      x = x + 1

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

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

    Loop

    Loop

   End Sub

   End Sub

   ’注:Cell(行,列),即上文中的x指的是行。将第①列和第壹列相乘赋值给第伍列。

   ’注:Cell(行,列),即上文中的x指的是行。将第②列和第叁列相乘赋值给第⑤列。

G.Do ……Loop Until语句

G.Do ……Loop Until语句

   Sub s2()

   Sub s2()

    Dim x As Integer

    Dim x As Integer

    Do

    Do

      x = x + 1

      x = x + 1

      If Cells(x + 1, 1) <> Cells(x, 1) + 1 Then

      If Cells(x + 1, 1) <> Cells(x, 1) + 1 Then

         Cells(x, 2) = “断点”

         Cells(x, 2) = “断点”

         Exit Do

         Exit Do

      End If

      End If

    Loop Until x = 14

    Loop Until x = 14

   End Sub

   End Sub

   ’判断第二列中的数据不接二连三,就在后头的单元格输入1个“断点”。

   ’判断第三列中的数据不连续,就在今后的单元格输入3个“断点”。

13. 读书变量

13. 上学变量

   A、什么是变量?

   A、什么是变量?

     所谓变量,正是可变的量。就好象在内部存款和储蓄器中目前存放的三个小盒子,那些小盒子放的怎样物体不稳定。

     所谓变量,正是可变的量。就好象在内存中一时存放的多少个小盒子,那几个小盒子放的如何物体不稳定。

     Dim m As Integer

     Dim m As Integer

     Sub t1()

     Sub t1()

       Dim X As Integer ‘x正是2个整形变量

       Dim X As Integer ‘x就是一个整形变量

       For X = 1 To 10

       For X = 1 To 10

         Cells(X, 1) = X

         Cells(X, 1) = X

        Next X

        Next X

      End Sub

      End Sub

   B、小盒子里可以放什么?

   B、小盒子里能够放什么?

 

 

      1、放数字   2、放文本

      1、放数字   2、放文本

        Sub t2()

        Sub t2()

       Dim st As String    ’st存放字符串

       Dim st As String    ’st存放字符串

       Dim X As Integer    ’X存放整数类型

       Dim X As Integer    ’X存放整数类型

       For X = 1 To 10

       For X = 1 To 10

        st = st & “Excel精英培养和陶冶”

        st = st & “Excel精英培养和操练”

       Next X

       Next X

       End Sub

       End Sub

     3、 放对象

     3、 放对象

       Sub t3()

       Sub t3()

        Dim rg As Range      ’rg是单元格类型

        Dim rg As Range      ’rg是单元格类型

         Set rg = Range(“a1”) ’Set关键词正是给指标变量钦命值

         Set rg = Range(“a1”) ’Set关键词正是给目的变量钦命值

          rg = 100

          rg = 100

        End Sub

        End Sub

    4、 放数组

    4、 放数组

       Sub t4()

       Sub t4()

          Dim arr(1 To 10) As Integer, X As Integer  

          Dim arr(1 To 10) As Integer, X As Integer  

          For X = 1 To 10

          For X = 1 To 10

            arr(X) = X

            arr(X) = X

          Next X

          Next X

       End Sub

       End Sub

      ’数组arr(1),arr(2),arr(3)……arr(10)都以整形类型

      ’数组arr(1),arr(2),arr(3)……arr(10)都以整形类型

C、变量的项目和证明

C、变量的花色和证明

   1 变量的体系

   1 变量的类型

     (1)整型(Integer):

     (1)整型(Integer):

          表示-32768至32767时期的平头
          例如:10   110   20

          表示-32768至32767里头的平头
          例如:10   110   20

     (2)长整型(Long):

     (2)长整型(Long):

          表示-2,147,483,648至2,147,483,647中间的平头

          表示-2,147,483,648至2,147,483,647里面包车型地铁平头

           例如:长整型的书写:
   23454444554     

           例如:长整型的书写:
   23454444554     

     (3)单精度实型(Single):

     (3)单精度实型(Single):

           有效数为七个人表示-3.37E+38至3.37E+38里头的实数

           有效数为7位表示-3.37E+38至3.37E+38之内的实数

     (4)双精度实型(Double):

     (4)双精度实型(Double):

           有效数为二十个人

           有效数为拾陆人

     (5)字符型(String)

     (5)字符型(String)

         在VB中字符串常量是用双引号“
”括起的一串字符,例 如”ABC”,”abcdefg”,”123″,”0″,”VB程序设计”等。

         在VB中字符串常量是用双引号“
”括起的一串字符,例 如”ABC”,”abcdefg”,”123″,”0″,”VB程序设计”等。

    (6) 逻辑型(Boolean)

    (6) 逻辑型(Boolean)

         逻辑型又称布尔型,其数额唯有True(真)和False(假)多个值

         逻辑型又称布尔型,其数据唯有True(真)和False(假)七个值

    (7)日期型(Date)

    (7)日期型(Date)

         表示日期和岁月

         表示日期和岁月

         用两个“#”符号把日子和岁月的值括起来
      如:#08/20/2001#、#2001-08-20#

         用两个“#”符号把日子和时间的值括起来
      如:#08/20/2001#、#2001-08-20#

   2 为什么要申明变量

   2 怎么要注解变量

     变量通过索引能够储存越多的值,在循环结构中的作用大。

     变量通过索引能够储存越多的值,在循环结构中的功能大。

   3 注解变量

   3 证明变量

      dim public

      dim public

D、变量的存活周期

D、变量的现有周期

   1 进度级变量:进程截至,变量值释放

   1 进程级变量:进度甘休,变量值释放

       ‘如t1

       ‘如t1

   2 模块级变量:变量的值只在本模块中维系,工作簿关闭时随时释放   

   2 模块级变量:变量的值只在本模块中维系,工作簿关闭时随时释放   

 

 

         Sub t6()

         Sub t6()

            m = 1

            m = 1

         End Sub

         End Sub

         

         

        Sub t5()

        Sub t5()

          MsgBox m

          MsgBox m

          m = 7

          m = 7

         End Sub

         End Sub

 

 

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

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

       ‘ public 变量

       ‘ public 变量

         Sub t7()

         Sub t7()

           MsgBox qq

           MsgBox qq

         End Sub

         End Sub

 E、变量的假释

 E、变量的获释

     一般意况下,进程级变量在进度运维结束后就会自行从内部存款和储蓄器中放出,而唯有一部分从表面借用的对象变量才须要利用set
变量=nothing进行自由。

     一般意况下,进程级变量在经过运营甘休后就会活动从内部存款和储蓄器中放出,而唯有部分从表面借用的对象变量才须求运用set
变量=nothing进行自由。

14.函数与公式

14.函数与公式

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

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

Option Explicit

Option Explicit

     Sub t1()

     Sub t1()

       Range(“d2”) = “=b2*c2”   ’将b2乘以c2赋值给d2

       Range(“d2”) = “=b2*c2”   ’将b2乘以c2赋值给d2

     End Sub

     End Sub

     皇家赌场网址hj9292 14

     皇家赌场网址hj9292 15

     Sub t2()

     Sub t2()

      Dim x As Integer

      Dim x As Integer

      For x = 2 To 6

      For x = 2 To 6

       Cells(x, 4) = “=b” & x & “*c” & x     ’将b列乘以c列赋值给d列

       Cells(x, 4) = “=b” & x & “*c” & x     ’将b列乘以c列赋值给d列

      Next x

      Next x

     End Sub

     End Sub

     皇家赌场网址hj9292 16

     皇家赌场网址hj9292 17

 

 

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

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

     Sub t3()

     Sub t3()

     Range(“c16”) = “=SUMIF(A2:A6,””b””,B2:B6)”
‘蒙受单引号就把单引号加倍

     Range(“c16”) = “=SUMIF(A2:A6,””b””,B2:B6)”
‘遭逢单引号就把单引号加倍

     End Sub

     End Sub

     注:在A2:A6单元格区域中,找到b项,共八个,将所对应的B列中的单元格值相加,即3+5=8。

     注:在A2:A6单元格区域中,找到b项,共三个,将所对应的B列中的单元格值相加,即3+5=8。

      皇家赌场网址hj9292 18

      皇家赌场网址hj9292 19

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

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

    Sub t4()

    Sub t4()

      Range(“c9”).FormulaArray = “=SUM(B2:B6*C2:C6)”

      Range(“c9”).FormulaArray = “=SUM(B2:B6*C2:C6)”

End Sub

End Sub

’注:将b列和c列相乘的结果

’注:将b列和c列相乘的结果

D、利用单元格公式再次回到值

D、利用单元格公式重临值

     Sub t5()

     Sub t5()

         Range(“d16”) = Evaluate(“=SUMIF(A2:A6,””b””,B2:B6)”)

         Range(“d16”) = Evaluate(“=SUMIF(A2:A6,””b””,B2:B6)”)

         Range(“d9”) = Evaluate(“=SUM(B2:B6*C2:C6)”)

         Range(“d9”) = Evaluate(“=SUM(B2:B6*C2:C6)”)

     End Sub

     End Sub

E、借用工作表函数

E、借用工作表函数

     Sub t6()

     Sub t6()

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

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

     End Sub

     End Sub

F、利用VBA函数

F、利用VBA函数

     Sub t7()

     Sub t7()

      Range(“C20”) = VBA.InStr(Range(“a20”), “E”)

      Range(“C20”) = VBA.InStr(Range(“a20”), “E”)

     End Sub

     End Sub

G、编写自定义函数

G、编写自定义函数

      Function wn()

      Function wn()

         wn = Application.Caller.Parent.Name

         wn = Application.Caller.Parent.Name

      End Function

      End Function

15. VBE编辑器

15. VBE编辑器

A、工程窗口

A、工程窗口

    a 显得工作簿工作表对象

    a 出示工作簿工作表对象

    b 窗体

    b 窗体

    c 模块

    c 模块

    d 类模块

    d 类模块

range(“a1”)=10

range(“a1”)=10

‘对应工程窗口的靶子和模板,显示其所具体的一些特色。

‘对应工程窗口的对象和模板,呈现其所具体的有的特点。

    

    

B、代码窗口

B、代码窗口

    a 注释文字的安装

    a 注释文字的设置

    b 代码缩进的装置

    b 代码缩进的安装

    c 代码强制转行的设置

    c 代码强制转行的装置

    d 代码运维和调剂

    d 代码运维和调节和测试

         ‘逐句运营

         ‘逐句运维

         ‘设置断点

         ‘设置断点

    e 对象列表框和进程列表框

    e 对象列表框和经过列表框

 C、立刻窗口

 C、立刻窗口

立马窗口能够把运营进度中的值立刻展现出来,首要用于程序的调节

立即窗口能够把运维进度中的值登时展现出来,主要用以程序的调节和测试

    Sub d()

    Sub d()

     Dim x As Integer, st As String

     Dim x As Integer, st As String

     For x = 1 To 10

     For x = 1 To 10

        st = st & Cells(x, 1)

        st = st & Cells(x, 1)

        Debug.Print “第” & x & “次运转结果:” & st

        Debug.Print “第” & x & “次运维结果:” & st

     Next x

     Next x

    End Sub

    End Sub

 D、本地窗口

 D、本地窗口

   ‘在当地窗口中得以展示运维中断时对象音信、变量值、数组消息等

   ‘在地头窗口中得以展现运营中断时对象音讯、变量值、数组音讯等

   Sub d1()

   Sub d1()

     Dim x As Integer, k As Integer

     Dim x As Integer, k As Integer

     For x = 1 To 10

     For x = 1 To 10

        k = k + Cells(x, 1)

        k = k + Cells(x, 1)

     Next x

     Next x

   End Sub

   End Sub

16.VBA分支语句与End语句

16.VBA分支语句与End语句

   

   

 

 

 A、END语句

 A、END语句

成效:强制退出全数正在周转的顺序。

职能:强制退出全体正在运作的次序。

B、 Exit语句:退出钦点的口舌

B、 Exit语句:退出钦点的说话

      a、Exit Sub语句

      a、Exit Sub语句

         Sub e1()

         Sub e1()

             Dim x As Integer

             Dim x As Integer

             For x = 1 To 100

             For x = 1 To 100

                Cells(1, 1) = x

                Cells(1, 1) = x

               If x = 5 Then

               If x = 5 Then

                 Exit Sub

                 Exit Sub

               End If

               End If

            Next x

            Next x

              Range(“b1”) = 100

              Range(“b1”) = 100

         End Sub

         End Sub

      b、Exit function语句

      b、Exit function语句

        Function ff()

        Function ff()

           Dim x As Integer

           Dim x As Integer

           For x = 1 To 100

           For x = 1 To 100

             If x = 5 Then

             If x = 5 Then

               Exit Function

               Exit Function

             End If

             End If

           Next x

           Next x

             ff = 100

             ff = 100

         End Function

         End Function

       c、Exit for语句

       c、Exit for语句

         Sub e2()

         Sub e2()

         Dim x As Integer

         Dim x As Integer

            For x = 1 To 100

            For x = 1 To 100

              Cells(1, 1) = x

              Cells(1, 1) = x

              If x = 5 Then

              If x = 5 Then

                Exit For

                Exit For

              End If

              End If

            Next x

            Next x

              Range(“b1”) = 100

              Range(“b1”) = 100

         End Sub

         End Sub

     d、Exit do 语句

     d、Exit do 语句

        Sub e3()

        Sub e3()

         Dim x As Integer

         Dim x As Integer

          Do

          Do

            x = x + 1

            x = x + 1

             Cells(1, 1) = x

             Cells(1, 1) = x

             If x = 5 Then

             If x = 5 Then

               Exit Do

               Exit Do

             End If

             End If

          Loop Until x = 100

          Loop Until x = 100

           Range(“b1”) = 100

           Range(“b1”) = 100

        End Sub

        End Sub

  C、VBA分支语句

  C、VBA分支语句

     Option Explicit

     Option Explicit

     a、Goto语句,跳转到钦命的地点

     a、Goto语句,跳转到内定的地方

        Sub t1()

        Sub t1()

        Dim x As Integer

        Dim x As Integer

        Dim sr

        Dim sr

        100:

        100:

        sr = Application.InputBox(“请输入数字”, “输入提示”)

        sr = Application.InputBox(“请输入数字”, “输入提醒”)

        If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100

        If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100

        End Sub

        End Sub

    注:“100:”便是一个Goto语句能够跳入的标志。“Len(sr)=0”表示输入框没有输入,“Len(sr)
= 5”表打消。其实质正是“false”是多少个字符。

    注:“100:”就是一个Goto语句能够跳入的表明。“Len(sr)=0”表示输入框没有输入,“Len(sr)
= 5”表撤废。其实质正是“false”是伍个字符。

        皇家赌场网址hj9292 20

        皇家赌场网址hj9292 21

皇家赌场网址hj9292,b、gosub..return ,跳过去,再跳回来

b、gosub..return ,跳过去,再跳回来

   Sub t2()

   Sub t2()

      Dim x As Integer

      Dim x As Integer

      For x = 1 To 10

      For x = 1 To 10

       If Cells(x, 1) Mod 2 = 0 Then GoSub 100

       If Cells(x, 1) Mod 2 = 0 Then GoSub 100

      Next x

      Next x

   Exit Sub

   Exit Sub

    100:

    100:

     Cells(x, 1) = “偶数”

     Cells(x, 1) = “偶数”

    Return    ‘跳到gosub 100 这一句

    Return    ‘跳到gosub 100 这一句

  End Sub

  End Sub

c、on error resume next ‘境遇错误,跳过继续执行下一句

c、on error resume next ‘境遇错误,跳过继续执行下一句

  Sub t3()

  Sub t3()

   On Error Resume Next

   On Error Resume Next

   Dim x As Integer

   Dim x As Integer

     For x = 1 To 10

     For x = 1 To 10

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

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

     Next x

     Next x

   End Sub

   End Sub

d、on error goto  ‘出错开上下班时间跳到钦赐的行数

d、on error goto  ‘出错开上下班时间跳到钦点的行数

   Sub t4()

   Sub t4()

    On Error GoTo 100

    On Error GoTo 100

    Dim x As Integer

    Dim x As Integer

    For x = 1 To 10

    For x = 1 To 10

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

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

    Next x

    Next x

      Exit Sub

      Exit Sub

    100:

    100:

      Msg博克斯 “在第” & x & “行出错了”

      MsgBox “在第” & x & “行出错了”

    End Sub

    End Sub

 e、on error goto 0 ‘废除错误跳转

 e、on error goto 0 ‘撤销错误跳转

   Sub t5()

   Sub t5()

      On Error Resume Next

      On Error Resume Next

      Dim x As Integer

      Dim x As Integer

      For x = 1 To 10

      For x = 1 To 10

      If x > 5 Then On Error GoTo 0

      If x > 5 Then On Error GoTo 0

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

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

      Next x

      Next x

         Exit Sub

         Exit Sub

   End Sub

   End Sub

 

 

 

 

1柒 、Excel文件操作的多少个概念

1柒 、Excel文件操作的多少个概念

    A、excel文件和工作簿概念

    A、excel文件和工作簿概念

      excel文件就是excel工作簿,excel文件打开要求excel程的支撑

      excel文件正是excel工作簿,excel文件打开供给excel程的扶助

      Workbooks  工作簿集合,泛指excel文件或工作簿

      Workbooks  工作簿集合,泛指excel文件或工作簿

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

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

     Sub t1()

     Sub t1()

        Workbooks(“A.xls”).Sheets(1).Range(“a1”) = 100

        Workbooks(“A.xls”).Sheets(1).Range(“a1”) = 100

     End Sub

     End Sub

                                                           

                                                           

     workbooks(2),按打开各种,第3个打开的工作簿。

     workbooks(2),按打开种种,第②个打开的工作簿。

      Sub t2()

      Sub t2()

        Workbooks(2).Sheets(2).Range(“a1”) = 200

        Workbooks(2).Sheets(2).Range(“a1”) = 200

     End Sub

     End Sub

                                                           

                                                           

     ActiveWorkbook
,当打开四个excel工作簿时,你正在操作的万分便是ActiveWorkbook(活动工作簿)

     ActiveWorkbook
,当打开八个excel工作簿时,你正在操作的百般正是ActiveWorkbook(活动工作簿)

     Thisworkbook,VBA程序所在的工作簿,无论你打开多少个工作簿,无论当前是哪个工作簿是移动的,thisworkbook正是指它所在的工作簿。

     Thisworkbook,VBA程序所在的工作簿,无论你打开几个工作簿,无论当前是哪个工作簿是移动的,thisworkbook就是指它所在的工作簿。

 

 

   B、工作簿窗口

   B、工作簿窗口

       Windows(“A.xls”),A工作簿的窗口,使用windows能够安装工作簿窗口的图景,如是不是隐身等。

       Windows(“A.xls”),A工作簿的窗口,使用windows能够安装工作簿窗口的事态,如是或不是隐伏等。

       Sub t3()

       Sub t3()

          Windows(“A.xls”).Visible = False

          Windows(“A.xls”).Visible = False

       End Sub

       End Sub

                                                                                          

                                                                                          

       Sub t4()

       Sub t4()

        Windows(2).Visible = True

        Windows(2).Visible = True

       End Sub

       End Sub

                                                                                          

                                                                                          

1⑧ 、Excel文件的操作

1八 、Excel文件的操作

   A、 判断A.Xls文件是还是不是留存

   A、 判断A.Xls文件是不是留存

     Sub W1()

     Sub W1()

     If Len(Dir(“d:/A.xls”)) = 0 Then

     If Len(Dir(“d:/A.xls”)) = 0 Then

       MsgBox “A文件不存在”

       MsgBox “A文件不存在”

     Else

     Else

       MsgBox “A文件存在”

       MsgBox “A文件存在”

     End If

     End If

    End Sub

    End Sub

  B、 判断A.Xls文件是不是打开

  B、 判断A.Xls文件是或不是打开

    Sub W2()

    Sub W2()

     Dim X As Integer

     Dim X As Integer

      For X = 1 To Windows.Count

      For X = 1 To Windows.Count

        If Windows(X).Caption = “A.XLS” Then

        If Windows(X).Caption = “A.XLS” Then

          MsgBox “A文件打开了”

          MsgBox “A文件打开了”

          Exit Sub

          Exit Sub

        End If

        End If

      Next

      Next

    End Sub

    End Sub

C、excel文件新建和保存

C、excel文件新建和保留

   Sub W3()

   Sub W3()

     Dim wb As Workbook

     Dim wb As Workbook

     Set wb = Workbooks.Add

     Set wb = Workbooks.Add

       wb.Sheets(“sheet1”).Range(“a1”) = “abcd”

       wb.Sheets(“sheet1”).Range(“a1”) = “abcd”

     wb.SaveAs “D:/B.xls”

     wb.SaveAs “D:/B.xls”

  End Sub

  End Sub

D、 excel文件打开和关闭  

D、 excel文件打开和关闭  

  Sub w4()

  Sub w4()

    Dim wb As Workbook

    Dim wb As Workbook

    Set wb = Workbooks.Open(“D:/B.xls”)

    Set wb = Workbooks.Open(“D:/B.xls”)

    MsgBox wb.Sheets(“sheet1”).Range(“a1”).Value

    MsgBox wb.Sheets(“sheet1”).Range(“a1”).Value

    wb.Close False

    wb.Close False

  End Sub

  End Sub

E、 excel文件保留和备份

E、 excel文件保留和备份

   Sub w5()

   Sub w5()

      Dim wb As Workbook

      Dim wb As Workbook

      Set wb = ThisWorkbook

      Set wb = ThisWorkbook

      wb.Save

      wb.Save

      wb.SaveCopyAs “D:/ABC.xls”

      wb.SaveCopyAs “D:/ABC.xls”

    End Sub

    End Sub

 F、 excel文件复制和删除

 F、 excel文件复制和删除

    Sub W6()

    Sub W6()

      FileCopy “D:/ABC.XLS”, “E:/ABCd.XLS”

      FileCopy “D:/ABC.XLS”, “E:/ABCd.XLS”

      Kill “D:/ABC.XLS”

      Kill “D:/ABC.XLS”

End Sub

End Sub

1九 、工作表的定义

1⑨ 、工作表的定义

   A、excel工作表的分类

   A、excel工作表的分类

      excel工作表有两大类,一类是大家平常用的工作表(worksheet),另一类是图形、宏表等。那两类的统称是sheets

      excel工作表有两大类,一类是大家平日用的工作表(worksheet),另一类是图片、宏表等。那两类的统称是sheets

      sheets  工作表集合,泛指excel各类工作表

      sheets  工作表集合,泛指excel各个工作表

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

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

                                                                              

                                                                              

      Sub t1()

      Sub t1()

        Sheets(“A”).Range(“a1”) = 100

        Sheets(“A”).Range(“a1”) = 100

      End Sub

      End Sub

                                                                              

                                                                              

     ‘ workbooks(2),按打开种种,第二个打开的工作簿。

     ‘ workbooks(2),按打开各种,第一个打开的工作簿。

        Sub t2()

        Sub t2()

          Sheets(2).Range(“a1”) = 200

          Sheets(2).Range(“a1”) = 200

       End Sub

       End Sub

     ‘ActiveSheet
,当打开五个excel工作簿时,你正在操作的百般就是ActiveSheet

     ‘ActiveSheet
,当打开八个excel工作簿时,你正在操作的不行正是ActiveSheet

                                                                                

                                                                                

  20、工作表的操作

  20、工作表的操作

     A、判断A工作表文件是不是存在

     A、判断A工作表文件是或不是留存

       Sub s1()

       Sub s1()

        Dim X As Integer

        Dim X As Integer

         For X = 1 To Sheets.Count

         For X = 1 To Sheets.Count

           If Sheets(X).Name = “A” Then

           If Sheets(X).Name = “A” Then

             MsgBox “A工作表存在”

             MsgBox “A工作表存在”

             Exit Sub

             Exit Sub

           End If

           End If

         Next

         Next

         MsgBox “A工作表不设有”

         MsgBox “A工作表不设有”

       End Sub  

       End Sub  

     B、 excel工作表的插入

     B、 excel工作表的插入

        Sub s2()

        Sub s2()

          Dim sh As Worksheet

          Dim sh As Worksheet

          Set sh = Sheets.Add

          Set sh = Sheets.Add

           sh.Name = “模板”

           sh.Name = “模板”

          sh.Range(“a1”) = 100

          sh.Range(“a1”) = 100

        End Sub

        End Sub

     C、 excel工作表隐藏和撤废隐藏

     C、 excel工作表隐藏和注销隐藏

        Sub s3()

        Sub s3()

         Sheets(2).Visible = True

         Sheets(2).Visible = True

        End Sub

        End Sub

     D、 excel工作表的移动

     D、 excel工作表的活动

        Sub s4()

        Sub s4()

         Sheets(“Sheet2”).Move before:=Sheets(“sheet1”)
‘sheet2移动到sheet1前面

         Sheets(“Sheet2”).Move before:=Sheets(“sheet1”)
‘sheet2移动到sheet1前面

         Sheets(“Sheet1”).Move after:=Sheets(Sheets.Count)
‘sheet1活动到持有工作表的尾声面

         Sheets(“Sheet1”).Move after:=Sheets(Sheets.Count)
‘sheet1活动到具备工作表的末段面

        End Sub

        End Sub

    E、 excel工作表的复制

    E、 excel工作表的复制

       Sub s5() ‘在本工作簿中

       Sub s5() ‘在本工作簿中

          Dim sh As Worksheet

          Dim sh As Worksheet

           Sheets(“模板”).Copy before:=Sheets(1)

           Sheets(“模板”).Copy before:=Sheets(1)

           Set sh = ActiveSheet

           Set sh = ActiveSheet

              sh.Name = “1日”

              sh.Name = “1日”

             sh.Range(“a1”) = “测试”

             sh.Range(“a1”) = “测试”

        End Sub

        End Sub

    F、工作表的保存

    F、工作表的保存

       Sub s6() ‘另存为新工作簿

       Sub s6() ‘另存为新工作簿

           Dim wb As Workbook

           Dim wb As Workbook

            Sheets(“模板”).Copy

            Sheets(“模板”).Copy

            Set wb = ActiveWorkbook

            Set wb = ActiveWorkbook

               wb.SaveAs ThisWorkbook.Path & “/1日.xls”

               wb.SaveAs ThisWorkbook.Path & “/1日.xls”

               wb.Sheets(1).Range(“b1”) = “测试”

               wb.Sheets(1).Range(“b1”) = “测试”

               wb.Close True

               wb.Close True

       End Sub

       End Sub

   G、 尊敬工作表

   G、 珍贵工作表

        Sub s7()

        Sub s7()

           Sheets(“sheet2”).Protect “123”

           Sheets(“sheet2”).Protect “123”

        End Sub

        End Sub

        Sub s8() ‘判断工作表是不是添加了保卫安全密码

        Sub s8() ‘判断工作表是还是不是添加了保卫安全密码

           If Sheets(“sheet2”).ProtectContents = True Then

           If Sheets(“sheet2”).ProtectContents = True Then

             MsgBox “工作簿爱慕了”

             MsgBox “工作簿尊敬了”

           Else

           Else

             MsgBox “工作簿没有添加入保证护”

             MsgBox “工作簿没有增进爱慕”

           End If

           End If

        End Sub

        End Sub

   H、工作表删除

   H、工作表删除

       Sub s9()

       Sub s9()

           Application.DisplayAlerts = False

           Application.DisplayAlerts = False

              Sheets(“模板”).Delete

              Sheets(“模板”).Delete

           Application.DisplayAlerts = True

           Application.DisplayAlerts = True

       End Sub

       End Sub

  I、工作表的精选

  I、工作表的选取

       Sub s10()

       Sub s10()

            Sheets(“sheet2”).Select

            Sheets(“sheet2”).Select

        End Sub

        End Sub

 

 

Leave a Comment.