Sub 多重判断1()If Range("A1") >= 85 Then Range("b1").Value = "优秀"ElseIf Range("A1") >= 60 Then Range("b1").Value = "良好"ElseIf Range("A1") < 60 Then Range("b1").Value = "差"End IfEnd Sub 用VBA函数IIF来写：Sub 多条件判断()Range("D4") = IIf(Range("D3"...
Sub 多重判断1()If Range("A1") >= 85 Then Range("b1").Value = "优秀"ElseIf Range("A1") >= 60 Then Range("b1").Value = "良好"ElseIf Range("A1") < 60 Then Range("b1").Value = "差"End IfEnd Sub
如果A1的内容>0，则B1显示“正数”如果A1的内容不大于0，则B1显示“负数或0”
If Range("A2").Value > 0 Then Range("B2") = "正数" ElseIf Range("A2") = 0 Then Range("B2") = "零" ElseIf Range("A2") <= 0 Then Range("B2") = "负数" End If End Sub ②用Select Case 语句: Sub Select判断2() Select Case Range("A2").Value Case Is > 0 Range("B2"...
Sheet5.Cells(row, j).Value =rng(i, j).Value Next j row = row + 1 End If Next i End Sub 使用自动筛选 使用自动筛选,不必使用很多次循环,也能实现上图3所示的结果。代码如下: Sub CopyDataByAutoFilter() Dim rng As Range Set rng = Sheet4.Range("A1").CurrentRegion ...
If k = 0 Then k = 8 Cells(k, j * 2 - 1).Interior.ColorIndex = i Cells(k, j * 2).Value = i Next 五、使用快捷表示法引用单元格 可用方括号将A1引用样式或命名区域括起来,作为Range属性的快捷方式。 示例: Worksheets("Sheet1").[A1:...
If Range('D3') >= 60 Then Range('D4').Value = '及格'Else Range('D4').Value = '不及格'End If End Sub 如果⽤VBA中的函数IFF来写的话如下：Sub 条件判断()Range('D4') = VBA.IIf(Range('D3') >= 60, '及格', '不及格')End Sub 多条件的判断 举例：如果A1单元格中的数字⼤于...
8. If Range('A1').Value > 0 Then '如果单元格A1的值大于0,则执行以下操作 9. For i = 1 To 10 '循环10次 10. Next i '循环结束 11. Do While Range('A1').Value > 0 '当单元格A1的值大于0时执行以下操作 12. Loop '循环结束
在VB中,属性是可以有参数的,而VBA中属性使用参数非常常见。比如最常用的:Worksheet.Range("A1:A10") VB的语法,使用参数的不一定是方法,也有可能是属性!(虽然属性的本质是方法) 例一:参数当作“索引”使用 定义一个类模块,模块名称Ints。为简化模型,使用了只读属性。
endrow =.Range("A1").End(xlDown).Row If .Range("A2").Value= "" Then MsgBox "请从第 2 行开始粘贴您的实体代码." ExitSub End If End With 遍历表中的行: '开始遍历 For i = startrow To endrow Pct = (i - startrow + 1) / (endrow - startrow + 1) ...