目次

1. 関数
2. 型宣言
3. 値代入
4. 繰り返し(for, if, do)
5. ファイル制御
6. グラフ

1. 関数

    [書き方(Sub)]
      Sub [関数名]()
      End Sub

    [書き方(Function)]
      Function [関数名]([引数1] As [データ型], [引数2] As [データ型], ...) _
                    As [データ型]
      End Function

2. 型宣言

    [書き方]
      Dim [変数名] As Integer '整数宣言(-32,768～32,767の整数)
      Dim [変数名] As Byte 'バイト型宣言(0～255の整数)
      Dim [変数名] As String '文字宣言
      Dim [配列名]([要素数]) As データ型  '配列宣言
             ※動的配列の場合、要素数は空欄でも可
      Dim [変数名] As Variant 'バリアント型宣言(どんなデータも格納可)

3. 値代入

    [書き方]
      Cells([行番号], [列番号]).Value = [値]

4. 繰り返し(for, if, do)

    [書き方(for)]
      for [変数名] = [値1] To [値2]
      next

    [書き方(if)]
      if [条件式] Then
      elseif [条件式] then
      else
      end if

    [書き方(do)]
      Do [条件式]
      Loop

5. ファイル制御

    5-1. ファイルオープン
        [書き方(テキスト読み出し)]
            Open [ファイル名] for input as #[ファイル番号]
        [書き方(テキスト書き込み)]
            Open [ファイル名] for output as #[ファイル番号]
        [書き方(バイナリ読み書き)]
            Open [ファイル名] for binary as #[ファイル番号]
    5-2. ファイルクローズ
        [書き方]
            Close #[ファイル番号]
    5-3. 読み出し
        [書き方(テキスト読み出し)]
            Line Input #[ファイル番号], [格納先変数名(String)]
          [補足]
             CRコード(DOS)まで読み込む。LFコード(UNIX)は認識しない
        [書き方(バイナリ読み出し)]
            Get #[ファイル番号], [読み込み開始位置(省略可能)], [格納先配列名]
    5-4. 書き込み
        [書き方(テキスト書き込み)]
            Print #[ファイル番号], [データ変数(String)]
        [書き方(バイナリ書き込み)]
            Put #[ファイル番号], , [データ変数(Byte)]

6. グラフ

    6-1. グラフ追加
        [書き方]
            例参照
    6-2. データ系列追加
        [書き方]
            例参照

例1 バイナリファイル読み出し

Option Explicit
Sub bin_read()
    'dec
    Dim infile As String
    Dim buffer() As Byte
    Dim i As Integer
    Dim inputFn As Long
    
    '読み込むファイル
    infile = "C:\data\20_study\000_Excel_VBA\30_\a.bmp"
    
    inputFn = FreeFile
    
    'バイナリモードでファイルオープン
    Open infile For Binary As #inputFn
        ReDim buffer(LOF(inputFn))
        Get #inputFn, , buffer
    
    'ファイルクローズ
    Close #inputFn
    
    '値の書き出し
    For i = 1 To 10
        Cells(i, 3) = Hex(buffer(i - 1))
    Next
    
End Sub

例2 グラフ追加

Option Explicit

Sub graph_add()

    With ActiveSheet.Shapes.AddChart.Chart

        '.ChartType = xlXYScatter     ' 散布図(線なし)
        '.ChartType = xlXYScatterLines ' 散布図(折れ線あり)
        .ChartType = xlXYScatterSmooth ' 散布図(平滑線あり)
        .SetSourceData Range("B3:C14")

    End With

    With ActiveSheet.ChartObjects

        .Top = 20
        .Left = 200
        .Height = 200
        .Width = 400
    
    End With

End Sub

例3 グラフ系列追加

Option Explicit

Sub graph_add()

    With ActiveSheet.Shapes.AddChart.Chart

        '.ChartType = xlXYScatter     ' 散布図(線なし)
        '.ChartType = xlXYScatterLines ' 散布図(折れ線あり)
        .ChartType = xlXYScatterSmooth ' 散布図(平滑線あり)
        .SetSourceData Range("B3:C14")

    End With

    With ActiveSheet.ChartObjects

        .Top = 20
        .Left = 200
        .Height = 200
        .Width = 400
    
    End With

End Sub