No.1ベストアンサー
- 回答日時:
こんばんは!
具体的に表の配置がどのようになっているのか判らないので、参考程度で・・・
入力SheetのE列が「残業理由のセル」だとします。
そして印刷するSheet名は「残業申請書」となっているとしての一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target.Column = 5 And Selection.Count = 1 Then
Dim ws As Worksheet
Set ws = Worksheets("残業申請書") '←Sheet名は適宜変更
If MsgBox("残業申請書を印刷しますか?", vbYesNo) = vbYes Then
ws.PrintOut
Else
Exit Sub
End If
End If
End Sub 'この行まで
コード内の
>If Target.Column = 5
部分がE列になりますので、実際の配置に基づいて適宜列番号は調整してみてください。
以上、参考になれば良いのですが・・・m(_ _)m
この回答への補足
Target.Column = 5をTarget.Column = 27
を変えただけですが、うまくいきません。
どこが悪いのかわからりません。
うまくいけば、入力しただけでメッセージが出るんですか?
No.4
- 回答日時:
No.1です。
>Target.Column = 5をTarget.Column = 27
>を変えただけですが、うまくいきません。
とありますが、
Target.Column = 27 → 27列ですので「AA列」となります。
「残業理由のセル」がAA列であればちゃんとマクロは動くはずです。
今一度「残業理由のセル」の列番号を確認してみてください。
それと一つ気になるのが、「残業理由のセル」がAA列で間違いないのであれば
「27」が全角になっていますが、半角(IMEは「OFF」)で入力してみてください。
今度はうまく動けばよいのですが・・・m(__)m
No.2
- 回答日時:
「残業理由のセル」じゃマクロは書けませんので,仮にこれが「G2:G32」だとすると。
手順:
時間等を入力するシートでシート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける
private sub worksheet_change(byval Target as excel.range)
dim h as range
set h = application.intersect(target, range("G2:G32"))
if h is nothing then exit sub
if h.cells(1) = "" then exit sub
if msgbox("残業申請書印刷しますか?", vbokcancel) <> vbok then exit sub
worksheets("残業申請書").printout
end sub
ファイルメニューから終了してエクセルに戻る
タイムカードを記入する。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
色々見ましたがよくわかりませ...
-
通勤時間が1時間半は長いでしょ...
-
隔週土曜出勤について
-
他の曜日と比べて、水曜日が一...
-
退勤時間が過ぎても上司が会議...
-
Googleマップの口コミ
-
物流業界の2024年問題について ...
-
ヤマト運輸や福山運輸の バイト...
-
残業について 10月に配属された...
-
大企業は中小企業に比べて、給...
-
人工代についての質問
-
面接で残業や夜勤はできますか...
-
郵便局ってこんなに残業あるの?
-
残業を前提とした業務アサイン...
-
副店長になりたくない!上手く...
-
給与明細について 正規社員のサ...
-
給与明細、残業項目について
-
バイトの残業を断る時の理由
-
【ヤマト運輸の残業代払いの計...
-
「きみ、残業できる?」企業3割...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
通勤時間が1時間半は長いでしょ...
-
色々見ましたがよくわかりませ...
-
郵便局ってこんなに残業あるの?
-
隔週土曜出勤について
-
履歴書の希望欄に書いても良い...
-
物流業界の2024年問題について ...
-
退勤時間が過ぎても上司が会議...
-
求人で勤務時間が朝9時から夜19...
-
3ヶ月間休み週休2有るけど月65...
-
残業について 10月に配属された...
-
就活に失敗したかもしれません...
-
ブラック企業か否か
-
皆さんは年間休日109日、土日休...
-
技術系公務員って民間企業より...
-
ツルハドラッグでアルバイトを...
-
人工代についての質問
-
他の曜日と比べて、水曜日が一...
-
固定残業代が30時間分、給料に...
-
郵便局の長期バイトについてで...
-
求人票について
おすすめ情報