Excel VBA質問箱 IV

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

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


54835 / 76732 ←次へ | 前へ→

【26681】Re:重複データを整理したい
発言  ichinose  - 05/7/14(木) 5:57 -

引用なし
パスワード
   ▼YN さん:

おはようございます。
>小生も、エクセルにichinose様のコードをコピーさせていただき
>動かそうとするのですが、
>エラーが発生して、手ずかずです。
>コードを見ても分からないのが一番の原因ですが・・・
> If UBound(ans) > maxbnd Then maxbnd = UBound(ans)の列で
> 配列がありません のコンパイルエラーが発生します。
>何が問題なのでしょうか?
まず、

・WindowsとOfficeのバージョンを教えてください。

・「get_num_value」というFunctionの訂正前、後のコード、それとも
 両方でエラーが発生していますか?

・エラーを確認した元データはどんなものでしょうか?

注番    部番    日付A    日付B
1    あ    2005/7/1    2005/7/2
1    あ    2005/7/2    2005/7/3
1    い    2005/7/1    2005/7/2
2    あ    2005/7/3    2005/7/4
2    う    2005/7/4    2005/7/5
2    う    2005/7/5    2005/7/6
2    う    2005/7/6    2005/7/7

kさんが提示されている上記のようなデータではどうでしょうか?
それとも違うデータですか?
それを教えてください。

>If UBound(ans) > maxbnd Then maxbnd = UBound(ans)の列で
>配列がありません

であれば、原因は「get_num_value」にあるような気がしますが・・・。

   If VarType(ans) <> vbBoolean Then
     msgbox vartype(ans) '←とした場合、何が表示されますか?
     If UBound(ans) > maxbnd Then maxbnd = UBound(ans) 

EXCEL2000(Win98),2002(Win2000)でいくつかサンプルを作成して
確認しましたが、再現はできませんでした。
4 hits

【26550】重複データを整理したい k 05/7/8(金) 16:51 質問
【26551】Re:重複データを整理したい NY 05/7/8(金) 17:54 回答
【26622】Re:重複データを整理したい k 05/7/12(火) 11:01 質問
【26657】Re:重複データを整理したい ichinose 05/7/13(水) 6:11 発言
【26663】Re:重複データを整理したい k 05/7/13(水) 15:14 質問
【26673】Re:重複データを整理したい ichinose 05/7/13(水) 18:57 発言
【26674】Re:重複データを整理したい YN 05/7/13(水) 20:23 質問
【26681】Re:重複データを整理したい ichinose 05/7/14(木) 5:57 発言
【26683】Re:重複データを整理したい YN 05/7/14(木) 6:58 質問
【26721】Re:重複データを整理したい ichinose 05/7/15(金) 7:22 発言
【26748】Re:重複データを整理したい YN 05/7/15(金) 21:48 お礼
【26749】Re:重複データを整理したい ichinose 05/7/16(土) 0:13 発言
【26698】Re:重複データを整理したい k 05/7/14(木) 11:45 お礼

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