| |
>Range("E60").Value = Worksheets("List2").Range("E7").Valueで
>やると簡素化できないので変数使ってみることにしました｡
>不規則な行の変化で､配列がわからずつまずいていました
>>>(10,13,26,27,29係）は本店にデーターなし（支店2内の部門)
>ですのでとりあえず支店2を選択したときに出力したい行に抽出しました｡
>本店分だけですが、これでいいでしょうか？
hiroさんとしては、この結果で善いのですか？
要は、自分の得たい結果が出れば、コードが如何に有れそれで善いと思いますが？
>この程度で時間かかってすいません｡
人が書いたコードを完全に理解しないまでも、
どの部分で何をやって居るかを理解して、
少なくと自分の得たい事を付け加えられたのですから、
上出来の部類だと思いますよ？（時間が掛るのは当然）
申し訳有りませんが、ここ2〜3日自分の事を遣らなければ成らないので、
すぐ、コードを提示できないのですが？
ただ、気に成る事が幾つか有ります
1、hiroさんの修正では、「Private Function AddUp」が2回繰り返すので、
同じ転記が2度行われますがどうしますか？
2、転記先の行位置ですが、
行 = Array(60, 63, 66, 81, 69, 93, 72, 75, 38, 214, 5, 41, 207, 20, 23, 8, 26, 29, 44, 47, 90, 50, 11, 14, 32, 136, 214, 84, 221, 96)
で書かれたように、バラバラ名のですか？
また、本店、支店A、支店Bはの転記先は、全て上記の行位置なのですか？
3、転記先「部門」で、行が飛んでいますが、この行位置は、既に何か書き込まれて居るのですか？
何が言いたいかと言うと、処理速度を上げるのにhiroさんがやった様に1セルずつ転記すると
速度的に不利ななるので、E5:O221の範囲に配列で転記ができないかと考えるからです
この場合、出力データの間は（飛んでいる行位置）は全てクリアされてしまいますので
善いのかを知りたい為です
以上
|
|
Hirofumi
- 07/6/14(木) 20:57 -
