程序-vba.docVIP

Sub Macro1() Dim j As Integer For j = 2 To 79 Select Case True Case Sheet1.Cells(j, 8) = 90 Sheet1.Cells(j, 9) = 优秀 Case Sheet1.Cells(j, 8) = 80 Sheet1.Cells(j, 9) = 良好 Case Sheet1.Cells(j, 8) = 70 Sheet1.Cells(j, 9) = 中等 Case Sheet1.Cells(j, 8) = 60 Sheet1.Cells(j, 9) = 及格 Case Sheet1.Cells(j, 8) 60 Sheet1.Cells(j, 9) = 不及格 End Select Next j End Sub Sub Macro1() Dim mst As String, x As Integer For x = 1 To 3 Select Case True Case IsNumeric(Range(A x)) mst = 数值 Case Application.IsText(Range(A x)) mst = 文本 End Select MsgBox Range(A x) 是 mst Next End Sub Sub getfuture() Dim varDate As Variant varDate = InputBox(输入今天以后的日期：, 输入日期, Date + 1) Select Case IsDate(varDate) Case False: Select Case varDate Case MsgBox 用户取消了或者没有输入 Case Else MsgBox 无效输入 End Select Case True: Select Case varDate Case Is = Date MsgBox 无效的日期，必须是今天以后的日期 Case Is Date MsgBox varDate 是有效输入 End Select End Select End Sub Sub a() Dim b As Integer b = InputBox(请输入一个数, 数字, 1) s = IIf(b 1000, NB, SB) Range(J3) = s End Sub Sub Macro1() Dim a As Range For Each a In Range(d2:f45) Select Case a Case Is 89 a.Interior.ColorIndex = 45 Case 80 To 90 a.Interior.ColorIndex = 10 Case 60 To 79 a.Interior.ColorIndex = 5 Case Else a.Interior.ColorIndex = 3 End Select Next End Sub Sub Macro1() Dim n As Integer, x As Single x = 13 n = 0 Do x = x * 1.0009 n = n + 1 Loop Until x 19 Debug.Print n End Sub Sub Macro1() Dim n As Integer, x As Single x = 13 n = 0 Do While x 19 x = x * 1.0009 n = n + 1 Loop Debug.Print n End Sub Sub Macro1() Dim n As Integer, x As Single x = 13 n = 0 While x 19 x = x * 1.0009 n = n + 1 Wend Debug.Print n End Sub Sub Macro1() Dim myrange As Range For Each myrange In Sheet1.Range(b2:b79) If myrange = 赵敬波 Then MsgBox 已经找到赵敬波 myrange.Interior.ColorIndex = 45 Else: MsgBox 没有找到 End If Next myrange Application.Goto Reference:=Macro1 ActiveWindow.SmallScroll Down:=72 End Sub