VBA基礎４：VBAのプロパティ紹介

１．概要

　VBAでセル操作を行うときのプロパティを紹介します。プロパティとはセルが持つ様々な情報(文字のフォント、サイズ、色など)のことです

２．入力値

　プロパティおよび具体例を下記に示します。値や数式を抽出したり、値の上書きなどに使用できます。

【プロパティ一覧】
Value：入力値の取得
Formula：計算式の取得
Text：文字列の取得

[IN]
Sub プロパティ確認()
    Dim sheet As Object 'シート用変数
    Set sheet = ThisWorkbook.Sheets("Sheet1") ' ワークブックのシート名:Sheet1 を選択

    Debug.Print sheet.Range("A1").Value, sheet.Range("A2").Value
    Debug.Print sheet.Range("A1").Formula, sheet.Range("A2").Formula
    Debug.Print sheet.Range("A1").Text, sheet.Range("A2").Text

End Sub

[OUT]
文字列入力    2 
文字列入力   =1+1
文字列入力   2

３．セル位置・サイズ(幅・高さ)

　プロパティおよび具体例を下記に示します。IF文で指定されたセル番地を取得やセルサイズの調整などに使用できます。

【プロパティ一覧】
Row, Column：行・列情報
Address：セル番地情報
Width, Height：ポイント単位のセル範囲の幅・高さ

３－１．セル番地

　セル番地の取得は下記の通りです。

[IN]
Sub プロパティ確認3()
    Dim sheet As Object 'シート用変数
    Set sheet = ThisWorkbook.Sheets("Sheet1") ' ワークブックのシート名:Sheet1 を選択

    Debug.Print sheet.Range("A1").Row, sheet.Range("A1").Column
    Debug.Print sheet.Range("A1").Address
    Debug.Print sheet.Range("A1").Address(False, False) '$記号を削除して表示
    
End Sub

[OUT]
 1         1 
$A$1
A1

３－２．セルサイズ

　セルの幅と高さの情報は下記の通りです。

[IN]
Sub プロパティ確認4()
    Dim sheet As Object 'シート用変数
    Set sheet = ThisWorkbook.Sheets("Sheet1") ' ワークブックのシート名:Sheet1 を選択

    Debug.Print sheet.Range("A1").Width, sheet.Range("A1").Height
    
End Sub

[OUT]
 83.3333333333333       22.3333333333333 

３．フォント

　プロパティおよび具体例を下記に示します。フォント情報を取得したり、セル内のフォント情報を統一させたりできます。

【プロパティ一覧】
Font.Color：文字の色
Font.Size：文字サイズ
Font.Name：文字の種類
Font.FontStyle：文字のスタイル
Font.Bold：太文字

[IN]
Sub プロパティ確認2()
    Dim sheet As Object 'シート用変数
    Set sheet = ThisWorkbook.Sheets("Sheet1") ' ワークブックのシート名:Sheet1 を選択

    Debug.Print sheet.Range("A1").Font.Color, sheet.Range("A2").Font.Color
    Debug.Print sheet.Range("A1").Font.Size, sheet.Range("A2").Font.Size
    Debug.Print sheet.Range("A1").Font.Name, sheet.Range("A2").Font.Name
    Debug.Print sheet.Range("A1").Font.FontStyle, sheet.Range("A2").Font.FontStyle
    Debug.Print sheet.Range("A1").Font.Bold, sheet.Range("A2").Font.Bold

End Sub

[OUT]
 0         255 
 11        20 
ＭＳ Ｐゴシック ＭＳ Ｐゴシック
標準      標準
False      False

４．色

　プロパティおよび具体例を下記に示します。背景色の情報を取得したりセル内の情報を統一させたりできます。

【プロパティ一覧】
Interior.Color：セルの背景色

[IN]
Sub プロパティ確認5()
    Dim sheet As Object 'シート用変数
    Set sheet = ThisWorkbook.Sheets("Sheet1") ' ワークブックのシート名:Sheet1 を選択

    Debug.Print sheet.Range("A1").Interior.Color, sheet.Range("A2").Interior.Color
    
End Sub

[OUT]
 16777215    65535 

---

参考資料・参考記事

Rangeオブジェクトのプロパティ一覧｜Excelリファレンス

あとがき

　構成も含めてどんどん追加・修正予定