カラーパレットに既に選んである色を,選択してあるセルに塗ることを,コマンドでできないでしょうか?
太字だったらCtrl+Bでできますけど,それの塗り版です.塗りコマンドとでも言うべきでしょうか.
よろしくお願いします.
標準コマンドではできないと思います。
マクロでの実装になりますが、
自ファイルか PERSONAL.XSLB の標準モジュールに下記を記述し
Public sc As Long Sub CCopy() sc = ActiveCell.Interior.Color End Sub Sub CPaste() Selection.Interior.Color = sc End Sub
シートで Alt+F8 を押し、CCopy と CPast のオプションでそれぞれショートカットキーを入力します(例:Ctl+l, Ctl+k)。
これでいったん塗られたセルを選択して(例:Ctl+l)、でその色が保存され、塗りたい範囲(複数セル可)を
選択して(例:Ctl+k)で一応それらしい動作にならないでしょうか。
すでにマクロが使用できていれば問題ありませんが、マクロを使用する設定です。
http://kiyopon.sakura.ne.jp/soft/2007.html
あまりお勧めしませんが、上記でできない場合
http://pasofaq.jp/office/excel/excel2007macro.htm
で試すことはできるかと思います。
macroでないと、色の指定があるので無理だと思います。
マクロの記録で色を塗り、それを例えばCtrl+o等に割り当てる事は可能です。
試したコードは以下の通り。
Sub Macro1()
'
' Macro1 Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
上記は黄色の例ですが、マクロの記録で実際に自分で色を指定するので自分の好きな色を指定できます。
マクロの記録はExcel2007ではデフォルトでは出てこなかったと思います。Excelのオプションの基本設定の開発タブをリボンに表示するをチェックすれば開発タブが出てきてその中にマクロの記録があります。
やっぱりマクロになっちゃいますか.
色指定は最後に選んだ色をそのまま使いたいというものなので,何行かなくてもなくてもいけそうですね.
今のところ,ひとつ色を塗ってからCtrl+Yでしのいでいます.
標準コマンドではできないと思います。
マクロでの実装になりますが、
自ファイルか PERSONAL.XSLB の標準モジュールに下記を記述し
Public sc As Long Sub CCopy() sc = ActiveCell.Interior.Color End Sub Sub CPaste() Selection.Interior.Color = sc End Sub
シートで Alt+F8 を押し、CCopy と CPast のオプションでそれぞれショートカットキーを入力します(例:Ctl+l, Ctl+k)。
これでいったん塗られたセルを選択して(例:Ctl+l)、でその色が保存され、塗りたい範囲(複数セル可)を
選択して(例:Ctl+k)で一応それらしい動作にならないでしょうか。
すでにマクロが使用できていれば問題ありませんが、マクロを使用する設定です。
http://kiyopon.sakura.ne.jp/soft/2007.html
あまりお勧めしませんが、上記でできない場合
http://pasofaq.jp/office/excel/excel2007macro.htm
で試すことはできるかと思います。
やっぱり標準コマンドはないのですね.
でも,塗られているセルから色を持ってくるというのは,私の用途にも非常に合っております.
ありがとうございました.
やっぱり標準コマンドはないのですね.
でも,塗られているセルから色を持ってくるというのは,私の用途にも非常に合っております.
ありがとうございました.