よねさんのWordとExcelの小部屋Excel2007(エクセル2007)基本講座の総目次|Excel2007(エクセル2007)基本講座:Excel2003以前のカラーパレットを使いたい
よねさんのWordとExcelの小部屋

Excel2007(エクセル2007)基本講座:Excel2003以前のカラーパレットを使いたい

スポンサードリンク

カラーパレットもどきの作成    Topへ     サンプルは→VBA_mycolor.xlsm

ユーザーフォームの作成    Topへ

  1. [Alt]+[F11]でVBEを起動します。
    または、[開発]タブの[コード]グループにある[Visual Basic]を実行します。
  2. [挿入]→[ユーザーフォーム]でUserForm1を挿入します。
  3. UserForm1にコマンドボタンを40個適切なサイズで配置します。
    さらに、Clear とキャンセルボタンも準備してみました。

UserForm1の初期設定    Topへ

UserForm1の初期設定    Topへ

標準モージュールの設定    Topへ


あらかじめ配色を配置する    Topへ

  1. 下図のようにシートに配色を配置しておきます。
    この配色を使用したい時はコピーして、適用したいセルへ書式を貼り付けます。
  2. コードは以下のようにしました。
    Sub 塗りつぶし()
      Dim myCol(10, 10)
      Dim i As Long, j As Long
        myCol(1, 1) = RGB(0, 0, 0)
        myCol(1, 2) = RGB(153, 51, 0)
        myCol(1, 3) = RGB(51, 51, 0)
        myCol(1, 4) = RGB(0, 51, 0)
        myCol(1, 5) = RGB(0, 51, 102)
        myCol(1, 6) = RGB(0, 0, 128)
        myCol(1, 7) = RGB(51, 51, 153)
        myCol(1, 8) = RGB(51, 51, 51)
        myCol(2, 1) = RGB(128, 0, 0)
        myCol(2, 2) = RGB(255, 102, 0)
        myCol(2, 3) = RGB(128, 128, 0)
        myCol(2, 4) = RGB(0, 128, 0)
        myCol(2, 5) = RGB(0, 128, 128)
        myCol(2, 6) = RGB(0, 0, 255)
        myCol(2, 7) = RGB(102, 102, 153)
        myCol(2, 8) = RGB(128, 128, 128)
        myCol(3, 1) = RGB(255, 0, 0)
        myCol(3, 2) = RGB(255, 153, 0)
        myCol(3, 3) = RGB(153, 204, 0)
        myCol(3, 4) = RGB(51, 153, 102)
        myCol(3, 5) = RGB(51, 204, 204)
        myCol(3, 6) = RGB(51, 102, 255)
        myCol(3, 7) = RGB(128, 0, 128)
        myCol(3, 8) = RGB(150, 150, 150)
        myCol(4, 1) = RGB(255, 0, 255)
        myCol(4, 2) = RGB(255, 204, 0)
        myCol(4, 3) = RGB(255, 255, 0)
        myCol(4, 4) = RGB(0, 255, 0)
        myCol(4, 5) = RGB(0, 255, 255)
        myCol(4, 6) = RGB(0, 204, 255)
        myCol(4, 7) = RGB(153, 51, 102)
        myCol(4, 8) = RGB(192, 192, 192)
        myCol(5, 1) = RGB(255, 153, 204)
        myCol(5, 2) = RGB(255, 204, 153)
        myCol(5, 3) = RGB(255, 255, 153)
        myCol(5, 4) = RGB(204, 255, 204)
        myCol(5, 5) = RGB(204, 255, 255)
        myCol(5, 6) = RGB(153, 204, 255)
        myCol(5, 7) = RGB(204, 153, 255)
        myCol(5, 8) = RGB(255, 255, 255)

      For i = 1 To 5
        For j = 1 To 8
          Cells(i, j).Interior.Color = myCol(i, j)
          Cells(i, j).Offset(7, 0).Value = "文字色"
          Cells(i, j).Offset(7, 0).Font.Color = myCol(i, j)
        Next j
      Next i
    End Sub

スポンサーリンク


よねさんのWordとExcelの小部屋Excel2007(エクセル2007)基本講座の総目次|Excel2007(エクセル2007)基本講座:Excel2003以前のカラーパレットを使いたい

PageViewCounter
Counter
Since2006/2/27