TOP

VBA-レッスン 5. プロパティ (Properties)

この記事では、セルの内容、セル自体、文字を制御する VBA コードを作成する方法を学びます。

プロパティは、サイズ、色、画面上の位置などのオブジェクトの特性の 1 つ、または画面上で有効か表示されるかなどの動作の側面を定義するオブジェクトの属性です。

オブジェクトの特性を変更するには、そのプロパティの値を変更する必要があります。


1.セルに値を書き込みます

まず、エディタを開いてモジュールを追加し、そこにこのマクロをコピーします。

  1. Sub Properties() 'moonexcel.com.ua  
  2.    Range ("A1")  
  3. End Sub  

私たちはセルA1に向かいました。では、このセルを制御してみましょう。何ができるかを確認するために、Range ("A1") の後にドットを追加してみましょう。

Value を選択し、Tab を押します。次のコードが得られます。

  1. Sub Properties() 'moonexcel.com.ua  
  2.         Range ("A1").Value  
  3. End Sub  

Value 値はセルの内容を表示します。

次に、セル A1 に値 35 を書き込んでみましょう。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Value = 35  
  3.    'セルA1の値は35です  
  4. End Sub  

次に、セルにテキストを書き込んでみましょう (テキスト値を割り当てるときは、二重引用符 "" で囲む必要があります)。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Value = "ここにテキストがあります"  
  3. End Sub  

マクロは最後に開いたシートの値を表示することに注意してください。したがって、ブックの任意のシートのセルの内容を制御するには、セルへの完全なパスを記述する必要があります。つまり、コードの先頭にシートの名前を追加します。次に例を示します。

オプション 1. 文字の名前 - Sheets("Sheet2") を適用します。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Sheets("Sheet2").Range("A1").Value = "ここにテキストがあります"  
  3.    '意味: シート 2 を開き、セル A1 を選択し、その値にテキストを書き込みます。  
  4. End Sub  

オプション 2. レターの名前ではなく、シリアル番号 - Sheetss(2) によって申請します。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Sheets(2).Range("A1").Value = "ここにテキストがあります"  
  3. End Sub  

同様に、別のブックのセルを参照したい場合は、コードの先頭にブックの名前を記述する必要があります。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "ここにテキストがあります"  
  3. End Sub  

この例では Value パラメーターを指定していますが、これはデフォルトであるため、実際には省略できます。つまり、次の 2 行のコードは同等になります。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Value = 35  
  3.    Range("A1") = 35  
  4. End Sub  

2. 値の削除

レッスンの最初に記録した値 35 をセル A1 から削除しましょう。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Clear  
  3.    '意味: セル A1 を選択してクリアします。  
  4. End Sub  

3. 値の書式設定

Font を選択すると、セルに適用できるプロパティのリストが表示されます。

書式設定: テキスト サイズの変更

セルを 35 に設定し、フォント サイズを 8 に下げてみましょう。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1") = 35  
  3.    Range("A1").Font.Size = 8  
  4. End Sub  

書式設定: テキストを太字にします

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Font.Bold = True  
  3. End Sub  

油性分泌物を除去します。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Font.Bold = False  
  3. End Sub  

書式設定: テキストを斜体にします

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Font.Italic = True  
  3. End Sub  

書式設定: テキストに下線を付ける

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Font.Underline = True  
  3. End Sub  

書式設定: フォントの種類を設定します。

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Font.Name = "Arial"  
  3. End Sub  

書式設定: セルに色を付ける

  1. Sub properties() 'moonexcel.com.ua  
  2.    Range("A1").Interior.ColorIndex = 6  
  3. End Sub