|
▼知ろう途 さん:
agalinman です。
知ろう途 さん、新たな発想をありがとうございます。
試しちょこっとやってみました。
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
で元々のセルの値を退避して
> Private Sub Worksheet_Change(ByVal Target As Range)
で色を塗るための数字指定で色塗り
というロジックだと理解しました。
確かに Worksheet_Change ですので、計算結果が更新されて、
いい感じに見えたのですが・・・。
この方法だと、何も入力されていないセルに、たまたま色を指定する数字と
同じ数字を入力したい場合、希望したい色に塗られないことがあるし、
元々が何も入力されていないため、入力した数字が消えてしまいますよね。
具体的には、お教え頂いたコードをサンプルとすると、
何も入力されていないセル B2 に "2" という数字を入力して、
色を"青"にしたい場合
などが該当します。
>あ!それとエラー処理は未だに良くわからないのでおまかせします。
おっしゃる通り、例外処理がやっかいそうですよね。
|
|