|
▼池田 さん:
こんにちは。
一度、投稿者名に「@」使ってみたかったんだよね
>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やマクロの記録で調べてみてください。
|
|