Excel VBA質問箱 IV

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

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


72579 / 76732 ←次へ | 前へ→

【8636】Re:続バッティングチェック
回答  りん E-MAIL  - 03/10/27(月) 18:54 -

引用なし
パスワード
   学生です さん、こんばんわ。

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
   With Target
     If .Count > 1 Then
      'MsgBox .Address, vbExclamation, "複数セルは対象外"
     ElseIf Target.Value = "" Then
      'MsgBox .Address, vbExclamation, "セルクリアも対象外"
     Else
      Application.EnableEvents = False
      If Application.WorksheetFunction. _
        CountIf(Range("A1:A10"), Target.Value) > 1 Then
        MsgBox Target.Value, vbInformation, "重複"
        .Select
        .ClearContents
      End If
      Application.EnableEvents = True
     End If
   End With
  End If
End Sub

A1:A10の範囲ないだけバッティングチェックをするならこんな感じです。
他の範囲に入力されたものが、A1:A10とかぶるかどうかチェックをする場合は、
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
と、一番下にある
End If
を外してください。

1 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 回答

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