Excel VBA質問箱 IV

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

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


33810 / 76734 ←次へ | 前へ→

【48140】Re:ある範囲以外警報
発言  musasi  - 07/4/5(木) 1:57 -

引用なし
パスワード
   ▼Blue さん:
鈍い質問者で申し訳ないのですが
50〜200の範囲どうかけばよいですか
それと警告は?
よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 And Not Target.Value = "" Then
   With Application
     If Not .Intersect(Target, .ActiveSheet.Range("A1:B500")) Is Nothing Then
      MsgBox IsNumeric(Target.Value), vbInformation, "数値ならTRUE、それ以外はFALSE"
     End If
   End With
  End If
End Sub
1 hits

【48135】ある範囲以外警報 musasi 07/4/5(木) 1:01 質問
【48137】Re:ある範囲以外警報 Blue 07/4/5(木) 1:26 質問
【48138】Re:ある範囲以外警報 musasi 07/4/5(木) 1:32 発言
【48139】Re:ある範囲以外警報 Blue 07/4/5(木) 1:45 回答
【48140】Re:ある範囲以外警報 musasi 07/4/5(木) 1:57 発言
【48141】Re:ある範囲以外警報 Blue 07/4/5(木) 2:11 発言
【48142】Re:ある範囲以外警報 Blue 07/4/5(木) 2:20 発言
【48151】Re:ある範囲以外警報 musasi 07/4/5(木) 12:17 お礼

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