| |
>
>今回のプログラムは ユーザ側が順番にラベルのバーコード（ラベルNo）
>を読んでいって 固定長に出力させるプログラムです。
>入力箇所はＡ１セル〜Ａ１００セルになっており、読み込み件数は
>１００未満でも出力可能にしています。
>単にそれだけのプログラムなのですが、ユーザ側で間違えて同じラベルを
>２回読む可能性が有り、そのチェック機能として 固定長送信ボタンを
>クリックした際に もしＡ１〜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
で可能です。又、上記のコードは配列数式をＶＢＡコード内で処理させている
だけなので、数式のみでも可能です。
確認してみてください。
|
|
ichinose
- 05/10/24(月) 8:27 -
