Excel VBA質問箱 IV

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

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


31404 / 76732 ←次へ | 前へ→

【50579】Re:段ボールケースに何箱入れられるか?
発言  わいわい  - 07/8/2(木) 15:06 -

引用なし
パスワード
   ▼まくりん さん:

>このままでは時間が掛かるばかりでなく、折角のご厚意に結果報告も
>ままならない... と、感じましたので現在知人に御願いして計算式を
>作って貰っています(お恥ずかしいですけど...)。
とのことで、問題ないと思うのですが念のため書いておきます。
先般提示した中に修正すべき内容が2箇所あります。
1.大きい順に並べ替え処理が間違っている。
'大きい順に並べ替え(修正例、他にもっとスマートな方法があると思います)
  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)

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

3 hits

【50512】段ボールケースに何箱入れられるか? まくりん 07/7/30(月) 16:18 質問
【50513】Re:段ボールケースに何箱入れられるか? ちくたく 07/7/30(月) 16:27 発言
【50514】Re:段ボールケースに何箱入れられるか? マクロマン 07/7/30(月) 16:34 発言
【50516】Re:段ボールケースに何箱入れられるか? わいわい 07/7/30(月) 17:00 発言
【50520】Re:段ボールケースに何箱入れられるか? まくりん 07/7/30(月) 20:01 お礼
【50524】Re:段ボールケースに何箱入れられるか? 07/7/31(火) 0:16 回答
【50526】Re:段ボールケースに何箱入れられるか? わいわい 07/7/31(火) 7:12 発言
【50529】Re:段ボールケースに何箱入れられるか? わいわい 07/7/31(火) 8:34 発言
【50536】Re:段ボールケースに何箱入れられるか? まくりん 07/7/31(火) 12:00 お礼
【50545】Re:段ボールケースに何箱入れられるか? わいわい 07/7/31(火) 19:29 回答
【50577】Re:段ボールケースに何箱入れられるか? まくりん 07/8/2(木) 13:55 発言
【50579】Re:段ボールケースに何箱入れられるか? わいわい 07/8/2(木) 15:06 発言
【50612】Re:段ボールケースに何箱入れられるか? まくりん 07/8/4(土) 19:09 お礼
【50866】Re:段ボールケースに何箱入れられるか? まくりん 07/8/20(月) 18:59 お礼

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