| |
ichinose さん
回答有難うございます。
早速試してみたのですが「ボタン」をクリックすると
型が一致しません と言うエラーが表示されてしまいました。
Excel(VBA)については、かなり初心者でして･･･
お手数ですが、原因お教えいただけると助かります。
▼ichinose さん：
>>
>>今回のプログラムは ユーザ側が順番にラベルのバーコード（ラベル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
>
>で可能です。又、上記のコードは配列数式をＶＢＡコード内で処理させている
>だけなので、数式のみでも可能です。
>確認してみてください。
|
|
優哉
- 05/10/24(月) 8:40 -
