宏技巧集绵,excel怎么每隔5分钟选取一个数字

问题:excel怎么每隔5分钟采纳八个数字?

 

 

回答:

何以是VBA?它有哪些遵守?

怎么着是VBA?它有怎么样意义?

感激“静水深流57560”邀约回答!

 A.实现Excel中绝非兑现的功能。

 A.完结Excel中从未完毕的遵守。

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

 B.进步运转速度。

 B.提升运维速度。

其次步,编写代码流程:开拓工具→Visual
Basic→插入(选拔模块)→模块1(双击)→经考试录代替码(附后)→保存(二零零七后的本子要保存为启用宏的专门的学业簿.xlsm);图片 1

 C.编写自定义函数。

 C.编写自定义函数。

代码如下:

 D.达成自动化功效。

 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.On提姆e Now() + TimeValue(“00:05:00”), “xuanqu”
‘间隔5分钟后循环运营

End Sub

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

xuanqu

End Sub

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

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

其三步,结果预览。

VBA在哪里寄放的?怎么运转?

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

图片 2

 A.模块中

 A.模块中

多谢您的读书!小编是#Excel财务VBA#,懂会计的程序猿,Excel&VBA理解。下边回答假设对你有协理,或有不了然的难题,或索要更加多自动化财务表单模板下载,或询问越来越多实战技艺分享。请记得点”关切”小编的头条号“Excel财务VBA”哦!也可私信

回答:

是或不是详细一点你的须求?

每隔五分钟取三个数字是在哪个地方取数字?

取的数字要用来做如何等等都没证明朝楚咧。

   在Excel 二零一零中若未有“开拓工具”项,通过“文件”——“选项”——“自定义作用区”——选中“开采工具”——“分明”(图1)。

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

(注:为了加强word20第10中学插入的图样的成色,“文件”——“选项”——“高档”——选中“不压缩文件图像品质”——“显著”。)

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

 

 

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

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

图2 ”自定义作用区”—“开垦工具”——“鲜明”

图2 ”自定义作用区”—“开拓工具”——“分明”

 

 

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

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

 

 

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

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

B.运行宏

B.运行宏

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

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

 

 

   

   

                                                   图5 右绿三角运维  

                                                   图5 右绿三角运维  

                                                          图6  选中test并“运行”

                                                          图6  选中test并“运行”

 

 

                                                    图7 运转结果

                                                    图7 运营结果

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

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

 宏(Macro),是一种批量处理。

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

 宏日常既可以够录制又有啥不可手动编程,而VBA常常是经过编制程序完结。宏能够和VBA相结合使用。

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

4.摄像三个宏。

4.录制二个宏。

  A.“开拓工具”——“录像宏”——宏名称叫“输入100”——“录像”——在A1单元格中输入100——“截至”。

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

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

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

  

  

5.编纂一个宏。

5.编辑三个宏。

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

  A.“开垦工具”——“Visual Basic”——“视图”——“工程能源管理器”——“插入”——“模块”——在左手输入代码:

   图片 3

   图片 3

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

  B. 单击绿右三角就能够运营。大概关闭VBA编辑窗口,单击“宏”——选中“test”——“执行”。

 

 

6.VBA语句

6.VBA语句

  A.宏程序语句。

  A.宏程序语句。

   图片 5

   图片 5

  B.函数程序语句

  B.函数程序语句

  图片 7

  图片 7

 C.在程序中应运语句。

 C.在程序中应运语句。

  图片 9

  图片 9

D.循环语句。

D.循环语句。

  图片 11

  图片 11

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意味第2个插入的行事表….

     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”)   ’将A1中的内容复制到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中二个报表的身份ID号,配成对并填充到另三个表中。宏代码如下:

10.在二个乡政党的公文中要求将Excel中八个表格的身份ID号,配成对并填充到另二个表中。宏代码如下:

     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

       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列。

   注:将一千0行数据中每隔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)指的正是向左移动1个单元格,即c2;而Offset(0, -2)指的便是向左移动2个单元格,即b2;第三个参数是垂直运动,正为发展,负为向下;第三个参数是水平位移,正为向右,负为向左。

   ’注:offset正是偏移,针对d2来说,Offset(0, -1)指的正是向左移动1个单元格,即c2;而Offset(0, -2)指的正是向左移动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)