継続の質問となります。 URL https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12250873147

画像

Excel | Office系ソフトウェア380閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

追伸 前述に追記しました条件文に「Exit For」必要でした。 For x1=1 to 6 If Cells(4,n2-x1-x).Value=220 Then(残業などにより工数が変わる可能性があれば、「>=220」とした方が安全ですかね。」 Cells(n0 - n1, n2 - x1 - x).Value = Cells(n0 - n1, 8).Value - Cells(n0 - n1, n2 - x).Value Cells(3, n2 - x1 - x).Value = Cells(3, n2 - x1 - x).Value + Cells(n0 - n1, n2 - x1 - x).Value Exit For ←追記 End If Next

ThanksImg質問者からのお礼コメント

お忙しい中、親身になって対応して頂きまして 有難うございます。 とても感謝しております。 質問が途中になってしまいましたが、新規にて質問をするので 引き続き宜しくお願い致します。

お礼日時:10/28 20:54