韦德1946游戏官网_www.19461188.com_伟德体育app最新下载
做最好的网站
您的位置:韦德1946游戏官网 > 伟德体育app最新下载 > excel怎么每间距5分钟选取叁个数字,宏本事集绵

excel怎么每间距5分钟选取叁个数字,宏本事集绵

2019-11-06 06:19

问题:excel怎么每间距5分钟采取叁个数字?

 

回答:

何以是VBA?它有啥效力?

感谢“静水深流57560”诚邀回答!

 A.完结Excel中从来不兑现的功用。

率先步,请点击题目《Excel设置启用宏方法(宏等第设置卡塔尔!》查看设置,这里不再另行;

 B.提升运行速度。

第二步,编写代码流程:开垦工具→Visual Basic→插入(选用模块卡塔 尔(阿拉伯语:قطر‎→模块1(双击卡塔尔国→经考试录代替码(附后卡塔 尔(英语:State of Qatar)→保存(贰零零伍后的版本要保留为启用宏的干活簿.xlsm卡塔 尔(阿拉伯语:قطر‎;伟德体育app最新下载 1

 C.编写自定义函数。

代码如下:

 D.实现自动化效用。

Dim i As Long '注明数值类型变量

Sub xuanqu()

i = i 1 '单元格行号变量

If Range("a" & i) = "" Then i = 1 '碰到空格重回起先

Range("a" & i).Select '选中单元格

MsgBox Range("a" & i), , "选择数字" '提醒窗口展现单元格数据

Application.OnTime Now() TimeValue("00:05:00"), "xuanqu" '间距5秒钟后循环运营

End Sub

Sub auto_open() '张开文件时自动运营选字模块

xuanqu

End Sub

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

其三步,结果预览。

VBA在哪个地方寄存的?怎么运作?

伟德体育app最新下载 2

 A.模块中

多谢您的读书!作者是#Excel财务VBA#,懂会计的程序猿,Excel&VBA精晓。上边回答假设对你有帮忙,或有不明了的标题,或索要越来越多自动化财务表单模板下载,或询问更加的多实战本事分享。请记得点"关怀"小编的头条号“Excel财务VBA”哦!也可私信

回答:

是不是详细一点你的必要?

每隔五秒钟取四个数字是在何地取数字?

取的数字要用来做怎么着等等都没表西魏楚咧。

   在Excel 20第10中学若未有“开辟工具”项,通过“文件”——“选项”——“自定义成效区”——选中“开辟工具”——“分明”(图1卡塔 尔(阿拉伯语:قطر‎。

(注:为了增加word20第10中学插入的图纸的质量,“文件”——“选项”——“高等”——选中“不压缩文件图像品质”——“明显”。卡塔 尔(阿拉伯语:قطر‎

 

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

图2 ”自定义效能区”—“开拓工具”——“鲜明”

 

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

 

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

B.运行宏

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

 

   

                                                   图5 右绿三角运营  

                                                          图6  选中test并“运行”

 

                                                    图7 运维结果

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

 宏(Macro),是后生可畏种批量拍卖。

 宏常常既可以够摄像又能够手动编制程序,而VBA平常是因而编制程序实现。宏能够和VBA相结合使用。

4.摄像四个宏。

  A.“开采工具”——“录像宏”——宏名称叫“输入100”——“摄像”——在A1单元格中输入100——“结束”。

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

  

5.编纂三个宏。

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

   伟德体育app最新下载 3

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

 

6.VBA语句

  A.宏程序语句。

   伟德体育app最新下载 4

  B.函数程序语句

  伟德体育app最新下载 5

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

  伟德体育app最新下载 6

D.循环语句。

  伟德体育app最新下载 7

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”卡塔 尔(英语:State of Qatar)和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。

伟德体育app最新下载,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方法来制订单元格卡塔 尔(英语:State of Qatar)

   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卡塔尔国,arr(2卡塔 尔(英语:State of Qatar),arr(3卡塔尔……arr(10卡塔 尔(英语:State of Qatar)都以整形类型

C、变量的种类和注脚

   1 变量的品类

     (1)整型(Integer):

          表示-32768至32767以内的整数           例如:10   110   20

     (2)长整型(Long):

          表示-2,147,483,648至2,147,483,647里边的子弹头

           举例:长整型的书写:    23454444554     

     (3卡塔 尔(阿拉伯语:قطر‎单精度实型(Single卡塔尔:

           有效数为7位 表示-3.37E 38至3.37E 38里面的实数

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

           有效数为14个人

     (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

     伟德体育app最新下载 8

     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

     伟德体育app最新下载 9

 

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

     Sub t3()

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

     End Sub

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

      伟德体育app最新下载 10

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个字符。

        伟德体育app最新下载 11

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

          Msg博克斯 "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),按展开各样,第1个展开的专门的学问簿。

        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

         Msg博克斯 "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

             Msg博克斯 "职业簿未有增加珍爱"

           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

 

本文由韦德1946游戏官网发布于伟德体育app最新下载,转载请注明出处:excel怎么每间距5分钟选取叁个数字,宏本事集绵

关键词: