ＥＸＣＥＬでセルにN/Aを入力したら決まったセルに入っている数字（文字）が0になるマクロ

たとえば
Ａ１セル(固定)にN/Aが入力されたら
Ａ２セル～Ａ６セルに入力されている数字または文字が
0(ゼロ)になるマクロは
どのようにしたら良いですか？

簡単にできますか？

No.5 ベストアンサー 回答者： imogasi 回答日時： 2006/06/01 19:26

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = "N/A" Then
Range("A2:A6") = 0
Range("A1") = ""
End If
End Sub
でよいでしょう。Ａ２：Ａ６が数字か文字が入るなら、””の方がよいでしょう。しいて０にしたいならRange("A2:A6") = 0
Range("A1") = ""　は、次の入力用に、必要でしょう。消す手間がかかる。
＃４の補足
Cells(1, I) = 0　だと列方向に変化するから、そうなる
＞とびとびの決まったセルだと記述的にどこを変えると
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "N/A" Then
Range("A2:A6,A10:A12,A15") = ""
Range("A1") = ""
End If
End Sub
をご参考に。

No.4 回答者： a-gucci 回答日時： 2006/06/01 18:42

#1です

N/Aが最後に入力されるとして

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Cells(1, 1) = "N/A" Then
For I = 2 To 6
Cells(1, I) = 0
Next I
End If

End Sub

でいいと思います。

この回答へのお礼

すいません。
なぜだか行方向A2～A6が０になります。
下方向だと違うのですか？

もしよかったら、
とびとびの決まったセルだと記述的にどこを変えると対応できますか？

色々教えていただいてすみません。

お礼日時：2006/06/01 18:52

No.3 回答者： S-Fuji 回答日時： 2006/06/01 18:32

イベント型のマクロを組めばOKです。

Worksheet_Changeのイベントで、セルの値が変化したときにマクロが実行されます。
マクロの中身は、「kanejiro」さんの書いたマクロでOKかと思います。

No.2 回答者： kamejiro 回答日時： 2006/06/01 18:04

マクロをボタンに登録しておいて、マクロは

If Cells(1,1)="N/A" Then
For I=2 to 6
Cells(I,1)=0
Next I
End If

んな感じでどうですか。
※思いつきでパタパタとコーディングしたので動作確認はしていません。

この回答へのお礼

回答ありがとうございます。
ボタンに登録しないで自動でそうなる方法はありませんか？
BOOKまたはそのsheet上で自動で
N/Aが入力されたら
決まった範囲のセルの値が0になるというマクロなのですが・・・

お礼日時：2006/06/01 18:16

No.1 回答者： a-gucci 回答日時： 2006/06/01 18:01

N/Aの入力とありますが、エラーコードの#N/Aが入っていたらとして

の答えになりますが

A2～A6のセルに=IF(ERROR.TYPE(A1)=4,CHOOSE(ERROR.TYPE(A1),,,,"0"))

といれれば"0"の文字になります。

この回答への補足

回答ありがとうございます。
Ａ２～Ａ６のセルには値を入れる予定です。
その値がＡ１セルにN/A(決まったある文字でもいいです。)が入ると0にリセットされるようにしたいです。
この回答ですとＡ2～Ａ6には式が入っているため
値を入れることが出来ないので
どうしたらいいかと思いました。

補足日時：2006/06/01 18:17