パソコン活用研究5番街（Visual Basic、Excel(VBA)、BASIC　プログラミング研究）

セル関連基本マクロｐａｒｔ２

１　セルの表示形式
２　文字のフォントと色
３　セルに色をつける
４　セル、行、列の削除
５　セルの内容の削除
６　セルの内容のコピー
７　特定のセルのみ選択して処理

１　セルの表示形式
セルのプロパティで値を表すＶａｌｕｅ　と並んでよく使うのは、セルの書式（表示形式）を表す
ＮｕｍｂｅｒＦｏｒｍａｔプロパティでしょう。
ＥＸＣＥＬのメニューを［書式］−［セル］とたどると書式設定のダイアログがでてきますが、表示形式タブの
分類ボックスから［ユーザー定義］を選択した時に｢種類」ボックスに表示される文字列が、このプロパティ
です。たぶん「Ｇ／標準」とか「ｙｙ／ｍｍ／ｄｄ」とか表示されていると思います。

表示形式の設定例
Worksheets("sheet1").Cells(1,1).NumberFormat="Ｇ/標準"
Workseets("sheet1").Range("C5").NumberFormat="hh:mm:ss"　　'時刻の表示形式

アクティブセルの表示形式をメッセージボックスに表示するマクロ
Sub ShowFormat()
MsgBox "Format" + ActiveCell.NumberFormat
End Sub

このＮｕｍｂｅｒＦｏｒｍａｔプロパティを、よく使うと先に書きましたが、後述のセルの内容のコピーで
むしろ重要になります。

２　文字のフォントと色
本当にＶａｌｕｅ　と並んでよく使うのは、おじさん個人的には、文字のフォント変更や色を指定するプロパティ
です。
あるデータ目立たせたいなら、文字を太字にしたり、下線をつけたり、色をつけたりするのが一番ですから、
これらのプロパティは利用頻度が高いものばかりです。

＜主なプロパティ＞

ＲＧＢによる色の指定
色の指定の方法はいくつかありますが、ＲＧＢ関数を使用する場合は以下のように指定します。
ＲＧＢ（赤、緑、青）　　それぞれの色の引数は０から２５５を指定します
ちなみに代表的な色は下記のとおり
黒　　ＲＧＢ（０，０，０）
黄色　ＲＧＢ（２５５，２５５，０）
灰色　ＲＧＢ（１２７，１２７，１２７）
白　　ＲＧＢ（２５５，２５５，２５５）

また、色の指定にはＣｏｌｏｒＩｎｄｅｘプロパティもあります。１から５６までを指定します。
Activecell.ColorIndex = 1
ＵｎｄｅｒＬｉｎｅプロパティで下線は　ｘｌＳｉｎｇｌｅ、　二重下線は　ｘｌＤｏｕｂｌｅ　です

なお、複数のプロパティを変更する時はＷｉｔｈ ・・・・　Ｅｎｄ Ｗｉｔｈ　を使った構文にすると簡単に記述できます。
アクティブセルのフォントサイズ１４、太字で、文字色は赤にする。
With Activecell.Font
.Size = 14
.Bold = True
.Color = RGB(255,0,0)
End With

３　セルに色をつける
セルの内部を表すオブジェクト（Ｉｎｔｅｒｉｏｒオブジェクト）を表すには、Iｎｔｅｒｉｏｒプロパティ　を使います。
セル内部にいろをつける（赤）
Activecell.Interior.Color= RGB(255,0,0)

セルの枠線を表すオブジェクト（Ｂｏｒｄｅｒオブジェクト）を表すにはＢｏｒｄｅｒｓメソッドを使います。
セルの枠線を赤にします
Activecell.Borders.Color = RGB(255,0,0)

ある範囲のセル（Ａ１からＣ３）までに色をつける（赤）
Worksetts("sheet1").Range(Cells(1,1),Cells(3,3)).Interior.Color = RGB(255,0,0)

ついでにＢＡＳＩＣ流
For i=1 to 3
For k=1 to 3
Workseets("sheet1").Cells(i,k).Interior.Color = RGB(255,0,0)
Next k
Next i

４　セル、行、列の削除,挿入
オブジェクトの削除、挿入を行うメソッドは、Ｄｅｌｅｔｅ，　Ｉｎｓｅｒｔ　です。
簡単なので、例を見てください。
なお、セルの削除（Ｄｅｌｅｔｅ）では、削除後に、他のセルをどうつめるか、方向を指定（ｘｌＴｏＬｅｆｔ，ｘｌＵｐ）で
きます。 方向の指定はＤｅｌｅｔｅの後に引数として記述します。
同じくセルの挿入（Ｉｎｓｅｒｔ）では挿入後、他のセルをどの方向に移動するか（ｘｌＴｏＲｉｇｈｔ，ｘｌＤｏｗｎ）指定
できます。引数の記述はＤｅｌｅｔｅと同様

Ｓｈｅｅｔ１の行３の前に新しい行を挿入
Worksheets("sheet1").Rows(3).Insert

Sheet1のＢ５セルを削除し、右側のセル（Ｃ５）を左にシフトしてつめる
Worksheets("sheet1").Range("C5").Delete xlToLeft

５ セルの内容の消去（クリア）

セルの内容の消去には以下の３つのメソッドがあります
セルのデータと書式をともにクリアする　　　Ｃｌｅａｒ
セルのデータだけクリアする　　　　　　　　　ＣｌｅａｒＣｏｎｔｅｎｔｓ
セルの書式だけクリアする　　　　　　　　　　ＣｌｅａｒＦｏｒｍａｔｓ

アクティブセルの内容をクリアする
Activecell.Clear

６　セルのコピー

（１）　代入によるコピー
セルＡ２にセルＡ１の内容をコピーするには
Worksheets("sheet1").Range("A2").Value = Worksheets("sheet1").Range("A1").Value
のようにすれば、Ｏ．Ｋ．です。

ただし、ひとつ忘れてならないのは、これはセルの値（Ｖａｌｕｅ）をセルＡ２に代入しているだけなので、
書式はコピーされていません。セルＡ１とＡ２に違う書式が設定されていたら、実際の表示は違ったもの
になってしまいます。
書式もいっしょにコピーしたいなら、前述のＮｕｍｂｅｒＦｏｒｍａｔプロパティを使います。
書式をコピーします
Worksheets("sheet1").Range("A2").NumberFormat = Worksheets("sheet1").Range_
("A1").NumberFormat


（２）　ＣＯＰＹメソッド
ＣＯＰＹメソッドを使うとセルの内容も書式もいっしょに、コピーできます。
コピー先の指定には　引数として　ｄｅｓｔｉｎａｔｉｏｎ：＝　と記述します。
ｄｅｓｔｉｎａｔｉｏｎ　を省略すると、クリップボードへコピーされます。

Ｓｈｅｅｔ１のセル範囲Ａ１：Ｂ２をＳｈｅｅｔ２のＥ５に（Ｅ５：Ｆ６の範囲に）コピーするマクロ
Sub rcopy()
Worksheets("sheet1").Range("A1:b2").Copy destination:=Worksheets("sheet2").Range("e5")
End Sub

７　特定のセルのみ選択

ある特定のセルのみ選択して、処理をしたい場合があります。
ある特定のセルだけを選択して処理するというのは、表計算ソフトであるＥＸＣＥＬで一番必要とされる
機能ではないでしょうか。それだけに、「ある特定」という選択のための条件は、千人千色、いろんな条件
が考えられます。
全てを語りつくすことは、到底できないことですので、基本的な所だけ例をあげてみます。

（１）　一般的なやり方
Ａ列の終端セルをチェックし、その間で空白のセルに”＊＊Ｎｕｌｌ＊＊”を入力するマクロ
Sub isNull()
x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row
For i = 1 To x%
If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("sheet1").Cells(i, 1).Value =_
"**Null**"
Next
End Sub

Ａ列の終端セルをチェックし、その間のセル１０以上の数値のセルは赤字で表示する
(ただし、このマクロはセルに数値以外のものが入力されているとエラーになります）
Sub red()
x% = Worksheets("sheet1").Range("A10000").End(xlUp).Row
For i = 1 To x%
If Worksheets("sheet1").Cells(i, 1).Value >=10 Then Worksheets("sheet1").Cells(i, 1).Font._
Color = RGB(255,0,0)
Next
End Sub

（２）　Ｓｐｅｃｉａｌｃｅｌｌｓの使用
空のセル、数値の入力されているセル、数式の入力されているセルだけを選択したい、というような時に
重宝するのが、Ｓｐｅｃｉａｌｃｅｌｌｓメソッドです。
機能を言葉で表現すると、「指定した条件を満たす全てのオブジェクトを返すメソッド」ということになります
ＥＸＣＥＬのＶＢＡに慣れていないと、なんのことかわかりにくいと思いますので、実例を見てください

Ａ列の終端セルを取得し、その行数をメッセージボックスに表示した後、その間のすべての空白セルを
赤にするマクロ

Sub blank2red()
x% = Worksheets("sheet1").Columns(1).SpecialCells(xlLastCell).Row　　　'---(1)
MsgBox "LastRow" + Str(x%)
Worksheets("sheet1").Columns(1).SpecialCells(xlBlanks).Interior.Color = RGB(255, 0, 0) '-(2)
End Sub

このマクロを実行すると下のような感じです。空白セルは赤で表示されます。

（１）のＳｐｅｃｉａｌｃｅｌｌｓでは最後に使われたセルを取得しています。
ＳｐｅｃｉｌａＣｅｌｌｓ（ｘｌＬａｓｔＣｅｌｌ）はＥｎｄメソッドと似ていますが、正確に言うと、終端セルではなく、最後に使用
されたセルを返す点が異なります。下の例を見て下さい

ここで、Ａ６，Ａ７セルの内容を削除します。この状態で、Ａ列にＳｐｅｃｉａｌＣｅｌｌｓ（ｘｌＬａｓｔＣｅｌｌ）とＥｎｄメソッドを
使用すると、ＳｐｅｃｉｌａＣｅｌｌｓ（ｘｌＬａｓｔＣｅｌｌ）はＡ７を返し、ＥｎｄはＡ５を返します。すなわち、
ＳｐｅｃｉａｌＣｅｌｌｓ（ｘｌＬａｓｔＣｅｌｌ）を使うと、削除されていても、一度でも使用されたセルはチェックされるという
ことです。この両メソッドはうまく使いわけて下さい。もちろん、削除されたセルがなければ、両メソッド
は同じような働きをします

（２）はＡ列の空白セルのセル内部の色を赤にしています。
同じように、Ｔｙｐｅ，Ｖａｌｕｅをそれぞれ設定すれば、数式の入っているセルだけ色をつけるとか、
いろいろできるわけです。

また、上の例ではＣｏｌｕｍｎｓ（１）としてＡ列のセルをチェックしましたが、
Ｃｅｌｌｓというオブジェクトを使えば、そのシートのセル全部をチェックすることができます。
Ｓｈｅｅｔ１の全セルで空白セルのセル内部の色を赤にする
Worksheets("sheet1").Columns(1).SpecialCells(xlBlanks).Interior.Color = RGB(255, 0, 0)


さて、またまたずいぶん盛りだくさんの内容となってしまいました。
非常に実用的なところでは、ある列の終端セルを調べ、その列で空白セルの行は削除するというような
マクロがあります。これについては、「実戦編／セル関連マクロ」で取り上げたいと思います