【www.myl5520.com--爱情诗】
古筝《幻想曲》简谱
篇一:蓝色幻想简谱
古筝《幻想曲》简谱
篇二:蓝色幻想简谱
幻想曲
演唱者：未知 专辑： 类别：民族 格式：古筝谱 来源：网络 日期：2008-2-27 人气：1536
祈祷《蓝色生死恋》简谱
篇三:蓝色幻想简谱
蓝色幻想简谱。
蓝色幻想VBA
篇四:蓝色幻想简谱
蓝色幻想简谱。
兰色幻想VBA80集第1集：宏与VBA................................................................................... 2
兰色幻想VBA80集第2集：VBA中的语句、对象、方法与属性 ....................................... 4
兰色幻想VBA80集第3集：循环语句 .................................................................................. 5
兰色幻想VBA80集第4集：判断语句 .................................................................................. 7
兰色幻想VBA80集第5集：VBA变量Dim m As Integer ...................................................... 8
兰色幻想VBA80集第1集：宏与VBA 'VBA中的对象其实就是我们操作的具有方法、属性的excel中支持的对象
'Excel中的几个常用对象表示方法
'1、工作簿
' Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿
' Workbooks ("工作簿名称")
' ActiveWorkbook 正在操作的工作簿
' ThisWorkBook '代码所在的工作簿
'2、工作表
' 'Sheets("工作表名称")
'Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表.... 'Sheets(n) 表示按排列顺序，第n个工作表
'ActiveSheet 表示活动工作表，光标所在工作表
'worksheet 也表示工作表，但不包括图表工作表、宏工作表等。
'3、单元格
'cells 所有单元格
'Range ("单元格地址")
'Cells(行数,列数)
'Activecell 正在选中或编辑的单元格
'Selection 正被选中或选取的单元格或单元格区域
'一、VBA属性
'VBA属性就是VBA对象所具有的特点
'表示某个对象的属性的方法是
'对象.属性=属性值
Sub ttt()
Range("a1").Value = 100
End Sub
Sub ttt1()
Sheets(1).Name = "工作表改名了"
End Sub
Sub ttt2()
Sheets("Sheet2").Range("a1").Value = "abcd"
End Sub
Sub ttt3()
Range("A2").Interior.ColorIndex = 3
End Sub
'二 、VBA方法
'VBA方法是作用于VBA对象上的动作
'表示用某个方法作用于VBA的对象上，可以用下面的格式：
Sub ttt4()
牛排.做 熟的程度:=七成熟
Range("A1").Copy Range("A2")
End Sub
Sub ttt5()
Sheet1.Move before:=Sheets("Sheet3")
End Sub蓝色幻想简谱。
兰色幻想VBA80集第2集：VBA中的语句、对象、方法与属性
'VBA语句
'一、宏程序语句
'运行后可以完成一个功能
Sub test() '开始语句
Range("a1") = 100
End Sub '结束语句
'二、函数程序语句
'运行后可以返回一个值
Function shcount()
shcount = Sheets.Count
End Function
'三、在程序中应用的语句
Sub test2()
Call test
End Sub
Sub test3()
For x = 1 To 100 'for next 循环语句
Cells(x, 1) = x
Next x
End Sub
兰色幻想VBA80集第3集：循环语句Sub 判断1() '单条件判断
If Range("a1").Value > 0 Then
Range("b1") = "正数"
Else
Range("b1") = "负数或0"
End If
End Sub
Sub 判断2() '多条件判断
If Range("a1").Value > 0 Then
Range("b1") = "正数"
ElseIf Range("a1") = 0 Then
Range("b1") = "等于0"
ElseIf Range("B1") <= 0 Then
Range("b1") = "负数"
End If
End Sub
Sub 多条件判断2()
If Range("a1") <> "" And Range("a2") <> "" Then
Range("a3") = Range("a1") * Range("a2")
End If
End Sub