Visual Basic for Applications 宏語言
打開VB編輯器
首先打開Excel,組合鍵Alt+F11
加載宏
找到相應的宏,點選“執行”
Sub 評分()
Dim i As Integer
For i = 3 To 11
t = Sheets(1).Cells(i, 2).Value '取得成績
If t >= 90 Then
j = "A"
ElseIf t >= 80 Then
j = "B"
ElseIf t >= 70 Then
j = "C"
ElseIf t >= 60 Then
j = "D"
Else
j = "E"
End If
Sheets(1).Cells(i, 3) = j
Next
End Sub
Sheets(1).Name '工作表名字
Sheets.Count '工作表數量
Sheet1.UsedRange.Rows.Count '指定工作表已使用的行數
ThisWorkbook.Sheets(1).UsedRange.Columns.CountSheet1 '已使用的列數
Sheets(1).Cells(r, c).Value '擷取單元格的值
ActiveSheet.Cells(r, c) '活動工作表單元格
MsgBox "hello furong" '消息框