每周二培训笔记分享【第07讲】运算符操作 with和判断语句 2012年02月15日
感谢兰版的精彩教学，受益匪浅，万分感激！以下所有笔记均为兰版每周二晚培训课程的本人做的笔记--完整版
【第7讲】运算符操作 with和判断语句 2012年02月15日
range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete --删除空行
3^2+sqrt(9)
"我" & "你" & 1
debug.print range("a1") + range("b1")
Debug.Print Int(5/2)
debug.print 35\8
debug.print Int(35/8)
Debug.print 2^2
Debug.print 27 ^ (1/3)
debug.print 81 ^2
debug.print 81 ^ (1/2)
If(And(a1="", b1=""))
条件1 And 条件2 And 条件3And 条件4.。。。
If range("a1") = "" And range("b1")="" And range("c1")=""
Or
如果a1=1 或B1=1 或c1=2 或d1=2
If(range("a1")=1 Or range("b1")=1 )And( range("c1")=2 Or range("d1")=2 ) Then
Xor 表示2个条件只能有1个条件满足
If Not SH表对象 Is sheets("汇总表")--Is判断是同一个对象Not取反
If rg Is Nothing Then -- rg对象不存在
Set rg = Nothing --指定对象不存在
'Like运算符--instr
debug.print "ABC" Like "ABc"
debug.print "BA" Like "?A"--问号代表1个占位符
debug.print "Excel精英培训" Like "*cel*"--星号代表0到多个占位符
Len(sr)=2 And Right(sr,1)="A"
“B???F”
'区间字符
'a到d 或3到7
Like "???"
*
'字符 like "#" 判断数字
debug.print 5 Like "#"
debug.print 356 Like "###"
'真正含有问号的判断
Debug.print "Q?B" Like Q[?]B
'非区间，不在此之间
Like [!B-F]
Like [!A-Za-z]
[!ADFG]*
'with语句
sub 字体格式1()
range("a1").font.name = "宋体"
range("a1").font.size = 14
range("a1").font.colorIndex = 3
range("a1").font.bold = True
End Sub
Sub 字体格式()
With range("a1")
.font = "宋体"
.size = 14
.colorIndex = 3
.bold = True
End With
End Sub
'if判断语句
If range("a1").value > 0 Then
range("a2").value = "正数"
Else
range("a2").value = "非正数"
End If
If range("a3").value Like "*" Then
'if的多重判断语句
If range("a1") < 0 Then
range("b1") = "小于零"
ElseIf range("a1") = 0 Then
range("b1") = "等于零"
ElseIf range("a1") > 0 Then
range("b1") = "大于零"
End If
'Select case语句
Select Case range("a1")
Case Is < 0
range("b1") = "小于零"
Case Is = 0
range("b1") = "等于零"
Case Is > 0
range("b1") = "大于零"
Case Else
End Select
'sub_if多条件判断
If range("a2") <= 1000 Then
range("b2") = 0.01
ElseIf range("a2") <=2000 Then
range("b2") = 0.02
ElseIf range("a2") <=3000 Then
range("b2") = 0.03
ElseIf range("a2") <=4000 Then
range("b2") = 0.04
ElseIf range("a2") >4000 Then
range("b2") = 0.06
End If
'if和select case 多重判断（或者） 下面是等价的
If range("a1") = "a" Or range("a1") = "b" Then
End If
Select Case range("a1")
Case "a", "b", 45 To 100
End Select
'function函数使用 ，提成示例
Function ticheng(rgg As Range)
If rgg <= 1000 Then
ticheng = 0.01
ElseIf rgg <= 2000 Then
ticheng = 0.02
ElseIf rgg <= 3000 Then
ticheng = 0.03
ElseIf rgg <= 4000 Then
ticheng = 0.04
ElseIf rgg > 4000 Then
ticheng = 0.06
End If
End Function
保存为 加载宏 xla 即可所有表格使用
'VBA函数
range("a1").value = round(range("a1"),2)
'调用工作表函数
range("b1") = Application.WorksheetFunction.countIf(range("A:A"), "<0")
range("b1") = Application.IsNumber()
range("b1") = Application.Sum(Sheets("sheet3").Range())
=if(a1>0,,if(a1>100,))--多重判断函数
谢谢分享。 谢谢分享.谢谢！:lol:lol 感谢分享，很不错啊！ 你太有心了，谢谢你 向你致敬，向你的学习方法学习 感谢分享，很不错啊！
页:
[1]