Excel VBA質問箱 IV

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

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


51353 / 76738 ←次へ | 前へ→

【30255】Re:EXCEL重複チェック
質問  優哉  - 05/10/24(月) 8:40 -

引用なし
パスワード
   ichinose さん

回答有難うございます。

早速試してみたのですが「ボタン」をクリックすると
型が一致しません と言うエラーが表示されてしまいました。

Excel(VBA)については、かなり初心者でして・・・
お手数ですが、原因お教えいただけると助かります。


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

0 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 発言

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