Excel VBA質問箱 IV

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

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


30918 / 76738 ←次へ | 前へ→

【51080】Re:同じ数字が入力されたら
質問  池田  - 07/8/27(月) 15:42 -

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

>
>一度、投稿者名に「@」使ってみたかったんだよね
>
>>VBAはあまりわからないのですが
>>よろしくお願いします。
>>ダブリ防止のてため、
>>C5:C132の範囲で同じ数字(半角5桁)が
>>入力された場合警告を出すみたいな事できませんか?
>
>これ、Countifを使うなら、入力規則を使う手もありますね!!
>
>設定手順を説明している時間がないので、VBAで設定します。
>
>新規ブックで適当なシートをアクティブにして下さい。
>
>標準モジュールに
>'==============================================
>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を実行したのち、セルC5:C132に対して重複データを入れてみてください。
>警告メッセージを表示します。
>(警告レベルなので。、入力はできます)
>入力禁止にも設定可能ですから、これはHelpやマクロの記録で調べてみてください。

0 hits

【51060】同じ数字が入力されたら 池田 07/8/27(月) 10:44 質問
【51062】Re:同じ数字が入力されたら ぱっせんじゃー 07/8/27(月) 11:20 発言
【51063】Re:同じ数字が入力されたら 池田 07/8/27(月) 11:34 質問
【51065】Re:同じ数字が入力されたら ぱっせんじゃー 07/8/27(月) 11:44 発言
【51066】Re:同じ数字が入力されたら 池田 07/8/27(月) 11:57 質問
【51067】Re:同じ数字が入力されたら ぱっせんじゃー 07/8/27(月) 12:07 発言
【51068】Re:同じ数字が入力されたら 池田 07/8/27(月) 13:29 質問
【51069】Re:同じ数字が入力されたら Blue 07/8/27(月) 13:58 質問
【51071】Re:同じ数字が入力されたら 池田 07/8/27(月) 14:36 質問
【51072】Re:同じ数字が入力されたら ぱっせんじゃー 07/8/27(月) 14:38 発言
【51073】Re:同じ数字が入力されたら ぱっせんじゃー 07/8/27(月) 14:40 発言
【51076】Re:同じ数字が入力されたら 池田 07/8/27(月) 14:55 発言
【51077】Re:同じ数字が入力されたら 池田 07/8/27(月) 15:13 発言
【51079】Re:同じ数字が入力されたら ichinose@仕事中 07/8/27(月) 15:28 発言
【51080】Re:同じ数字が入力されたら 池田 07/8/27(月) 15:42 質問
【51081】Re:同じ数字が入力されたら 池田 07/8/27(月) 16:05 質問
【51087】Re:同じ数字が入力されたら 池田 07/8/28(火) 0:53 質問
【51088】Re:同じ数字が入力されたら ichinose@出社 07/8/28(火) 7:37 発言
【51093】Re:同じ数字が入力されたら 池田 07/8/28(火) 10:39 質問
【51100】Re:同じ数字が入力されたら ichinose 07/8/28(火) 12:47 発言
【51101】Re:同じ数字が入力されたら 池田 07/8/28(火) 14:17 お礼

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