Bird-Soft Weblog

Excelのアドインである「らくらく罫線」がすばらしいため、
ExcelのVBAに興味がわきました。
VBAで簡単なコードを作ってみたので載せておきます。


◆概要

☆以下の動作をするテストプログラムです。
　・セルの値に応じて、自動でセルの色を色分けする（今回は1〜3の3通り）
　・セルの色に応じて、自動でセルに数値を記入（今回は1〜3の3通り）
　※いずれもフォームにボタンを配置し、ボタンをクリックしたときの
　　イベントの中のコードのイメージです。



↑マクロ実行例 　※あらかじめセルに1〜3の数値を入れた物を用意します。
　※今回は１が黒、２がオレンジ、３が赤に変換されます。
　※範囲は16*16個まで。


VBAマクロの中身は続きからどうぞ

'色分けボタンを押したときの処理 Private Sub CommandButton1_Click() For i = 1 To 16 Step 1 For j = 1 To 16 Step 1 'セルを値に応じて色分けする If Cells(i, j).Value = 1 Then Cells(i, j).Interior.ColorIndex = 1 End If If Cells(i, j).Value = 2 Then Cells(i, j).Interior.ColorIndex = 46 End If If Cells(i, j).Value = 3 Then Cells(i, j).Interior.ColorIndex = 3 End If Next j Next i End Sub '数値記入ボタンを押したときの処理 Private Sub CommandButton2_Click() For i = 1 To 16 Step 1 For j = 1 To 16 Step 1 '色に応じて数値記入 If Cells(i, j).Interior.ColorIndex = 1 Then Cells(i, j).Value = 1 End If If Cells(i, j).Interior.ColorIndex = 46 Then Cells(i, j).Value = 2 End If If Cells(i, j).Interior.ColorIndex = 3 Then Cells(i, j).Value = 3 End If Next j Next i

◆リンク
Excel VBA 入門講座
http://excelvba.pc-users.net/

Excel VBA Reference   ★文字色とセルの塗りつぶし設定★
http://www.big.or.jp/~seto/vbaref/vbaref4.htm

ColorIndexプロパティ値一覧：Excel エクセルの使い方-マクロ/VBA
http://www.relief.jp/itnote/archives/000482.php

投稿者: BIRD 日時: 23:59 | パーマリンク | コメント (0) | トラックバック (0)