- ベストアンサー
エクセルVBA初心者のための印刷マクロと消費税計算についての質問
- エクセルVBA初心者が印刷マクロを作成したいです。印刷ボタンを押すと、印刷範囲を指定させるダイアログが表示され、プレビュー画面が開きます。
- エクセルの出納帳で品名に「消費税」と入力すると、金額の列に自動的に「税額」を表示させる方法を知りたいです。納品書によって品名数が異なるため、簡単な数式では対応できません。
- エクセルVBAの初心者ですが、印刷マクロと消費税計算に関してアドバイスをいただきたいです。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
後半の回答 （Ａ） （Ｂ） （Ｃ） 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 少数例でテスト済み。
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17070)
＃１のものです。前半の質問について。 印刷用にコマンドボタンを１つ貼りつける。 Ｃｌｉｃｋイベントに Private Sub CommandButton1_Click() PrintPreview End Sub ボタンをクリックすると、プレビュー画面になるから、「改ページプレビュー」をクリックして、印刷範囲指定するではダメでしょうか。
お礼
何度もお答えいただき、ありがとうございます。考えていたものは、「印刷ボタンを押す」→「”印刷範囲を指定してください”」というダイアログでる」→「印刷範囲をドラッグする」→「印刷プレビュー画面がでる」というものです。RefEditコントロールを使ってやればいいような気がするのですが、なんせ初心者なもので、何をどう記述すればいいのかわからないでいるのです。もう少し自力で頑張ってみて、まだムリなようならまた改めて質問させていただこうと思います。ありがとうございました。
- ryuu001
- ベストアンサー率61% (46/75)
>エクセルＶＢＡを使った印刷マクロを組みたいと思います。 >印刷ボタンを押すと、印刷範囲を指定させるダイアログが表示され、 >範囲をドラッグ（指定）後、プレビュー画面が開くようにしたいのです。 マクロは必要ありません。 一般機能にあります。 印刷範囲を選択します → ファイル → 印刷 → 印刷対応を「選択した部分」にチェック → 印刷プレビュー
お礼
それは、わかるんです。ＶＢＡを使いたいんです。
お礼
早速のお答えありがとうございました。なんとなく思い描いていた方法にピタリと一致していて、それをＶＢＡで記述することができず悩んでいたのです。まだまだ私には高度過ぎるテクニックですが、とても勉強になり、とても役立ちそうです。ありがとうございました。