Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54841 / 76738

←次へ　｜　前へ→


	【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）でいくつかサンプルを作成して
確認しましたが、再現はできませんでした。

0 hits

▼

【26550】重複データを整理したい k 05/7/8(金) 16:51