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"...
如果A1的内容>0，则B1显示“正数”如果A1的内容不大于0，则B1显示“负数或0”excel中逻辑值 > 文本 > 数值因为 字符>0
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
the_value= ThisWorkbook.Sheets("Sheet1").Range("A1").ValueEnd Sub 1.if...endif WithThisWorkbook.Sheets("Sheet1")Ifthe_value ="1"ThenMsgBox(the_value)EndIfEndWith 2.if...else...endif WithThisWorkbook.Sheets("Sheet1")Ifthe_value ="1"ThenMsgBox(the_value)ElseMsgBox(the_value)EndIfEndWi...
ElseIf Range("A1").Value = "2" Then '如果A1的值等于"2",执行操作2 MsgBox "执行操作2" Else '如果A1的值既不是"1"也不是"2",执行操作3 MsgBox "执行操作3" End If End Sub 在这个示例中,根据A1单元格的值,分别弹出不同的消息框。
Sub IF判断1() If Range("A2").Value > 0 Then Range("B2") = "正数" Else Range("B2") = "负数或零" End If End Sub ②用Select Case 语句: Sub Select判断1() Select Case Range("A2").Value '有且只能选择一个判断的目标 Case Is > 0 ...
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:...
Sub If_a_range_contains_a_specific_value() 'declare a variable Dim ws As Worksheet Set ws = Worksheets("Analysis") 'calculate if any cells in the range (C8:C14) contain the value in cell (C5) and then return a specified value If Application.WorksheetFunction.CountIf(ws.Range("C8:C14"...
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) ...
简单的循环Sub test()Dim i As LongDim endRow As LongendRow = Range("A" & Rows.Count).End(xlUp).Row '获取末行if endRow < 1 then exit subFor i = 1 To endRow-1if trim(range("A" & i).value) = "" thenRange("F" & i).Formula = "=A" & i+1 & "&B" & i...