エクセルＶＢＡ初心者です

質問

エクセルＶＢＡを使った印刷マクロを組みたいと思います。
印刷ボタンを押すと、印刷範囲を指定させるダイアログが表示され、範囲をドラッグ（指定）後、プレビュー画面が開くようにしたいのです。
範囲指定するフォーム（名前忘れました）を使いたいのですが、どうすればいいかわかりません。
どなたか詳しい方、教えていただけませんか？

もうひとつ、エクセルでつくった出納帳で、
月、日、品名、数量、単価、金額、支払額、差引残額、備考、という表があります。
業者の納品書を見て入力するのですが、消費税の計算が違う場合が多く、毎回検算をしています。
品名の列に「消費税」と入力すれば、金額の列に自動的に「税額」を表示させるにはどうしたらいいですか。
納品書によって、品名数が違うため簡単な数式ではいかず、頭をかかえています。

　　　　　　　品名　　　数　　単価　　　　金額
　２月３日　　いす　　　１　３０００　　３０００
　　　　　　　つくえ　　２　５０００　１００００
　　　　　　　消費税　　　　　　　　　　　６５０　←
　２月５日　　たまご　　１　　１００　　　１００
　　　　　　　肉　　　　２　　３００　　　６００
　　　　　　　さかな　　２　　３００　　　６００
　　　　　　　消費税　　　　　　　　　　　　６５　←

簡単にいえば、こういう表です。上の６５０や６５を自動計算するよい方法を教えていただけませんか？

回答No.1

imogasi · ベストアンサー

後半の回答
（Ａ）　（Ｂ）　　（Ｃ）　
2月3日 a 2000
b 3000
s 250
2月4日 a 300
d 200
s 25
2月5日 a 1000
s 50
のように入力します。
Ｂ列は品名とｓ（消費税を示す符牒とする。消費税と入れるのは面倒くさいからｓで略す。どんな文字語句なんでもよいわけです。）を入れる列、Ｃ列には金額を入れる。
ｓをＢ列に入力すると自動的に、前の行（＝上の行）のｓが現われる行（上例では第３行目まで）の次行（４行目）までの金額の和（すなわち第４行と第５行金額）の５％をｓの列の隣列にセットします。
ワークシートのＣｈａｎｇｅイベントプロシジュアーとして、下記をコピーし貼りつけてください。
入力作業がおわってから、Ｂ列だけｓを「消費税」に「置換」操作をされるのが良いと思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = "s" Then
st = 0
' MsgBox Target.Row
For i = Target.Row - 1 To 1 Step -1
If Cells(i, 2) = "s" Then Exit For
st = st + Cells(i, 3)
Next i
' MsgBox st
Cells(Target.Row, 2 + 1) = Int(st * 0.05)
End If
End If
End Sub
少数例でテスト済み。

お礼

早速のお答えありがとうございました。なんとなく思い描いていた方法にピタリと一致していて、それをＶＢＡで記述することができず悩んでいたのです。まだまだ私には高度過ぎるテクニックですが、とても勉強になり、とても役立ちそうです。ありがとうございました。

回答No.3

imogasi

＃１のものです。前半の質問について。
印刷用にコマンドボタンを１つ貼りつける。
Ｃｌｉｃｋイベントに
Private Sub CommandButton1_Click()
PrintPreview
End Sub
ボタンをクリックすると、プレビュー画面になるから、「改ページプレビュー」をクリックして、印刷範囲指定するではダメでしょうか。

お礼

何度もお答えいただき、ありがとうございます。考えていたものは、「印刷ボタンを押す」→「”印刷範囲を指定してください”」というダイアログでる」→「印刷範囲をドラッグする」→「印刷プレビュー画面がでる」というものです。RefEditコントロールを使ってやればいいような気がするのですが、なんせ初心者なもので、何をどう記述すればいいのかわからないでいるのです。もう少し自力で頑張ってみて、まだムリなようならまた改めて質問させていただこうと思います。ありがとうございました。

回答No.2

ryuu001

>エクセルＶＢＡを使った印刷マクロを組みたいと思います。
>印刷ボタンを押すと、印刷範囲を指定させるダイアログが表示され、
>範囲をドラッグ（指定）後、プレビュー画面が開くようにしたいのです。

マクロは必要ありません。
一般機能にあります。

印刷範囲を選択します　→　ファイル　→　印刷　→　
印刷対応を「選択した部分」にチェック　→　印刷プレビュー

お礼

それは、わかるんです。ＶＢＡを使いたいんです。