よねさんの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