色の一覧(カラーパレット)をワークシート上に表示するマクロを作成してみました。色の一覧(カラーパレット)をワークシート上に表示するマクロを作成してみました。(エクセル)の色の一覧(カラーパレット)をワークシート上に表示するマクロを作成してみました。カラーインデックスの番号を指定することがあると思いますが、その時に、目的の色と指定する色の番号が直ぐに一致しないことが多いので、テストとして一覧を表示してみることにしました。マクロで色の一覧を表示してみます。以下のようなマクロを作成してみました。長いマクロになっていますが、マクロの作成者さんによって作成方法が違ってくると思いますので、マクロの一例としてご覧ください。'---(14)上のマクロを、空白のワークシート上で実行してみたいと思います。下記の画像のように何も入力されていない状態で実行してみます。マクロ実行前のまっさらなワークシートです。マクロを実行してみると、以下の画像のような結果になりました。番までの色の一覧が表示されました。カラーインデックスの一覧が表示されました。全体のスクリーンショットが撮影できなかったので、分割して撮影した画像を掲載しています。上のマクロを一行一行分解して見てみたいと思います。簡単な説明になりますが、参考にご覧ください。'---(1)変数の宣言を強制する記述です。私の場合、マクロが少し長くなって来た時は、どんな変数を使用しているか覚えられないので、記述するようにしています。'---(2)マクロの名前です。キー)時の名前になります。'---(3)変数「i」を長整数型で宣言しています。ループでカウントアップする番号を入れる予定です。'---(4)「A1」セルと「B1」セルに見出しの文字を入力しています。「Value」の値を変更すると、ワークシートに入力されているセルの値も変更されます。記述することで値の一括代入が可能です。対のようになっています。'---(5)「A2」セルに文字を入力しています。「"」ダブルクオーテーションで囲んだ文字が入力されます。'---(6)「Interior.ColorIndex」の部分が背景色の指定項目になっています。「B2」セルの背景色を「自動」に設定しています。「xlColorIndexAutomatic」は定数というもので、数値では「-4105」になるようです。'---(7)「A3」セルに文字を入力しています。'---(8)「B3」セルの背景色の塗りつぶしを行わない指定をしています。「xlColorIndexNone」は数値で「-4142」となるようです。'---(9)「A」列と「B」列の列幅を自動調整しています。列の境の部分をダブルクリックした時と同じ動作になると思います。ループを使用しています。変数「i」がループする度にカウントアップされていきます。'---(11)「Cells」プロパティというものを使用しています。現在のワークシートの「i+3」行目の「1」列目のセルに変数「i」の数値を入力しています。「i+3」行目としているのは、見出しと連番以外の行数分だけ下に送っているためです。連番の入力開始は「4」行目からになります。例)変数「i」が「1」の場合、「1+3」行目の「1」列目のセルに「1」を入力します。以下の表のように数値が変化します。3「4」行目から連番の入力が開始されます。列)の背景色を設定しています。ループの終了部分です。i」と同じ動作になるような気がします。'---(14)「Sub」ステートメントの終了部分になります。ここまでで一つのマクロの完成です。i」のショートカットを実行してみるとクイックヒントとして、値が表示されると思います。2003」なので、違うところもあるかもしませんが良ければお試し下さい。定数「xlColorIndexNone」に文字入力カーソルを合わせて「Ctrl+i」のショートカットを実行すると、クイックヒントが表示されました。クイックヒント」からも同じ事が行えると思います。編集メニューの中のクイックヒントコマンド以上、閲覧ありがとうございました。連続する列を削除したい。セル範囲を変数に格納して、同じセル範囲を何度も使用する方法。データ終端行を取得する。プロパティで定義済み範囲を取得する。プロパティで行番号、列番号を取得する。データ終端行を取得する。accesse単一セルを選択する。連続する列を削除したい。