Excelでセルの塗りつぶしの色の種類

質問

Excel2000を使っています。
セルの塗りつぶしの色なんですが、

「書式」→「セル」→「パターン」

に出てくる色以外の色で塗りつぶしたいのですができますか？

教えてください。

回答No.1

kool5667 · ベストアンサー

希望の回答になるかどうか分かりませんが、私が知ってる方法として、自分で好みの色を作成する事ができますよ。
ツール→オプション→色で変更をクリック。

お礼

ありがとうございます！
こんなところで出来たのですね！

いろいろ試してみたいと思います！

回答No.4

misatoanna

お遊びのマクロです。
[Alt]+[F11] で Visual Basic Editor を起動して、[挿入]-[標準モジュール] で開く
画面に貼り付け、ColorMenu を実行してみてください。

Sub ColorMenu()　　'右クリックメニューをカラーパレット化。
　Dim C, i, NewItem
　CommandBars("Cell").reset
　On Error Resume Next
　For Each C In CommandBars("Cell").Controls
　　C.Delete
　Next
　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10000, 20000, 10, 10).Select
　For i = 63 To 8 Step -1
　　Selection.ShapeRange.Fill.ForeColor.SchemeColor = i
　　Selection.Copy
　　Set NewItem = Application.CommandBars("Cell").Controls.Add _
　　　　　　　　　　(Type:=msoControlButton, Before:=1, Temporary:=True)
　　With NewItem
　　　.PasteFace
　　　.OnAction = "PaintCell"
　　　.Caption = i - 7
　　　If i = 8 Then .BeginGroup = True
　　End With
　Next
　Selection.Delete
　Set NewItem = Application.CommandBars("Cell").Controls _
　　　　　　　　　.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
　With NewItem
　　　.Caption = "通常メニューに戻す"
　　　.OnAction = "ResetMenu"
　End With
　Set NewItem = Application.CommandBars("Cell").Controls _
　　　　　　　　　.Add(Type:=msoControlButton, Before:=58, Temporary:=True)
　With NewItem
　　　.Caption = "通常メニューに戻す"
　　　.OnAction = "ResetMenu"
　End With
　Set NewItem = Nothing
　Application.CommandBars("Cell").ShowPopup
End Sub
Private Sub ResetMenu()　　'標準メニューに戻す。
　Dim NewItem
　CommandBars("Cell").reset
　Set NewItem = Application.CommandBars("Cell").Controls _
　　　　　　　　　.Add(Type:=msoControlButton, Before:=15, Temporary:=True)
　With NewItem
　　　.Caption = "カラーパレット"
　　　.OnAction = "ColorMenu"
　　　.BeginGroup = True
　End With
　Application.CommandBars("Cell").ShowPopup
End Sub
Private Sub PaintCell()　　'選択色でセルを塗りつぶす。
　If IsArray(Application.Caller) Then
　　Selection.Interior.ColorIndex = Application.Caller(1) - 2
　End If
End Sub

お礼

マクロは触ったことないので、これからまた勉強していきたいと思います。

ご返答ありがとうございます！

回答No.3

noname#181260

補足です。
ほかの方が回答されているとおり、色を変えることはできます。
しかし、それが有効なのは、色変更を設定したときに開いていた
ブックのみのはずです。

お礼

試してみましたがそのようですね。
細かいところまでありがとうございます！

回答No.2

danke3

私もExcel2000を使っています
No.1さんの補足です
「変更」をクリックすると、色の設定Boxが出ます
そこで”標準”と”ユーザー設定”のどちらかを選んで変更します
”標準”では色見本の中から選択し、
”ユーザー設定”では色、明度（明るさ）、彩度（鮮かさ）を細かく設定できます
（数字入力又はポインターと調整バーで）
どちらの場合も色の置き換えですので
色数自体は増えませんが
よく使う色を設定すればいいでしょう
（リセットすれば元通りです）

お礼

細かく設定できますね！
知りませんでした。
ありがとうございます！！