Excel VBA質問箱 IV

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

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


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

31479 / 76807

←次へ　｜　前へ→


	【50579】Re:段ボールケースに何箱入れられるか？

わいわい - 07/8/2(木) 15:06 -


	引用なし

	パスワード

▼まくりんさん：

>このままでは時間が掛かるばかりでなく､折角のご厚意に結果報告も
>ままならない...　と､感じましたので現在知人に御願いして計算式を
>作って貰っています(お恥ずかしいですけど...)｡
とのことで、問題ないと思うのですが念のため書いておきます。
先般提示した中に修正すべき内容が２箇所あります。
１．大きい順に並べ替え処理が間違っている。
'大きい順に並べ替え（修正例、他にもっとスマートな方法があると思います）
　　AA(1) = x
　　AA(2) = y
　　AA(3) = z
　　If AA(1) < AA(2) Then AA(0) = AA(1): AA(1) = AA(2): AA(2) = AA(0)
　　If AA(1) < AA(3) Then AA(0) = AA(1): AA(1) = AA(3): AA(3) = AA(0)
　　If AA(2) < AA(3) Then AA(0) = AA(2): AA(2) = AA(3): AA(3) = AA(0)
　　A = AA(1)
　　B = AA(2)
　　C = AA(3)

２．例題では問題ないが、個数が増えたときの対応としてIntegerをLongにする。
です。
計算結果には、数学的価値は全くありませんが、そこそこの答えは出てきますよ。

8 hits

▼

【50512】段ボールケースに何箱入れられるか？ まくりん 07/7/30(月) 16:18