Yamanobori_oldのMemo

GUIを作成する代わりにMicrosoft Excelを使用する．

１．マクロを記録する
２．マクロの名前を指定して［OK］をクリックする
３．ファイルをタブ区切りのファイルとして，ファイルサーバーに保存する．
４．ファイルをxlsとして，ファイル領域に保存する．
５．マクロ［記録終了］をクリックする
６．［表示］［ツールバー］［フォーム］でボタンを選択する．
７．［マクロの登録］を実行する．

  Range("A4")
  Range("A1:E8")
  Range("A4").Value = 98
  Range("A4").Font.Color = vbRed

  Range("A4").ClearContents
  Range("A4").Copy Range("E4")

  With Range("A4")
    .Value = 98
    .Font.Color = vbRed
  End With

  "こんにちは。" & "お元気ですか？" ' => こんにちは。お元気ですか？

  If 条件式 then
    処理
  End If

  If 条件式 then
    処理
  ElseIf then
    処理
  Else
    処理
  End If

<> 左辺と右辺が等しくなければTrue,そうでなければFalse

And Or

  Select Case 対象
    Case 条件１
      処理
    Case 条件２
      処理
    Case Else
      処理
  End Select

  For i = 4 To 8
    Cells(i,5).ClearContents
  Next i
  
  For i = 4 To 8 Step 2
    Cells(i,5).ClearContents
  Next i

  Do While 条件式
    処理
  Loop
  
  Do While Cells(i,1).Value = "A"
    Cells(i,1).Font.Color = vbRed
    i = i + 1
  Loop

  Do
    処理
  Loop While 条件式

  Do Until 条件式
    処理
  Loop

  For Each 変数 In オブジェクトの集合
    処理
  Next

  Exit For
  Exit Do

  Dim 変数名 As データ型

ブール型	Boolean
バイト型	Byte
整数型	Integer	≒ short
長整数型	Long	≒ int
単精度浮動小数点型	Single
倍精度浮動小数点型	Double
文字列型	String
日付型	Date
オブジェクト型	Object
バリアント型	Variant
ブール型	Boolean

• 型を省略して宣言した変数は,自動的にVariant型をみなされます

オブジェクト型への代入

  Set 変数 = 値

 WorkSheetFunction.Sum(Range("A1:A4"))

 Function 関数名()
   処理
   関数名 = 戻り値
 End Function

ColorIndexプロパティ値一覧

Public Const 黒 = 1
Public Const 茶 = 53
Public Const オリーブ = 52
Public Const 濃い緑 = 51
Public Const 濃い青緑 = 49
Public Const 濃い青 = 11
Public Const インディゴ = 55
Public Const 灰色80% = 56
Public Const 濃い赤 = 9
Public Const オレンジ = 46
Public Const 濃い黄 = 12
Public Const 緑 = 10
Public Const 青緑 = 14
Public Const 青 = 5
Public Const ブルーグレー = 47
Public Const 灰色50% = 16
Public Const 赤 = 3
Public Const 薄いオレンジ = 45
Public Const ライム = 43
Public Const シーグリーン = 50
Public Const アクア = 42
Public Const 薄い青 = 41
Public Const 紫 = 13
Public Const 灰色40% = 48
Public Const ピンク = 7
Public Const ゴールド = 44
Public Const 黄 = 6
Public Const 明るい緑 = 4
Public Const 水色 = 8
Public Const スカイブルー = 33
Public Const プラム = 54
Public Const 灰色25% = 15
Public Const ローズ = 38
Public Const ベージュ = 40
Public Const 薄い黄 = 36
Public Const 薄い緑 = 35
Public Const 薄い水色 = 34
Public Const ペールブルー = 37
Public Const ラベンダー = 39
Public Const 白 = 2

• 以下をシート用のコードとして記述する．

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target.Interior
        Select Case Target.Text
            Case "りんご"
                .ColorIndex = 3
            Case "みかん"
                .ColorIndex = 5
            Case "ばなな"
                .ColorIndex = 6
            Case "もも"
                .ColorIndex = 10
            Case Else
                .ColorIndex = xlNone
        End Select
    End With
End Sub