VBAで意味を忘れた、分からなかったコードを調べた

MSDNを使って調べてみよう

キッカケは仕事の準備で忘れた、分からなかった単語があったので振り返った。¹

ActiveSheet

• ActiveSheet
  • ChartObjects
    • Chart
      • SetSourceData
  • Shapes²
    • Fill³
      • ForeColor.RGB
      • Visible
    • Line⁴
      • ForeColor.RGB
      • Weight
    • Nodes
      • Count
      • SetPosition
    • AddShape
    • Delete
    • AddCurve
    • AddPolyline
    • Count

Chartとは？

グラフのこと

' グラフに使うデータを読み込む
Charts(1).SetSourceData Source

Shapeとは？

形状のこと、図形の形のことを言っている。

Fill

' fillは塗りつぶすなどの意味である
Shapes(1).Fill

' 前景色を設定する(RGB)
Shapes(1).Fill.ForeColor.RGB

' 塗りつぶしを有効にするか(見えるようにするか)設定する
Shapes(1).Fill.Visible

Line

' Lineは線を示す
Shapes(1).Line

' 線の色を設定する(RGB)
Shapes(1).Line.ForeColor.RGB

' 線の太さを設定する。
Shapes(1).Line.Weight

Nodes

' フリーフォームの接点
Shapes(1).Nodes

' フリーフォームの接点の位置を指定する
Shapes(1).Nodes.SetPosition

AddShape

' 図形を追加する
Shapes(1).AddShape

Delete

' 図形を削除する
Shapes(1).Delete

AddCurve

' ペジェ曲線を作成する
Shapes.AddCurve

AddPolyline

' 多角形を作成する
Shapes.AddPolyline

Count

' 図形の数を返す。
Shapes.Count

その他

Intersect

' 交差した結果(Range)を返す
Intersect(Range("A1:E5"), Range("C1:C5"))

msoFalse

' 0を示す
msoFalse 

msoShapeOval, msoShapeRectangle

MsoAutoShapeType列挙の定義(図形の種類)を示す⁵

' 楕円のこと
msoShapeOval

' 四角形のこと
msoShapeRectangle

shapeNode

' フリーフォームの節点
shapeNode

Mod, stdev.p, var.p

計算で使う

' 割り算の余りを求める
Mod

' 標準偏差を求める
stdev.p

' 分散を求める
var.p

MsgBox

' ダイアログ ボックスにメッセージを表示する
MsgBox("Hello VBA")

Redim

' 動的配列の変数の容量を再度、定義する
Dim x() As Integer
ReDim x(10)
ReDim

worksheet_change

' ワークシートのセルが変更されたときに発生するイベント
Private Sub Worksheet_Change(ByVal Target as Range)
 MsgBox("セルの値が変更された")
End Sub

整理すると

• イベント処理に関わること
• VBAの基本的な構文
• 統計的な話題
• グラフの話題

課題

前景色とは背景色とは

参考文献

Excel VBA reference
Excel VBA リファレンス

---

1. ただし、ざっくりと調べただけなの詳しくは公式のドキュメントを参考にしてほしい。自分もMSDNの調べ方、構造については十分な理解はしていない。今回は何となく定義が分かればよしとする。 ↩

2. Shape Objectでプロパティやメソッドを調べることができた。 ↩

3. Fillのプロパティを知りたいときは、FillFormat Objectから調べることができた。 ↩

4. Lineのプロパティを知りたいときは、LineFormat Objectから調べることができた。 ↩

5. 詳しくはMsoAutoShapeType 列挙 (Office)を見るとよい。 ↩