Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4029 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58673】用紙出力について教えてください。 ねも 08/11/4(火) 15:05 質問[未読]
【58676】Re:用紙出力について教えてください。 ponpon 08/11/4(火) 15:24 発言[未読]
【58694】Re:用紙出力について教えてください。 ねも 08/11/5(水) 9:55 質問[未読]
【58696】Re:用紙出力について教えてください。 高野山銀波荘 08/11/5(水) 10:27 発言[未読]
【58711】Re:用紙出力について教えてください。 ponpon 08/11/5(水) 18:25 発言[未読]
【58732】Re:用紙出力について教えてください。 ねも 08/11/6(木) 8:48 質問[未読]
【58748】Re:用紙出力について教えてください。 ponpon 08/11/6(木) 16:12 発言[未読]
【58780】Re:用紙出力について教えてください。 ねも 08/11/10(月) 10:13 お礼[未読]
【58673】用紙出力について教えてください。
質問  ねも  - 08/11/4(火) 15:05 -
引用なし
パスワード
   印刷範囲設定ではなく、文字が入力されているところまで印刷するにどうすればいいですか？
　　Ａ　 Ｂ　 Ｃ
1　 AA　AAA　AAAA
2　 BB　BBB　BBBB
3　 CC　CCC　CCCC
4　 DD　DDD　DDDD
5
6
.
.
.
.
上記の場合Ａ１：Ｃ４まで範囲指定すればいいのですが
Ａ５に入力された場合はＡ1：Ｃ５まで範囲指定します。
この場合Ａ１がスペースでないか判断してＬｏｏｐで処理して文字列を設定しなければいけないのでしょうか？
簡単な処理があれば教えてください。
よろしく御願いします。
【58676】Re:用紙出力について教えてください。
発言  ponpon  - 08/11/4(火) 15:24 -
引用なし
パスワード
   ▼ねも さん：
>印刷範囲設定ではなく、文字が入力されているところまで印刷するにどうすればいいですか？
>　　Ａ　 Ｂ　 Ｃ
>1　 AA　AAA　AAAA
>2　 BB　BBB　BBBB
>3　 CC　CCC　CCCC
>4　 DD　DDD　DDDD
>5
>6
>.
>.
>.
>.
>上記の場合Ａ１：Ｃ４まで範囲指定すればいいのですが
>Ａ５に入力された場合はＡ1：Ｃ５まで範囲指定します。
>この場合Ａ１がスペースでないか判断してＬｏｏｐで処理して文字列を設定しなければいけないのでしょうか？
>簡単な処理があれば教えてください。
>よろしく御願いします。

Ａ１がスペースでないか判断して

　Range("A1").CurrentRegion
　か
　Sheets("Sheet1").UsedRange
　を調べてみるといいかも。
【58694】Re:用紙出力について教えてください。
質問  ねも  - 08/11/5(水) 9:55 -
引用なし
パスワード
   ▼ponpon さん：
ありがとうございます。

やりたいことがうまく伝わっていなくてすいません。
マクロで記録すると下記の記述になります。

Range("A1:I113").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$113"
ActiveWindow.SelectedSheets.PrinOut Copies:=1 Collate:=True

でもやりたいことは
見出しがA1:I13の範囲であり
データはA14から入力されています。
Aのセルにデータが入力している範囲だけ印刷をかけるにはどうすればいいのでしょうか？
よろしく御願いします。
【58696】Re:用紙出力について教えてください。
発言  高野山銀波荘  - 08/11/5(水) 10:27 -
引用なし
パスワード
   　　Range(Cells(14, 1), Cells(14, 1).End(xlDown)).Select
　　ActiveSheet.PageSetup.PrintArea = Selection.Address

では？
【58711】Re:用紙出力について教えてください。
発言  ponpon  - 08/11/5(水) 18:25 -
引用なし
パスワード
   ▼ねも さん：

>マクロで記録すると下記の記述になります。
>
>Range("A1:I113").Select
>ActiveSheet.PageSetup.PrintArea = "$A$1:$I$113"
>ActiveWindow.SelectedSheets.PrinOut Copies:=1 Collate:=True


>でもやりたいことは
>見出しがA1:I13の範囲であり
>データはA14から入力されています。
>Aのセルにデータが入力している範囲だけ印刷をかけるにはどうすればいいのでしょうか？

まだよくわかりませんが、
つまり、1行目から13行までは印刷せずに、
A列の14行からA列のデータがあるまでをI列まで広げて印刷したい
ということでしょうか？
【58732】Re:用紙出力について教えてください。
質問  ねも  - 08/11/6(木) 8:48 -
引用なし
パスワード
   ▼ponpon さん：
ありがとうございます。
1行目から13行までは見出し部分で印刷します。
A列の14行からA列のデータがあるまでをI列まで広げて印刷したいのです。
よろしく御願いします。
【58748】Re:用紙出力について教えてください。
発言  ponpon  - 08/11/6(木) 16:12 -
引用なし
パスワード
   ▼ねも さん：
>1行目から13行までは見出し部分で印刷します。

印刷するんですよね？！

>A列の14行からA列のデータがあるまでをI列まで広げて印刷したいのです。

こちらも印刷するんですよね？！

なら、A1からA列のデータのある範囲をI列まで広げた範囲ですか？？

下のマクロでちょっと確認してみてください。
当たっているのがあるかな？

Sub test()

　'A1からA列のデータのあるまでをI列まで広げた範囲
　Range(Range("A1"), Range("A65536").End(xlUp)).Resize(, 9).Select
　MsgBox Range(Range("A1"), Range("A65536").End(xlUp)).Resize(, 9).Address

　'A1からA13までをI列まで広げた範囲
　Range("A1").Resize(13, 9).Select
　MsgBox Range("A1").Resize(13, 9).Address
　
　'A14からA列のデータのある範囲をI列まで広げた範囲
　Range(Range("A14"), Range("A65536").End(xlUp)).Resize(, 9).Select
　MsgBox Range(Range("A14"), Range("A65536").End(xlUp)).Resize(, 9).Address
　
End Sub
【58780】Re:用紙出力について教えてください。
お礼  ねも  - 08/11/10(月) 10:13 -
引用なし
パスワード
   ▼ponpon さん：
ありがとうございます。
早速やってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4029 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free