Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30912 / 76732

←次へ　｜　前へ→


	【51080】Re:同じ数字が入力されたら

池田 - 07/8/27(月) 15:42 -


	引用なし

	パスワード

▼ichinose@仕事中さん：
いつも参考にさせていただいてます
お仕事中ありがとうございます
バッチリです。
ただもう一つお願いします
testを実行せずとも警告表示させること出来ませんか？
お手すきの時で結構です。
よろしくお願いします

>
>一度、投稿者名に「＠」使ってみたかったんだよね
>
>>VBAはあまりわからないのですが
>>よろしくお願いします。
>>ダブリ防止のてため、
>>C5:C132の範囲で同じ数字（半角5桁）が
>>入力された場合警告を出すみたいな事できませんか？
>
>これ、Countifを使うなら、入力規則を使う手もありますね！！
>
>設定手順を説明している時間がないので、ＶＢＡで設定します。
>
>新規ブックで適当なシートをアクティブにして下さい。
>
>標準モジュールに
>'==============================================
>Sub Test()
>　　With Range("C5:C132")
>　　　 .Select
>　　　 .Cells(1).Activate
>　　　 With .Validation
>　　　　.Delete
>　　　　.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertInformation, _
>　　　　Operator:=xlBetween, Formula1:="=countif(" & _
>　　　　　　　　　　　　　　 .Parent.Address & "," & _
>　　　　　　　　　　　　　　 .Parent.Cells(1).Address(False, False) & _
>　　　　　　　　　　　　　　 ")=1"
>　　　　.IgnoreBlank = True
>　　　　.InCellDropdown = True
>　　　　.ErrorTitle = "警告重複"
>　　　　.ErrorMessage = "既に同じ値が指定されています。"
>　　　　.IMEMode = xlIMEModeNoControl
>　　　　End With
>　　End With
>End Sub
>
>Testを実行したのち、セルＣ５：Ｃ１３２に対して重複データを入れてみてください。
>警告メッセージを表示します。
>（警告レベルなので。、入力はできます）
>入力禁止にも設定可能ですから、これはHelpやマクロの記録で調べてみてください。

0 hits

▼

【51060】同じ数字が入力されたら 池田 07/8/27(月) 10:44