Excel VBA質問箱 IV

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

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


13536 / 76738 ←次へ | 前へ→

【68705】EventMacroで以外はの処理をお聞かせください。
質問  Yoshi  - 11/4/9(土) 11:08 -

引用なし
パスワード
   このコードで
数字7以上の大きい数字は反応無しにしたいのですが、
Case Is > 7
  .Value = ""
では全てが反応しません。対応方法をお願いします。


Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case Is = 1
  .Value = "◎"
Case Is = 2
  .Value = "○"
Case Is = 3
  .Value = "△"
Case Is = 4
  .Value = "▲"
Case Is = 5
  .Value = "*"
Case Is = 6
  .Value = "×"
' Case Is > 7
'  .Value = ""
' Case Else
'  .Value = ""
End Select
End With
End Sub
0 hits

【68705】EventMacroで以外はの処理をお聞かせください。 Yoshi 11/4/9(土) 11:08 質問
【68706】Re:EventMacroで以外はの処理をお聞かせく... kanabun 11/4/9(土) 11:16 発言
【68712】Re:EventMacroで以外はの処理をお聞かせく... UO3 11/4/9(土) 15:10 発言
【68715】Re:EventMacroで以外はの処理をお聞かせく... kanabun 11/4/9(土) 17:51 発言
【68787】Re:EventMacroで以外はの処理をお聞かせく... Yoshi 11/4/17(日) 20:17 質問
【68788】Re:EventMacroで以外はの処理をお聞かせく... kanabun 11/4/17(日) 21:14 発言
【68789】Re:EventMacroで以外はの処理をお聞かせく... kanabun 11/4/17(日) 21:16 発言
【68800】Re:EventMacroで以外はの処理をお聞かせく... Yoshi 11/4/18(月) 20:58 お礼

13536 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free