塗りつぶしのショートカットキーはありますか？

入力しながら該当セルに色をつけたいのでキーボードのみでセルの塗りつぶしができる方法はありますでしょうか？
条件付書式ではちょっと対応できないので。
（数値ではなく文字列を目で見て判定をくだすため。）

大量の入力があるのでよろしくお願いします

No.1 回答者： saru_1234 回答日時： 2006/05/12 21:53

excel でしょうか？

ズバリの回答でなく,ご希望の事ができるか不明ですが...
一度マウスでセルに色を付けたら,

つぎにセルを選択したら <Ctrl>+Y で
同じ操作をできます.

なので右手でマウスをポイントし,
左手で<Ctrl>+Y で同じ色を次々に付ける...なら
可能です.

或いは,同じ色を付けるセルを複数選択してから
( <Ctrl> 押しながらマウス左クリック で可能)
なら, 複数のセルを,いっぺんに(同じ色に限りますが)
着色できますが...

No.2 回答者： papayuka 回答日時： 2006/05/12 22:11

#1さんの回答で解決かも知れませんが。

該当セルにはキーワードとなる単語だけを入力するなら、、、

キーワードとなる単語を別シートに記入しておき名前をつけます。
（例 Sheet2 の A1:A100 に 単語を入力して List と名前を付ける）

Sheet1のA1に条件付き書式で「数式が」　=NOT(ISNA(VLOOKUP(A1,List,1,0)))
のようにすると入力と同時に色を付けられます。

この回答へのお礼

ありがとうございました。大変参考になりました

お礼日時：2006/05/15 09:25

No.3 ベストアンサー 回答者： redowl 回答日時： 2006/05/12 23:31

Excel 表示　　　＞　　　ツールバー　＞ユーザー設定　でショートカットキーの割当が出来るので、　既存のショートカットキーと　ダブらないように　すればよいかと

分類　＞　書式　＞塗りつぶしの色　　を選択してから　　　ショートカットキー入力欄に　　割り当てるキーを押して登録　
　　　　　（色については、選択した塗りつぶし色で表示されます）

左手でキー押しするなら　コントロールキー　＋　シフト　＋アルファベットキー　　２～３個同時押しになる　組み合わせが良かろうと・・・・

この回答へのお礼

こちらの方法を試してみたのですが、割り当てたキーを押してもうまく色がつけられません。2000を使っているのですが2000では無理なのでしょうか？

お礼日時：2006/05/15 09:24

No.4 回答者： imogasi 回答日時： 2006/05/13 07:47

キーボードではなくマウスですが、

２クリックで色をつける方法。興味あればご覧ください。
１．色選択クリック
２．セル選択ダブルクリック
ーーー
第１，２行目にカラーパレットを作る（行挿入して）。
Sub test01()
For i = 1 To 10
Cells(1, i).Interior.ColorIndex = i
Next
For i = 11 To 20
Cells(2, i - 10).Interior.ColorIndex = i
Next
End Sub
ーーー
Sheet1のシートのイベントに下記を貼り付け
Dim x
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then 'A列をダブルクリックしたら
Target.Interior.ColorIndex = x '直前のD列指定のパターン色を設定
Exit Sub
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Or Target.Row = 2 Then
x = Target.Interior.ColorIndex
Exit Sub
End If
End Sub
ーーー
操作
色のセルををクリック。（同じ色でよいなら省略可）
設定するセルでダブルクリック
の繰り返し。
第１，２行をウインドウ枠の固定をし、カラーパレットセルを常時表示する。不要になれば１，２行削除可。

この回答へのお礼

ありがとうございました。大変参考になりました

お礼日時：2006/05/15 09:22

No.5 回答者： misatoanna 回答日時： 2006/05/13 14:10

次の内容でどうでしょうか。

Sub DefKey()
Application.OnKey "%{F12}", "Paint"
End Sub
'
Sub RstKey()
Application.OnKey "%{F12}"
End Sub
'
Sub Paint()
Selection.Interior.ColorIndex = 35
End Sub

DefKey を実行ておきますと、[Alt]+[F12] でセルが塗りつぶされるようになります。
この機能が不要になったら、RstKey を実行します。

このブックではいつもこの機能を使いたい場合は、 DefKey を Auto_Open に書換え、
RstKey のモジュールは削除してかまいません。

この回答へのお礼

ありがとうございました。大変参考になりました

お礼日時：2006/05/15 09:21