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