Bird-Soft Weblog: Excelのセルの色を取得、変更する(Excel VBA)

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

応援お願いします(人気blogランキングへ)

Bird-Soft Weblog

プログラミング(Perl,C#,HSP,PSoC)、おすすめゲーム、など、趣味についてのんびり更新。

Excelのセルの色を取得、変更する(Excel VBA)

トラックバック

コメントを投稿