excel怎么每间距5分钟接纳一个数字,宏本事集绵

2019-10-30 19:54 来源:未知

问题:excel怎么每间距5分钟选用一个数字?

 

回答:

哪些是VBA?它有啥样效果?

多谢“静水深流57560”邀约回答!

 A.实现Excel中从不落到实处的功能。

首先步,请点击标题《Excel设置启用宏方法(宏等级设置)!》查看设置,这里不再重复;

 B.升高运维速度。

其次步,编写代码流程:开荒工具→Visual Basic→插入(选用模块)→模块1(双击)→经考试录代替码(附后)→保存(2005后的本子要封存为启用宏的劳作簿.xlsm);韦德娱乐1946 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() 提姆eValue("00:05:00"), "xuanqu" '间距5分钟后循环运营

End Sub

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

xuanqu

End Sub

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

其三步,结果预览。

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

韦德娱乐1946 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”——“视图”——“工程能源管理器”——“插入”——“模块”——在右侧输入代码:

   韦德娱乐1946 3

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

 

6.VBA语句

  A.宏程序语句。

   韦德娱乐1946 4

  B.函数程序语句

  韦德娱乐1946 5

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

  韦德娱乐1946 6

D.循环语句。

  韦德娱乐1946 7

7.VBA对象

  A.专门的职业簿对象

     Workbooks 代表职业簿会集,全数的职业簿,Workbooks(N),表示已开发的第N个专业簿

     Workbooks ("专业簿名称")

     ActiveWorkbook 正在操作的工作簿

     ThisWorkBook '代码所在的工作簿

  B.职业表对象

     Sheets("职业表名称")

     Sheet1 表示第八个插入的专门的学问表,Sheet2象征第4个插入的劳作表....

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

     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),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):

           有效数为7位 表示-3.37E 38至3.37E 38中间的实数

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

           有效数为16人

     (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

     韦德娱乐1946 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

     韦德娱乐1946 9

 

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

     Sub t3()

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

     End Sub

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

      韦德娱乐1946 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个字符。

        韦德娱乐1946 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

       Msg博克斯 "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),按张开各样,第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

 

TAG标签: 韦德娱乐1946
版权声明:本文由韦德娱乐1946_韦德娱乐1946网页版|韦德国际1946官网发布于韦德娱乐1946,转载请注明出处:excel怎么每间距5分钟接纳一个数字,宏本事集绵