EXCEL--VBA 程式.pptVIP

EXCEL VBA 程式 謝邦昌 EXCEL VBA 程式 1 Public Sub FontSet() With Selection.Font 選擇標的 .Size = 18 字型大小為18 .FontStyle = Bold 字型為Bold End With End Sub EXCEL VBA 程式 2 Public Sub SqureVal() Dim val val = Cells(2, 3).Value 第2欄第3列,令其為數值 Cells(3, 3).Value = val * val 計算平方,並將答案顯示在第3欄第3列 End Sub EXCEL VBA 程式 3 Public Sub Rating() If ActiveCell.Value = 60 Then 所選擇的標的,若數值大於60 ActiveCell.Offset(0, 1).Value = 及格 在標的右方顯示及格 Else 若數值小於60 ActiveCell.Offset(0, 1).Value = 不及格 在標的右方顯示不及格 End If End Sub EXCEL VBA 程式 4 Public Sub BookSelect() Dim index As Integer 定義指標為整數 index = ActiveCell.Value 指標為一個數值 Select Case index Case 1 ActiveCell.Offset(0, 1).Value = 與Word 2000有約 若選擇標的為1,則在標的右方顯示,與Word 2000有約 Case 2 ActiveCell.Offset(0, 1).Value = 與Excel 2000有約 若選擇標的為2,則在標的右方顯示,與Excel 2000有約 Case 3 ActiveCell.Offset(0, 1).Value = 與Access 2000有約 若選擇標的為3,則在標的右方顯示,與Access 2000有約 Case Else ActiveCell.Offset(0, 1).Value = 查無此書,請重新查詢 若選擇標的非1-3,則在標的右方顯示,查無此書,請重新查詢 End Select End Sub EXCEL VBA 程式 5 Public Sub HitTotal() Dim total As Integer, index As Integer index = 5 total = 0 Do total = Cells(index, 4).Value + total 從(第5-10列,第4欄)開始加總 index = index + 1 Loop Until index 10 加總到第10列即停止 Cells(index, 4).Value = total 選擇的欄位,顯示總數 End Sub EXCEL VBA 程式 6 Public Sub ScoreMax() Dim index As Integer, Maxs As Integer index = 4 Maxs = 0 將最高分初始化=0 Do If Cells(index, 3).Value Maxs Then Maxs = Cells(index, 3) 若相互比較的過程中,比0大,則置換,計入最大 End If index = index + 1 Loop While index = 8 相互比較到第8列即停止 Cells(index, 3).Value = Maxs 列出最高分數 End Sub EXCEL VBA 程式