|
▼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やマクロの記録で調べてみてください。
|
|