リボンが250cmあり、これを26cmずつにしさらに2等分したい、ただ

質問

リボンが250cmあり、これを26cmずつにしさらに2等分したい、ただし2つのほつれの箇所があるのでこれは捨てたいというものを書こうと思っています。

分かりにくいので添付します
例1
リボン長さ250cm
ほつれ箇所5cm、45cm
この3点の条件を入れて自動で結果を出力させたいと考えています。

この場合は最初の5cmを捨てて13cmが2つ計26ｃｍで1つでき
次に13cm取ったら45cmにほつれがあったので1cm捨てたとなっています。
その後、13cmずつ取っていき、最後に余った62cmを捨てる（実際に余りは捨てませんが）といった感じです。

例2は70cmと125cmにほつれがあった場合です。

例3はほとんどないのですがまれに採取中にほつれがあった場合です
この場合は6Bのものを採取して7Aを取っているときに、6cmのところでほつれがあったので"セルF34"に6を入力してほつれ3に170を出力。
次に7B採取中10cmのところにほつれがあったので"セルF36"に10を入力しほつれ4に190を出力

今まで手入力で別の人がやっていたのですがなんとか効率化できないかと思っています。

例1、例2のほうは13cmの合計ごとに判定していくような形なのかなと漠然に思っているところですけど、いまいち数式が思いつきません。
例3に関しては複雑すぎてエクセルで出来るのだろうかという状況です・・・。

当方エクセル2003使用です。
マクロの記述編集は出来ますがVBAは出来なくはないが苦手です。
何か良い記述ありましたらよろしくお願いします。

回答No.2

keithin · ベストアンサー

廃棄量を算定してなかったですね。

改訂添付図：
F4　=IF(F3="","",MOD(F3,$C$3))　を右にコピー。

応用できるかと言われれば，計算のロジックはお示ししましたのであとは並べ方だけの問題ですから，あなたの好きなように並べてくださればよい事です。
実際ご相談にはそれで一体「どうしたい」のか書かれていませんでしたので，「こうすれば出来る」方法を最初から作ってこのように回答しました。でもそんなのは全く聞きたくなくて「今の表に埋める式だけやって欲しかった」のでしたら，

F10に　=IF(C3<13,C3,0)　を記入
F11に　=13　を記入
F12に　
=IF(SUM($F$10:$F$11,13)>$B$3,$B$3-SUM($F$10:F11),IF(COUNTIF($B$3:$H$3,"<"&SUM($F$10:F11,13))=COUNTIF($B$3:$H$3,"<"&SUM($F$10:F11)),"",SMALL($B$3:$H$3,COUNTIF($B$3:$H$3,"<"&SUM($F$10:F11,13)))-SUM($F$10:F11)))
を記入
F11:F12をつかんでF38までオートフィルドラッグ
その上で
F38に　=B3-SUM($F$10:F37)　と記入します。

なお，掲示されたサンプルの例１と例３の７番の廃棄量は計算が間違っています。

お礼

ありがとうございます。
最初に頂いた計算のほうでいくつかパターンを作ってみましたが、いまいち自分の思うとおりにはいかなく、結局表に埋める式のほうを使わせて頂くことになってしまいました。（多少改変しましたが）
結果オーライではあるものの頼りすぎだなと反省。
ともかくお世話になりました。

回答No.1

keithin

250cmのリボンがあって70cmと125cmの位置がほつれていたら，それはつまり70cmと55cmと125cmの３つの長さのリボンがあって，それぞれから13cmずつ切り取って使うという事です。

添付図：
C2　　　全長さ
C3　　　切り取りたいリボンの長さ
C5～C9　ほつれの場所（リボンの端から測った位置）

F2　０
G2　=IF(COLUMN(A2)>COUNT($C$5:$C$9),"",INDEX($C$5:$C$9,COLUMN(A2)))
　　右にコピー

F3　=IF(F2="","",IF(G2="",$C$2,G2)-F2)
　　右にコピー

F5　=IF(F$2="","",(IF(ROW(F1)>INT(F$3/$C$3),"",F$2+$C$3*(ROW(F1)-1))))
　　下に右にコピー

補足

なるほど、3つに分けて処理ですか。
画像添付した例が小さくて分かりにくい中ありがとうございます。
補足なのですがこのように
http://tukizakura.jp/11.jpg
出力したい場合も解凍の応用でいけるでしょうか。

よろしくお願いします。