No.3ベストアンサー
- 回答日時:
こんばんは。
#2です。
質問読み間違えました。
>その番号の色を目で確認するにはどうすれば良いですか。
こんなマクロを使えばよいと思います。
Sub Test()
Dim i As Integer
Dim j As Integer
i = ActiveCell.Font.ColorIndex
j = ActiveCell.Interior.ColorIndex
MsgBox "FontColor Index: " & i & vbCrLf & _
"InteriorColor Index: " & j
End Sub
その逆は、
Sub Test2()
Dim i As Integer
i = Application.InputBox("番号を入れてください。(1から56まで)", Type:=2)
On Error Resume Next
ActiveCell.Interior.ColorIndex = i
If Err.Number > 0 Then
MsgBox i & " その番号は使えません。", 48
ActiveCell.Interior.ColorIndex = xlNone
End If
On Error GoTo 0
End Sub
このほかは、ループでセルに、ColorIndex を出してしまうとかは、マクロを使う人たちは、一度はしているようです。理由は、印刷したりすると、微妙に色合いが違うことがあったりするからです。
ただ、ColorIndex というのは、直接の色とは関係ありません。パレットへの割り振りですから、必ずしも、色定数(Color Constants) とは違います。色は、自分で設定して、ColorIndex に割り振ることが可能です。色定数は、数が少ないのと、パステルカラーがありませんので、文字色は良いのですが、セルに塗ると、色によっては下の文字が見えにくくなってしまいます。
#2の補足
「GridlineColorIndex プロパティ」をそのまま、VBE -ヘルプ-右クリックで、検索ボックスに、貼り付けしてください。対比表が出てきます。
Wendyさん、こんばんは。
といっても、Wendyさんの「こんばんは」と1日ずれてしまってると思いますけど・・。 (^_^;
たびたびお世話になります。
>質問読み間違えました。
いえいえ。本来の質問は前回答の「GridlineColorIndex プロパティ」のヘルプだったんです。
やはり番号別に色見本を並べたものがあるんですねぇ。
>このほかは、ループでセルに、ColorIndex を出してしまうとかは、マクロを使う人たちは、一度はしているようです。
実は最初の回答のあと「ループで色番別全色を出した方が早いんでは」と思い、Wendyさんの様な完璧なのではありませんが、簡単なマクロでシートに出したんです。
みなさん考えることは同じなんですねェ。
色番号と色彩名の一覧までありがとうございます。
最初の目安に便利なのでしっかり使わせていただきます。
m(_ _)m
No.5
- 回答日時:
こんなのどうですか
シートの空きで下のマクロを走らせれば
クリックしたセルから右下にサンプル一覧が出ます
Public Sub ShowColorIndex()
Dim i As Integer, j As Integer
For i = 0 To 5
For j = 0 To 9
If i * 10 + j >= 57 Then
Exit For
Else
ActiveCell.Offset(i, j) = i * 10 + j
ActiveCell.Offset(i, j).Interior.ColorIndex = i * 10 + j
End If
Next j
Next i
End Sub
標準モジュールに書いてくださいね
回答ありがとうございます。
CHRONOSさんの言われるようにマクロのループで色の一覧をシートに作ってみました。
これが一番手っ取り早い方法でした。
お手数をお掛けしました。 m(_ _)m
No.4
- 回答日時:
実際にセルに表示してみて、そのセルの書式設定を見ればどの色が入っているかわかると思うのですが?めんどくさいですか?
自作色はごめんなさいわかりません。
No.2
- 回答日時:
こんばんは。
ヘルプの「GridlineColorIndex プロパティ」を探していただければ、見れますが、面倒なので、以下は、私の使っているVBA テンプレートです。
全部使っているわけではないので、主要な色以外は、正確かどうかは分かりません。
'黒(1),白(2),赤(3),黄緑(4),青(5),黄色(6),ピンク(7),
'水色 (8), 茶(9), 緑(10), 藍(11), 黄土色(12), 紫(13), 濃緑(14)
'灰色 (15), 濃い灰色(16),淡い水色(34),黄緑 (35),薄い黄色(36)
'ゴールド(44),
'オリーブ(52),濃い緑(51),インディゴ(55),プラム(54),
'ブルーグレー(47),紫(13),ラベンダー((39)),スカイブル(33),
'薄い水色(34),薄い緑(35),ベージュ(40),ペールブルー(37),
'灰色25%(15),ライム(43),薄いオレンジ(45),アクア(42),
'薄い青(41),灰色40%(48),灰色50%(16),濃い赤(9),ローズ(38),
'オレンジ(46),青緑(14), ゴールド(44),灰色80%(56),シーグリーン(50)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 確定申告 e-taxの暗証番号 4 2023/03/08 01:59
- Excel(エクセル) エクセルでエラーを無視して一番左側のセルの値を返したい 2 2023/07/27 13:06
- Excel(エクセル) INDEX関数とMATCH関数を使用し値を返す数式についてです 2 2022/04/20 13:40
- 車検・修理・メンテナンス 車の色は、何色の塗装が長持ちするのでしょうか。 白 黒 灰 赤 青 水色 紺 黄 橙 緑 黄緑 紫 9 2023/05/07 08:27
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- 釣り 釣りのこのウキをどこで買えるか教えて下さい!黄色いウキです。上から2番目のウキです。ちなみに上から一 1 2023/08/02 15:36
- ポイントサービス・マイル E-TAXについて 2 2023/02/12 16:18
- 借金・自己破産・債務整理 信用情報機関の開示について質問させて頂きます。20年前に借金や延滞等色々してしまい、今現在開示をしよ 5 2022/09/13 07:39
- 車検・修理・メンテナンス 車の塗装色にサファイアブラックがあります。 ボルボやBMWや日産車に設定があります。 もちろん色番号 3 2022/08/09 08:54
- Excel(エクセル) 条件付き書式 別のシートで色付けされたセルデータの転記漏れを防ぐ書式を入れたい 4 2022/04/22 06:36
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS クエリで1から順番に番...
-
★サラダ油等の油を染めたいんで...
-
LEDの色を変える方法ってありま...
-
この顔文字?は黄色に青に緑に...
-
秋色あじさいはどうやったらで...
-
渋いからし色が作りたいのです...
-
トラロープやおもちゃのトンボ...
-
WordやExcelの[フォントの色]...
-
Excel2010で指定のテーマ色に塗...
-
急にThunderbirdの画面がほぼ白...
-
綺麗な河川はなぜ緑色に見える...
-
TimeMashineのアイコンの色
-
緑に合う色は何色だと思いますか?
-
ぷよぷよのハチイチがわからない
-
エメラルドグリーンとミントグ...
-
3歳2ヶ月児について…
-
赤が似合う女性ってどんな感じ?
-
散布図で任意のドット色の変更...
-
なぜヨーロッパの絵画には裸の...
-
絵上手いやつまじで大嫌い。尊...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
渋いからし色が作りたいのです...
-
WordやExcelの[フォントの色]...
-
エメラルドグリーンとミントグ...
-
ACCESS クエリで1から順番に番...
-
赤が似合う女性ってどんな感じ?
-
散布図で任意のドット色の変更...
-
LEDの色を変える方法ってありま...
-
綺麗な河川はなぜ緑色に見える...
-
コネクター、ポートの差込口の...
-
印刷する時の色について
-
トーンを上げるとは?
-
★サラダ油等の油を染めたいんで...
-
鮮やかな赤を、暗めの赤に染め...
-
Excel2010で指定のテーマ色に塗...
-
色の名前がわからない3歳児・・・
-
緑に合う色は何色だと思いますか?
-
急にThunderbirdの画面がほぼ白...
-
背景が緑・目立つ文字色は?
-
ハンコの色
-
VB.net
おすすめ情報