Sub select多条件判断()
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub
Sub select多条件判断2()
Select Case Sheet1.[b1].Value
Case "12"
Sheet1.[a1] = "你输入的值...
分类:
编程语言 时间:
2015-05-01 12:02:52
阅读次数:
177
Sub 属性赋值()
Sheet1.Name = "工作表1"
Sheet1.Range("a1").Value = "王小涛_同學"
End Sub
转载请注明作者与出处:http://blog.csdn.net/u013511642 王小涛_同學...
分类:
编程语言 时间:
2015-04-30 09:00:44
阅读次数:
136
Sub 常量()
Const pi = 3.1415926
End Sub
Sub 变量()
Dim a As Integer
a = 100
a = 200
End Sub
Sub 应用()
Const pi = 3.1415926 '常量
a = 200 '变量,可不用声明
Debug.Print pi * a '在立即窗口显示
End Sub 转载请注明作者与出处:ht...
分类:
编程语言 时间:
2015-04-30 08:58:34
阅读次数:
148
Sub 选择方法()
Range("a1:a10").Select '因为没有写工作表名,则默认为活动工作表
End Sub
Sub 复制方法()
Sheet1.Range("a1:a10") = "王小涛_同學" '将值写入到a1----a10区域
Sheet1.Range("a1:a10").Copy Sheet2.Range("a1") '将表一的a1---a...
分类:
编程语言 时间:
2015-04-30 08:58:30
阅读次数:
135
Sub IF条件判断()
If Sheet1.Range("a1") >= 90 Then
Sheet1.Range("b1") = "优秀"
ElseIf Sheet1.Range("a1") >= 80 Then
Sheet1.Range("b1") = "良好"
Else
Sheet1.Range("b1") = "较差...
分类:
编程语言 时间:
2015-04-30 08:56:01
阅读次数:
187
2013-05-01 Created By BaoXinjian一、摘要本教程介绍开发一个简单的Excel WorkSheet并与Fusion Web Application进行整合,将页面转换为Desktop Excel用以用户上传资料案例目的:创建一个Query ExcelWorksheet用以...
分类:
其他好文 时间:
2015-03-22 10:35:18
阅读次数:
238
2013-05-01 Created By BaoXinjian一、摘要本教程介绍开发一个简单的Excel WorkSheet并与Fusion Web Application进行整合,将页面转换为Desktop Excel用以用户上传资料案例目的:创建一个Query ExcelWorksheet用以...
分类:
其他好文 时间:
2015-03-17 20:08:54
阅读次数:
174
2013-05-01 Created By BaoXinjian一、摘要本教程介绍开发一个简单的Excel WorkSheet并与Fusion Web Application进行整合,将页面转换为Desktop Excel用以用户上传资料案例目的:创建一个Query ExcelWorksheet用以...
分类:
其他好文 时间:
2015-03-17 20:03:48
阅读次数:
221
2013-05-01 Created By BaoXinjian一、摘要本教程介绍开发一个简单的Excel WorkSheet并与Fusion Web Application进行整合,将页面转换为Desktop Excel用以用户上传资料案例目的:创建一个Query ExcelWorksheet用以...
分类:
其他好文 时间:
2015-03-17 19:49:21
阅读次数:
147
同步视频观看地址点击观看:1.1函数学习前的那些事儿!
分类:
其他好文 时间:
2015-02-20 00:21:35
阅读次数:
202