Excel VBA質問箱 IV

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

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


9393 / 13646 ツリー ←次へ | 前へ→

【27629】印刷にて あき 05/8/14(日) 11:03 質問[未読]
【27630】Re:印刷にて かみちゃん 05/8/14(日) 11:08 発言[未読]
【27631】Re:印刷にて かみちゃん 05/8/14(日) 11:13 回答[未読]
【27632】Re:印刷にて あき 05/8/14(日) 11:24 質問[未読]
【27634】Re:印刷にて かみちゃん 05/8/14(日) 11:50 回答[未読]
【27635】Re:印刷にて あき 05/8/14(日) 12:05 質問[未読]
【27636】Re:印刷にて あき 05/8/14(日) 12:06 発言[未読]
【27638】Re:印刷にて かみちゃん 05/8/14(日) 12:17 回答[未読]
【27639】Re:印刷にて あき 05/8/14(日) 12:40 お礼[未読]

【27629】印刷にて
質問  あき  - 05/8/14(日) 11:03 -

引用なし
パスワード
   印刷ボタンを作り、
ボタンを押すと入力ボックスが立ち上がり、
「ページ枚数を入力して下さい」
となり、そこに入力したページ数を印刷したいのです。

自分ではわからず・・・
pwのボックスを変形して作ってみたけど、
全然上手くいきませんでした。

よろしくお願いいたします。

【27630】Re:印刷にて
発言  かみちゃん  - 05/8/14(日) 11:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ボタンを押すと入力ボックスが立ち上がり、
>「ページ枚数を入力して下さい」
>となり、そこに入力したページ数を印刷したいのです。

何ページということですか?
それとも、部数のことですか?

【27631】Re:印刷にて
回答  かみちゃん  - 05/8/14(日) 11:13 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>ボタンを押すと入力ボックスが立ち上がり、
>>「ページ枚数を入力して下さい」
>>となり、そこに入力したページ数を印刷したいのです。
>
>何ページということですか?

ページを指定して印刷したいというのであれば、
http://park11.wakwak.com/~miko/Excel_Note/09-01_insatu.htm#09-01-19
入力ボックスは、InputBoxを使えばいいことはわかりますか?

>それとも、部数のことですか?

印刷部数(枚数)であれば、「マクロの記録」で記録すればできます。

【27632】Re:印刷にて
質問  あき  - 05/8/14(日) 11:24 -

引用なし
パスワード
   >>何ページということですか?
何ページという事です。
任意に今日は4ページまで、今日は3ページまでと、
印刷するときによって、ページを変えたいのです。

>
>ページを指定して印刷したいというのであれば、
>http://park11.wakwak.com/~miko/Excel_Note/09-01_insatu.htm#09-01-19
ここまではわかりました。

>入力ボックスは、InputBoxを使えばいいことはわかりますか?
この入力ボックスの組みかたがわかりません。

>>それとも、部数のことですか?
部数は毎回1枚ずつです。

よろしくお願いします。

【27634】Re:印刷にて
回答  かみちゃん  - 05/8/14(日) 11:50 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>>何ページということですか?
>何ページという事です。
>任意に今日は4ページまで、今日は3ページまでと、
>印刷するときによって、ページを変えたいのです。

印刷開始ページは、必ず1ページからとするのであれば、以下のような感じになります。
ポイントは、InputBoxなのですが、いろいろエラー処理を入れてみたので、ちょっと長くなりました。

Option Explicit
Sub Macro1()
 Dim TotalPage As Integer
 Dim ToPage As String
 
 'アクティブシートの総ページ数を取得
 TotalPage = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
 '印刷終了ページの指定(エラー処理あり)
 Do
  ToPage = InputBox("終了ページは?", , TotalPage)
  '何も入力しなかった場合、または、キャンセルを押した場合は、処理終了
  If ToPage = "" Then Exit Sub
  If IsNumeric(ToPage) Then
   '終了ページは、1以上の整数(小数点は不可)
   If Val(ToPage) >= 1 And Val(ToPage) - Int(Val(ToPage)) = 0 Then
    Exit Do
   Else
    MsgBox "終了ページは、1以上の整数を入力してください。"
   End If
  Else
   MsgBox "数字で入力してください。"
  End If
 Loop
 '確認メッセージ
 MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
 '印刷実行
 ActiveSheet.PrintOut From:=1, To:=Val(ToPage)
End Sub

【27635】Re:印刷にて
質問  あき  - 05/8/14(日) 12:05 -

引用なし
パスワード
   こんにちは。

>印刷開始ページは、必ず1ページからとするのであれば、以下のような感じになります。
1ページです。説明不足ですいません。

>Option Explicit
>Sub Macro1()
> Dim TotalPage As Integer
> Dim ToPage As String
> 
> 'アクティブシートの総ページ数を取得
> TotalPage = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
> '印刷終了ページの指定(エラー処理あり)
> Do
>  ToPage = InputBox("終了ページは?", , TotalPage)
>  '何も入力しなかった場合、または、キャンセルを押した場合は、処理終了
>  If ToPage = "" Then Exit Sub
>  If IsNumeric(ToPage) Then
>   '終了ページは、1以上の整数(小数点は不可)
>   If Val(ToPage) >= 1 And Val(ToPage) - Int(Val(ToPage)) = 0 Then
>    Exit Do
>   Else
>    MsgBox "終了ページは、1以上の整数を入力してください。"
>   End If
>  Else
>   MsgBox "数字で入力してください。"
>  End If
> Loop
> '確認メッセージ
> MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
> '印刷実行
> ActiveSheet.PrintOut From:=1, To:=Val(ToPage)
>End Sub
とてもうまくいきました。
自分ではこんなマクロくれません。
度々ありがとうございます。

あとひとつお願いがあるのですが・・・
> '確認メッセージ
> MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
> '印刷実行
ココの部分のメッセージボックスで、OKとキャンセルを指定出来るようになりますか?

よろしくお願いいたします。

【27636】Re:印刷にて
発言  あき  - 05/8/14(日) 12:06 -

引用なし
パスワード
   ▼あき さん:
>こんにちは。
>
>>印刷開始ページは、必ず1ページからとするのであれば、以下のような感じになります。
>1ページです。説明不足ですいません。
すいません。
開始ページは1ページからです。

【27638】Re:印刷にて
回答  かみちゃん  - 05/8/14(日) 12:17 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>> '確認メッセージ
>> MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
>> '印刷実行
>ココの部分のメッセージボックスで、OKとキャンセルを指定出来るようになりますか?

MsgBox関数のヘルプ情報の buttons 引数を調べてください。
 Response = MsgBox("〜〜します",vbOKCancel)
 If Response = vbOK Then
  '〜OKボタンを押したときの処理〜
 End If

【27639】Re:印刷にて
お礼  あき  - 05/8/14(日) 12:40 -

引用なし
パスワード
   ありがとうございました。

なんとかマクロ組むことが出来ました(^^)
またの機会によろしくお願いいたします。

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