人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロについて教えて下さい。
下記のような条件付き書式のマクロを使用してみたんです、
マクロの動作はこれで問題ないんですが、
A列は文字を入力してしまうと、
ショートカットのやり直し「CTRL+Z」が効きません。。
これはどうしようもないんでしょうか? それともやり直しが効くようにする
書き方があるんでしょうか?

---------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intColor As Integer
Dim celcolor As Integer

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Select Case Target.Value

Case Is = "あ"
intColor = 1
celcolor = 2
Case Is = "い"
intColor = 1
celcolor = 2
Case Is = "う"
intColor = 1
celcolor = 3
Case Is = "え"
intColor = 1
celcolor = 4
Case Is = "お"
intColor = 1
celcolor = 5
End Select

Target.Font.ColorIndex = intColor
Target.Interior.ColorIndex = celcolor
End Sub
----------------

●質問者: omoro
●カテゴリ:コンピュータ
✍キーワード:as CASE EXIT nothing SELECT
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

コメント欄が空いてないので、こちらで失礼します。

>これはどうしようもないんでしょうか?

どうしようもないです。


それは、文字を入力した後にVBAが動いているのですが、VBAの動きは元に戻らないからです。

元に戻すのアイコンがクリアされることでわかると思います。


先の回答のコメントにあるように、条件付書式で同じことができますし、

条件付書式の場合は元に戻すことができますので、CTRL+Zを使いたい場合はそちらをお勧めします。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-syo.html

◎質問者からの返答

そうなんですか・・・出来ないんですね。残念です。

回答ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ