| |
こんにちは＾＾ 横から失礼します。
>住所・社名を「行のタイトル」として設定はできないのでしょうか？
>できるのであれば、設定してしまえば今のままで実現できるかと思います。
あ〜これがＯＫなら、15行目から、「補助２」のデータが入るみたいなので、
1行目〜14行目まで、「行のタイトルに」設定してしまえばいいですね！
ところで、itoさんのコードを拝見してて、気になったことが・・・
「With」の使い方ですが
With Worksheets("補助2") '受注台帳から抽出したＡ社の受注件数リスト
IngRow2 = Sheets("補助2").Range("A1").End(xlDown).Row
End With
ですと、Withの意味がないように思います。
With Worksheets("補助2")
IngRow2 = .Range("A1").End(xlDown).Row
End With
これでええんちゃうかな？
同じように、
With Worksheets("請求書")〜End Withで囲んでしまうなら、
Sheets("請求書").Cells(3, 2).Value = Sheets("補助6").Cells(j, 5).Value
部分の、「Sheets("請求書")」も必要ないですよね？
あと、まず、「補助６」のデータを１データ転記→「補助２」のデータをループで回して、全部転記→そこで、印刷。
そして、「補助６」のデータが複数あるなら、またループで戻り、２データ目にはいりますが、その時「補助２」のデータは、常に同じデータになりますよね？？
それでええんですか？
それから
Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 1).Value
Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 2).Value
は、書き間違いかな・・と思うけど、Cells(i + 13, 1）のデータが上書きされちゃいますね。
もひとつ、「補助６」のＡ列には例えば通しナンバーなどが入ってるんですよね？
もし、空白なら、Ａ列で最終行を取得してるので、データなしになっちゃいます。
私なりに質問を読んで、疑問に思ったことを書きましたが、私の思い違いだったらごめんなさい。（あまり読解力がないので＾＾；；；）
|
|
つん
- 09/3/5(木) 17:10 -
