64日目：Excel マクロ/VBA

Excel マクロ/VBAの講義8日目。 参考テキストもすべて終了。

【講義内容】

• 総合問題4～6
• 練習問題1～3

【ワンポイント】

VBA練習1

変数の宣言を強制

Option Explicit

For To

Sub シート見出し色変更1()
    num = Worksheets.Count
    For i = 1 To num
        If InStr(Worksheets(i).Name, "解答") Then
            Worksheets(i).Tab.ColorIndex = 6
        End If
    Next i
End Sub

For Each In

Sub シート見出し色変更2()
    For Each ws In Worksheets
        If InStr(ws.Name, "解答") Then
            ws.Tab.ColorIndex = 5
        End If
    Next ws
End Sub

VBA練習2

Sub 背景色変更()
    Dim area As Range
    Set area = Worksheets("サンプル表").Range("B2:F11")
    For Each c In area
        c.Interior.ColorIndex = 3
    Next c
    Set area = Nothing
End Sub

Sub 背景色リセット()
    Cells.Select
    Selection.Interior.Pattern = xlNone
End Sub

VBA練習3

配列

Dim cart(2) As String
cart(0) = "iPhone11"
cart(1) = "iPad"
cart(2) = "MacBook Pro"

動的配列

Sub Main()
  Dim dinamicArr() as String
  ReDim dinamicArr(2) as String
  dinamicArr(0) = "Excel"
  dinamicArr(1) = "Word"
  dinamicArr(2) = "Power Point"

  '既存の値を保持して、要素数だけを変更
  ReDim Preserve dinamicArr(3)
  dinamicArr(3) = "Access"
  '...
End Sub

【今日の積み上げ】

• Excel マクロ基本操作