Excel VBA質問箱 IV

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

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


21499 / 76732 ←次へ | 前へ→

【60630】Re:請求書の連続印刷について
発言  つん  - 09/3/5(木) 17:10 -

引用なし
パスワード
   こんにちは^^ 横から失礼します。

>住所・社名を「行のタイトル」として設定はできないのでしょうか?
>できるのであれば、設定してしまえば今のままで実現できるかと思います。
あ〜これがOKなら、15行目から、「補助2」のデータが入るみたいなので、
1行目〜14行目まで、「行のタイトルに」設定してしまえばいいですね!


ところで、itoさんのコードを拝見してて、気になったことが・・・


「With」の使い方ですが

   With Worksheets("補助2") '受注台帳から抽出したA社の受注件数リスト
     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("請求書")」も必要ないですよね?


あと、まず、「補助6」のデータを1データ転記→「補助2」のデータをループで回して、全部転記→そこで、印刷。
そして、「補助6」のデータが複数あるなら、またループで戻り、2データ目にはいりますが、その時「補助2」のデータは、常に同じデータになりますよね??
それでええんですか?

それから

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)のデータが上書きされちゃいますね。

もひとつ、「補助6」のA列には例えば通しナンバーなどが入ってるんですよね?
もし、空白なら、A列で最終行を取得してるので、データなしになっちゃいます。

私なりに質問を読んで、疑問に思ったことを書きましたが、私の思い違いだったらごめんなさい。(あまり読解力がないので^^;;;)
2 hits

【60611】請求書の連続印刷について ito 09/3/5(木) 9:31 質問
【60624】Re:請求書の連続印刷について トト 09/3/5(木) 16:13 発言
【60630】Re:請求書の連続印刷について つん 09/3/5(木) 17:10 発言
【60659】Re:請求書の連続印刷について ito 09/3/6(金) 22:23 お礼
【60661】Re:請求書の連続印刷について ito 09/3/6(金) 22:41 お礼
【60662】Re:請求書の連続印刷について つん 09/3/6(金) 23:11 発言
【60679】Re:請求書の連続印刷について ito 09/3/7(土) 21:10 発言
【60680】Re:請求書の連続印刷について つん 09/3/7(土) 22:30 発言
【60850】Re:請求書の連続印刷について ito 09/3/18(水) 9:57 お礼

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