Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12776 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 回答
【8571】バッティングチェック
質問  学生です  - 03/10/24(金) 12:28 -
引用なし
パスワード
   　A列に同じに同じ文字、数値が入力されたら、msgboxで教えてくれる、マクロを今製作中ですが、なかなかうまくいきません、同じようなものを造ったことのある人は作り方を教えてください。
EXCELのバージョンは２００２です。
【8572】Re:バッティングチェック
回答  BOTTA  - 03/10/24(金) 12:50 -
引用なし
パスワード
   学生ですさん、こんにちは。

重複禁止なら、入力規則。
VBAではありませんが、
[#3699]を参照してみて下さい。
【8576】Re:バッティングチェック
回答  ぴかる  - 03/10/24(金) 13:39 -
引用なし
パスワード
   学生ですさん、BOTTAさん、こんにちは。

マクロ版、作ってみました。該当シートモジュールに貼り付けて下さい。
RangeとかSet、あんまり分かってないんで変かもしれませんけどネ。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyR As Range
Dim セル As Range

　　Set MyR = Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
　　For Each セル In MyR
　　　　If (Target.Column = 1) And (Target.Value = セル.Value) And _
　　　　　 (Target.Row <> セル.Row) Then
　　　　　　Cells(Target.Row, Target.Column).Select
　　　　　　MsgBox Target.Value & "は、入力済みです"
　　　　　　Target.Value = ""
　　　　　　Exit For
　　　　End If
　　Next
　　
　　Set MyR = Nothing
　　Set セル = Nothing

End Sub
【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
【8579】BOTTAさん、ぴかるさん、INAさん
お礼  学生です  - 03/10/24(金) 14:17 -
引用なし
パスワード
   BOTTAさん、ぴかるさん、INAさん返信ありがとうございました。
BOTTAさんの入力規則は考えもしなかったことなのでとても助かりました。
ぴかるさん、INAさんのソースは参考書を見ながらしかわかりませんが、確かめてみると確かに実行できました、ほんとうにありがとうございました。
【8581】Re:BOTTAさん、ぴかるさん、INAさん
回答  INA  - 03/10/24(金) 14:22 -
引用なし
パスワード
   私のコードは、検索(Findメソッド)でＡ列を調べて、
もし同じ文字が見つかったら、メッセージを表示するようにしてあります。
ループ文で各セルの文字を調べることもできますが、
検索の方が処理が速いと思います。
【8595】Re:バッティングチェック
回答  りん E-MAIL  - 03/10/24(金) 19:24 -
引用なし
パスワード
   >学生ですさん、こんばんわ。

BOTTA さんのをマクロにするとこんなかんじ。
>重複禁止なら、入力規則。
>VBAではありませんが、
>[#3699]を参照してみて下さい。

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

解決後のようですが。
【8612】Re:バッティングチェック
お礼  学生です  - 03/10/27(月) 10:08 -
引用なし
パスワード
   そんなことはありません、いろんなやり方が勉強できてとても助かります
【8613】追加のバッティングチェックの質問
質問  学生です  - 03/10/27(月) 10:13 -
引用なし
パスワード
   　たとえばA列の１から１０行までのバッティングチェックをしようとするとどのように記述すればよいのでしょうか？


▼学生です さん：
A列に同じに同じ文字、数値が入力されたら、msgboxで教えてくれる、マクロを今製作中ですが、なかなかうまくいきません、同じようなものを造ったことのある人は作り方を教えてください。
EXCELのバージョンは２００２です。
【8614】Re:追加のバッティングチェックの質問
回答  INA  - 03/10/27(月) 11:10 -
引用なし
パスワード
   >　たとえばA列の１から１０行までのバッティングチェックをしようとすると
>どのように記述すればよいのでしょうか？
Findメソッドの検索範囲を限定すればできます。

Set myFind = Range("A:A").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
　↓
Set myFind = Range("A1:A10").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)

掲載されたコードの意味が分からないときは、
各単語について、ヘルプで使い方を調べてみて下さい。
FindメソッドがRangeに対して検索することが分かると思います。

また、一般機能の「検索」を「マクロの自動記録」すれば、
Findメソッドの使い方が、より理解できるかと思います。
【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
を外してください。
【8693】INA さんへ
お礼  学生です  - 03/10/29(水) 14:27 -
引用なし
パスワード
   ▼INA さんありがとうございます
【8694】りんさんへ
お礼  学生です  - 03/10/29(水) 14:29 -
引用なし
パスワード
   ▼りん さんありがとうございます、早速ためさせていただきます。＞＜
【8697】Re:BOTTAさん、ぴかるさん、INAさん
お礼  学生です  - 03/10/29(水) 14:40 -
引用なし
パスワード
   処理速度のことまで考えながらソースコードを作るなんて私の今までにない考え方でした、とても参考になりました、ありがとうございます＞＜
【8703】追加のバッティングチェック
質問  学生です  - 03/10/29(水) 16:07 -
引用なし
パスワード
   　アクティブセルがある列の１行〜10行に入れた文字列を、A列にある10行〜20行にある各セルとのバッティングチェックをおこない、ヒットしたら、ヒットしたセルを空白チェックし空白ならアクティブセルの内容をコピーし、空白ではなかったら、msgboxを表示させるマクロなんですが！
　アクティブセルではなく固定でA列をソースに書き込むなら成功するのですが、アクティブセルコマンドを使用して、実行するとエラーになります。

> EXCELのバージョンは２００２です。
【8722】Re:追加のバッティングチェック
回答  INA  - 03/10/30(木) 10:57 -
引用なし
パスワード
   何エラーになるのですか？
あと、上手く行かないコードを掲載して頂けませんか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12776 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free