Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51349 / 76732 ←次へ | 前へ→

【30253】Re:EXCEL重複チェック
発言  ichinose  - 05/10/24(月) 8:27 -

引用なし
パスワード
   >
>今回のプログラムは ユーザ側が順番にラベルのバーコード(ラベル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コード内で処理させている
だけなので、数式のみでも可能です。
確認してみてください。

1 hits

【30247】EXCEL重複チェック 優哉 05/10/24(月) 7:14 質問
【30249】Re:EXCEL重複チェック ichinose 05/10/24(月) 7:34 発言
【30250】Re:EXCEL重複チェック 優哉 05/10/24(月) 7:58 質問
【30253】Re:EXCEL重複チェック ichinose 05/10/24(月) 8:27 発言
【30255】Re:EXCEL重複チェック 優哉 05/10/24(月) 8:40 質問
【30256】Re:EXCEL重複チェック ichinose 05/10/24(月) 9:19 発言
【30261】Re:EXCEL重複チェック 優哉 05/10/24(月) 9:51 質問
【30307】Re:EXCEL重複チェック ichinose 05/10/24(月) 22:35 発言
【30310】Re:EXCEL重複チェック UF 05/10/25(火) 7:46 発言
【30315】Re:EXCEL重複チェック 優哉 05/10/25(火) 9:58 質問
【30360】Re:EXCEL重複チェック UF 05/10/25(火) 19:58 発言

51349 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free