网络办公

当前位置:永利402游戏网站-永利402com官方网站 > 网络办公 > VBA续嘘嘘——宏技巧集绵

VBA续嘘嘘——宏技巧集绵

来源:http://www.xtcsyb.com 作者:永利402游戏网站-永利402com官方网站 时间:2019-11-03 11:19

问题:Excel怎么着在一列中显得出办事薄中全数职业表的名号?

 

回答:

什么是VBA?它有哪些成效?

在一列中显示职业薄的具备专门的学业表的称呼,不行使VBA的解决方案下如:

 A.完结Excel中并未贯彻的职能。

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

 B.提升运维速度。

图片 1

 C.编写自定义函数。

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

 D.完结自动化作用。

图片 2

 E.通过插入窗体做Mini处理软件。

回答:

VBA在何地存放的?怎么运营?

以此难点得以简化为:

 A.模块中

收获三个专门的事业簿里面装有的sheet_name?

   在Excel 20第10中学若未有“开采工具”项,通过“文件”——“选项”——“自定义作用区”——选中“开拓工具”——“鲜明”(图1卡塔尔国。

(1卡塔尔平日遭逢须要获得sheet_name的境况是:

(注:为了抓牢word20第10中学插入的图片的质量,“文件”——“选项”——“高级”——选中“不压缩文件图像质量”——“鲜明”。卡塔尔国

风流倜傥初步并未有很好的简化式命名sheet_name,sheet_name中绝非统朝气蓬勃的格式,还大概有空格等这种景观。

 

从没有过创建选拔工作簿,有个别只是为着“方便”,三个专门的学业簿建了四十多个以上的sheet,其实这种分类做法确实给你的频率巨惠扣的!

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

难度指数:♢

图2 ”自定义成效区”—“开辟工具”——“明显”

在不敢问津sheet个数之处首推VBA:

 

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

图3 最终的分界面多出了“开垦工具”选项卡

Sub a()

 

For Each sh In Sheets

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

k = k + 1

B.运行宏

Cells(k, 1) = sh.Name

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

Next

 

End Sub

   

—>运行

                                                   图5 右绿三角运行  

『看完有拿到点个赞吧- -』

                                                          图6  选中test并“运行”

图片 3回答:

 

1、宏表函数

                                                    图7 运维结果

2、使用VBA,都足以的

3.什么样是宏?宏和VBA有啥样关联?

回答:

 宏(Macro),是风流倜傥种批量管理。

能够动用链接成效,做成目录,查找也利于,再在每张表中设再次来到键直接返回目录。

 宏经常不仅可以够录制又有什么不可手动编制程序,而VBA平时是经过编制程序完毕。宏能够和VBA相结合使用。

回答:

4.录制贰个宏。

也正是建个目录索引,函数和代码都能够的

  A.“开垦工具”——“摄像宏”——宏名叫“输入100”——“摄像”——在A1单元格中输入100——“甘休”。

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

  

5.编写制定叁个宏。

  A.“开荒工具”——“Visual Basic”——“视图”——“工程能源微电脑”——“插入”——“模块”——在右边手输入代码:

   图片 4

  B. 单击绿右三角就可以运转。或许关闭VBA编辑窗口,单击“宏”——选中“test”——“施行”。

 

6.VBA语句

  A.宏程序语句。

   图片 5

  B.函数程序语句

  图片 6

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

  图片 7

D.循环语句。

  图片 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卡塔 尔(英语:State of Qatar)表示相仿的单元格

     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中三个报表的居民身份证号,配成对并填充到另叁个表中。宏代码如下:

     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

   注:将10000行数据中每间距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;第多个参数是笔直运动,正为升高,负为向下;第一个参数是程度位移,正为向右,负为向左。

   

                图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)

    Loop Until x = 18

   End Sub

   ’注:Cell(行,列卡塔尔国,即上文中的x指的是行。将第二列和第三列相乘赋值给第四列。

F.Do While……Loop语句

   Sub t5()

    x = 1

    Do While x < 18

      x = x + 1

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

    Loop

   End Sub

   ’注:Cell(行,列卡塔尔国,即上文中的x指的是行。将第二列和第三列相乘赋值给第四列。

G.Do ……Loop Until语句

   Sub s2()

    Dim x As Integer

    Do

      x = x + 1

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

         Cells(x, 2) = "断点"

         Exit Do

      End If

    Loop Until x = 14

   End Sub

   ’判定第1列中的数据不三回九转,就在今后的单元格输入叁个“断点”。

13. 上学变量

   A、什么是变量?

     所谓变量,正是可变的量。就好象在内存中有时贮存的多个小盒子,这么些小盒子放的怎么样物体不确定地点。

     Dim m As Integer

     Sub t1()

       Dim X As Integer 'x正是三个整形变量

       For X = 1 To 10

         Cells(X, 1) = X

        Next X

      End Sub

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

 

      1、放数字   2、放文本

        Sub t2()

       Dim st As String    ’st存放字符串

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

       For X = 1 To 10

        st = st & "Excel精英培养演习"

       Next X

       End Sub

     3、 放对象

       Sub t3()

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

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

          rg = 100

        End Sub

    4、 放数组

       Sub t4()

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

          For X = 1 To 10

            arr(X) = X

          Next X

       End Sub

      ’数组arr(1卡塔 尔(英语:State of Qatar),arr(2卡塔 尔(阿拉伯语:قطر‎,arr(3卡塔尔国……arr(10卡塔尔国都是整形类型

C、变量的品类和申明

   1 变量的项目

     (1)整型(Integer):

          表示-32768至32767里面包车型地铁子弹头          比方:10   110   20

     (2)长整型(Long):

          表示-2,147,483,648至2,147,483,647里边的大背头

           比如:长整型的书写:    23454444554     

     (3卡塔尔单精度实型(Single卡塔 尔(英语:State of Qatar):

           有效数为7位 表示-3.37E+38至3.37E+38里面包车型地铁实数

     (4卡塔尔双精度实型(Double卡塔 尔(英语:State of Qatar):

           有效数为拾三位

     (5)字符型(String)

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

    (6) 逻辑型(Boolean)

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

    (7)日期型(Date)

         表示日期和岁月

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

   2 为什么要表明变量

     变量通过索引可以积存更多的值,在循环结构中的作用大。

   3 注解变量

      dim public

D、变量的幸存周期

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

       '如t1

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

 

         Sub t6()

            m = 1

         End Sub

         

        Sub t5()

          MsgBox m

          m = 7

         End Sub

 

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

       ' public 变量

         Sub t7()

           MsgBox qq

         End Sub

 E、变量的放飞

     日常情状下,进程级变量在进度运行甘休后就能够自动从内部存款和储蓄器中释放,而唯有一点从表面借用的指标变量才供给采用set 变量=nothing进行放飞。

14.函数与公式

A、用VBA在单元格中输入清汤寡水公式

Option Explicit

     Sub t1()

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

     End Sub

     图片 9

     Sub t2()

      Dim x As Integer

      For x = 2 To 6

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

      Next x

     End Sub

     图片 10

 

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

     Sub t3()

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

     End Sub

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

      图片 11

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

    Sub t4()

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

End Sub

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

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

     Sub t5()

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

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

     End Sub

E、借用专门的工作表函数

     Sub t6()

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

     End Sub

F、利用VBA函数

     Sub t7()

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

     End Sub

G、编写自定义函数

      Function wn()

         wn = Application.Caller.Parent.Name

      End Function

15. VBE编辑器

A、工程窗口

    a 展现职业簿专业表对象

    b 窗体

    c 模块

    d 类模块

range("a1")=10

'对应工程窗口的对象和模板,呈现其所具体的大器晚成对风味。

    

B、代码窗口

    a 注释文字的安装

    b 代码缩进的装置

    c 代码强制转行的装置

    d 代码运维和调节和测量试验

         '逐句运营

         '设置断点

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

 C、登时窗口

随时窗口能够把运维进度中的值立时突显出来,主要用于程序的调剂

    Sub d()

     Dim x As Integer, st As String

     For x = 1 To 10

        st = st & Cells(x, 1)

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

     Next x

    End Sub

 D、本地窗口

   '在本土窗口中得以体现运维中断时对象新闻、变量值、数组新闻等

   Sub d1()

     Dim x As Integer, k As Integer

     For x = 1 To 10

        k = k + Cells(x, 1)

     Next x

   End Sub

16.VBA分支语句与End语句

   

 

 A、END语句

功用:强制退出全部正在运维的次第。

B、 Exit语句:退出钦命的讲话

      a、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

      b、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

       c、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

     d、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

  C、VBA分支语句

     Option Explicit

     a、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

    注:“100:”正是三个Goto语句能够跳入的评释。“Len(sr)=0”表示输入框未有输入,“Len(sr) = 5”表撤销。其实质便是“false”是5个字符。

        图片 12

b、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    '跳到gosub 100 这一句

  End Sub

c、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

d、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

 e、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

   End Sub

 

 

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

    A、excel文件和工作簿概念

      excel文件正是excel专业簿,excel文件展开供给excel程的支撑

      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

                                                           

     ActiveWorkbook ,当展开四个excel事业簿时,你正在操作的十一分便是ActiveWorkbook(活动工作簿卡塔 尔(阿拉伯语:قطر‎

     Thisworkbook,VBA程序所在的工作簿,无论你展开多少个职业簿,无论当前是哪位职业簿是活动的,thisworkbook就是指它所在的职业簿。

 

   B、职业簿窗口

       Windows("A.xls"),A专业簿的窗口,使用windows能够设置职业簿窗口的意况,如是还是不是隐伏等。

       Sub t3()

          Windows("A.xls").Visible = False

       End Sub

                                                                                          

       Sub t4()

        Windows(2).Visible = True

       End Sub

                                                                                          

18、Excel文件的操作

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

     Sub W1()

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

       MsgBox "A文件一纸空文"

     Else

       MsgBox "A文件存在"

     End If

    End Sub

  B、 推断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

C、excel文件新建和保留

   Sub W3()

     Dim wb As Workbook

     Set wb = Workbooks.Add

       wb.Sheets("sheet1").Range("a1") = "abcd"

     wb.SaveAs "D:/B.xls"

  End Sub

D、 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

E、 excel文件保留和备份

   Sub w5()

      Dim wb As Workbook

      Set wb = ThisWorkbook

      wb.Save

      wb.SaveCopyAs "D:/ABC.xls"

    End Sub

 F、 excel文件复制和删除

    Sub W6()

      FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"

      Kill "D:/ABC.XLS"

End Sub

19、专门的学业表的概念

   A、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

                                                                                

  20、事业表的操作

     A、决断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  

     B、 excel职业表的插入

        Sub s2()

          Dim sh As Worksheet

          Set sh = Sheets.Add

           sh.Name = "模板"

          sh.Range("a1") = 100

        End Sub

     C、 excel工作表掩没和裁撤隐蔽

        Sub s3()

         Sheets(2).Visible = True

        End Sub

     D、 excel工作表的位移

        Sub s4()

         Sheets("Sheet2").Move before:=Sheets("sheet1") 'sheet2移动到sheet1前面

         Sheets("Sheet1").Move after:=Sheets(Sheets.Count) 'sheet1平移到独具职业表的末尾面

        End Sub

    E、 excel工作表的复制

       Sub s5() '在本工作簿中

          Dim sh As Worksheet

           Sheets("模板").Copy before:=Sheets(1)

           Set sh = ActiveSheet

              sh.Name = "1日"

             sh.Range("a1") = "测试"

        End Sub

    F、专门的工作表的保留

       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

   G、 敬重工作表

        Sub s7()

           Sheets("sheet2").Protect "123"

        End Sub

        Sub s8() '推断事业表是或不是加多了维护密码

           If Sheets("sheet2").ProtectContents = True Then

             MsgBox "职业簿珍爱了"

           Else

             MsgBox "事业簿没有加多入保障护"

           End If

        End Sub

   H、职业表删除

       Sub s9()

           Application.DisplayAlerts = False

              Sheets("模板").Delete

           Application.DisplayAlerts = True

       End Sub

  I、专门的学业表的选项

       Sub s10()

            Sheets("sheet2").Select

        End Sub

 

本文由永利402游戏网站-永利402com官方网站发布于网络办公,转载请注明出处:VBA续嘘嘘——宏技巧集绵

关键词:

上一篇:Excel怎么快速填充?

下一篇:没有了