Excel VBA質問箱 IV

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

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


72637 / 76732 ←次へ | 前へ→

【8577】Re:バッティングチェック
回答  INA  - 03/10/24(金) 13:49 -

引用なし
パスワード
   > A列に同じに同じ文字、数値が入力されたら、
>msgboxで教えてくれる、マクロを今製作中ですが、なかなかうまくいきません、

これで良いかと思います。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myFind As Range
If Target.Column <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

Application.EnableEvents = False

  Set myFind = Range("A:A").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
  
  If Not myFind Is Nothing Then
    MsgBox "既に入力されています。"
    Target.Value = "" ' ←入力値を削除しないなら不要
  End If

Application.EnableEvents = True
End Sub

0 hits

【8571】バッティングチェック 学生です 03/10/24(金) 12:28 質問
【8572】Re:バッティングチェック BOTTA 03/10/24(金) 12:50 回答
【8576】Re:バッティングチェック ぴかる 03/10/24(金) 13:39 回答
【8595】Re:バッティングチェック りん 03/10/24(金) 19:24 回答
【8612】Re:バッティングチェック 学生です 03/10/27(月) 10:08 お礼
【8636】Re:続バッティングチェック りん 03/10/27(月) 18:54 回答
【8694】りんさんへ 学生です 03/10/29(水) 14:29 お礼
【8577】Re:バッティングチェック INA 03/10/24(金) 13:49 回答
【8579】BOTTAさん、ぴかるさん、INAさん 学生です 03/10/24(金) 14:17 お礼
【8581】Re:BOTTAさん、ぴかるさん、INAさん INA 03/10/24(金) 14:22 回答
【8697】Re:BOTTAさん、ぴかるさん、INAさん 学生です 03/10/29(水) 14:40 お礼
【8613】追加のバッティングチェックの質問 学生です 03/10/27(月) 10:13 質問
【8614】Re:追加のバッティングチェックの質問 INA 03/10/27(月) 11:10 回答
【8693】INA さんへ 学生です 03/10/29(水) 14:27 お礼
【8703】追加のバッティングチェック 学生です 03/10/29(水) 16:07 質問
【8722】Re:追加のバッティングチェック INA 03/10/30(木) 10:57 回答

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