每周二培训笔记分享【第08讲】循环语句和变量--2012年02月21日
本帖最后由 zhouyunj 于 2012-3-27 22:26 编辑感谢兰版的精彩培训，受益匪浅，万分感激！
以下所有笔记均为兰版每周二晚培训课程的本人做的笔记--完整版
================================================
【第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的语句
第三种：关闭了当前文件
谢谢分享。 谢谢分享。 {:1_1:}{:1_1:}
页:
[1]