Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14318 / 76734

←次へ　｜　前へ→


	【67913】Re:EventMacroの不安定

tama - 11/1/16(日) 20:53 -


	引用なし

	パスワード

▼n さん：
アドバイスありがとうございます。
色々とチェックを入れてコードを訂正しましたが・・・

何故かＣ９：Ｄ１２に数字を入れると、全てカッコ付き（数字）となります。
また、お時間が有りましたら、コードをチェックしてください。
Ｂ列の反応も、Ａ列の数字を削除してもセルの升目の左に残ったまま（）が外されますが、"Ｇ/標準"になりません。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A6:A20")) Is Nothing Then Exit Sub
Dim i As Long
With Sheets(1)
For i = 6 To 20
　　If .Cells(i, 1).Value = "" Then
　　　 .Cells(i, 2).NumberFormatLocal = "G/標準"
　　End If
　　If .Cells(i, 1).Value <> "" Then
　　　 .Cells(i, 2).NumberFormatLocal = """(""@"")"""
　　End If
　　Next
End With
End Sub　

1 hits

▼

【67911】EventMacroの不安定 tama 11/1/16(日) 14:02