Excel VBA質問箱 IV

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

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


13520 / 76732 ←次へ | 前へ→

【68715】Re:EventMacroで以外はの処理をお聞かせください。
発言  kanabun  - 11/4/9(土) 17:51 -

引用なし
パスワード
   > 1〜6以外は何もしないのであれば
case else も不要ですか?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
  
  Application.EnableEvents = False
  With Target(1)
    Select Case .Value
     Case 1 To 6
       .Value = Mid$("◎○△▲*×", .Value, 1)
     Case Else 
       .ClearContents
    End Select
  End With
  Application.EnableEvents = True
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 お礼

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