每周二培训笔记分享【第08讲】循环语句和变量--2012年02月21日

zhouyunj

感谢兰版的精彩培训，受益匪浅，万分感激！
以下所有笔记均为兰版每周二晚培训课程的本人做的笔记--完整版
================================================
【第8讲】 循环语句和变量--2012年02月21日
主要内容：
1、for...next循环
2、for..each..next循环
3、Do loop循环
4、变量
-------------------------------------------------
'自动复制填写原有公式选中最后一个格子 ctrl+shift+上箭头  --即选中所有要填空的格子
ctrl + d  --所有格子全部复制第一个格子的公式填充
range("d2") = range("b2") * range("c2")
sub t2()
Dim x As Integer
For x = 2 To 18
   range("d" & x) = range("b" & x) * range("c" & x) --单元格 d2 = b2 * c2
Next x
end Sub
--a1至a10赋值1到10
For x =1 To 10
  range("a"&x) = x
Next x
--step步长
For x = 1 To 18
  range("d"&x) = range("b"&x) * range("c"&x) v
Next x
--For each in 循环语句将几块区域的空格填为0
Dim rg As range
For each rg in range("a1:b7, d5:e9")
  If rg = "" Then
   rg = 0
  End If
Next rg
--For Next 循环
Sub s()
Dim x As Integer
For x = 1 To 10
  Range("a" & x) = x * 2
Next x
End Sub
--for next 循环 将区域块为空的range单元格置为9
Sub s1()
    Dim rg As Range
    For Each rg In Range("a1:b7, d5:e9")
        If rg = "" Then
            rg = 9
        End If
    Next rg
End Sub
--Do loop until循环
Sub t4()
Dim x As Integer
x = 1
Do
    x = x + 1
    Cells(x, 4) = Cells(x, 2) * Cells(x, 3)  'cells(行数，列数)
Loop Until x = 18
End Sub
--ctrl + break 循环中止运行 快捷键
--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
---变更Integer   --给1到1000行的第一列填写序号
Sub t6()
Dim x As Integer
For x = 1 To 1000
  cells(x,1) = x
Next x
End Sub
---变量String
Sub t2()
Dim st As String
Dim x As Integer
mmm = 1
For x = 1 To 10
  st = st& "excel精英培训"
Next x
End Sub
---变量 对象  --设置对象的时候需要用Set
Sub t3()
  Dim rg As range
  Dim rggg
  Set rg = range("a1")
  rg = 100
End Sub
---变更 模块变更
Option Explicit
Dim rrrr As Integer  ---rrrr仅可以在此模块内所有程序共用
---变更 全局变更  ---k可以在任意模块之间共用
Option Explicit
Public k As Integer
---三种情况可以释放公共全局变更的值
第一种：重新编写代码
第二种：运行了带end的语句
第三种：关闭了当前文件

libenwen2011

谢谢分享。                                         

jlf2003

谢谢分享。