[[20100517161710]]　『changeイベントで書式を復活』（VBA初心者）　ページの最後に飛ぶ

『changeイベントで書式を復活』（VBA初心者）

 皆様、よろしくお願いします。
 changeイベントでA41:B50のセルが変更された場合、C41:D50までのセルの書式を標準に設定できないでしょうか？
 書式を標準にするには、下記のようにすればいいというのは調べてわかったのですが、
 その他がわかりません。どなたか教えて下さい。
 Range("C41:D50").Select
    Selection.NumberFormatLocal = "G/標準"

 基本はこんな感じです。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("A41:B50"), Target) Is Nothing Then Exit Sub
    Range("C41:D50").NumberFormatLocal = "G/標準"
 End Sub

 A41:B50 の、複数セルを同時に変更された場合とか、データを
 クリアした場合も書式を"G/標準"にするのかどうか？
 また、"G/標準"から別の書式に戻す事があるのかどうか、など
 応用してコードを追加して下さい。
　
（純丸）(o^-')b

純丸さま

 ありがとうございます。
 教えていただいた通り、コピペしてみましたら『コンパイルエラー　名前が適切ではありません』
 エラーがでるのですが、対処法がおわかりになりましたら教えて下さい。
 （VBA初心者）

純丸さま

 申し訳ありません、しっかり動作しました。
 １点お聞きしたいのですが、sheet1にchengeイベントのコードが１つ記述されているのですが、
 もう１つ上記のコードも記述したい場合は、どのように記述すればよろしいでしょうか？
 はじめは、すでにchangeのコードが記述されていたので、『コンパイルエラー　名前が適切ではありません』と出ていたようです。

 よろしくお願いします。（VBA初心者）

 ↓ こちらの新規スレで解決したようですね。
　
[[20100517190949]]『changeイベントを２つ記述したい時はどうすればいいですか？』（VBA初心者） 
　
（純丸）(o^-')b

コメント返信：

[ 一覧(最新更新順) ]

[[20100517161710]] 『changeイベントで書式を復活』（VBA初心者） ページの最後に飛ぶ

[[20100517161710]]　『changeイベントで書式を復活』（VBA初心者）　ページの最後に飛ぶ