|
>
>今回のプログラムは ユーザ側が順番にラベルのバーコード(ラベルNo)
>を読んでいって 固定長に出力させるプログラムです。
>入力箇所はA1セル〜A100セルになっており、読み込み件数は
>100未満でも出力可能にしています。
>単にそれだけのプログラムなのですが、ユーザ側で間違えて同じラベルを
>2回読む可能性が有り、そのチェック機能として 固定長送信ボタンを
>クリックした際に もしA1〜A100セルに同じラベルNoがあった場合に
>エラーを出力したいと思っています。
途中には未入力データがないとして、重複ありか否かだけなら
'==========================================================
Sub test()
Dim rng As Range
Dim add As String
Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
add = rng.Address
If Evaluate("round(sum(1/countif(" & add & "," & add & ")),0)") = rng.Count Then
MsgBox "重複なし"
Else
MsgBox "重複あり"
End If
End Sub
で可能です。又、上記のコードは配列数式をVBAコード内で処理させている
だけなので、数式のみでも可能です。
確認してみてください。
|
|