Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
726 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78704】セルに入力されたら印刷 北風 16/12/21(水) 8:59 発言[未読]
【78705】Re:セルに入力されたら印刷 β 16/12/21(水) 10:30 発言[未読]
【78708】Re:セルに入力されたら印刷 北風 16/12/21(水) 12:25 質問[未読]
【78709】Re:セルに入力されたら印刷 β 16/12/21(水) 13:01 発言[未読]
【78716】Re:セルに入力されたら印刷 北風 16/12/21(水) 17:58 お礼[未読]
【78717】Re:セルに入力されたら印刷 γ 16/12/22(木) 0:51 発言[未読]
【78704】セルに入力されたら印刷
発言  北風  - 16/12/21(水) 8:59 -
引用なし
パスワード
   Q31セルに数字が入力されたら印刷を実行する方法を教えてくれますか
【78705】Re:セルに入力されたら印刷
発言  β  - 16/12/21(水) 10:30 -
引用なし
パスワード
   ▼北風 さん：
>Q31セルに数字が入力されたら印刷を実行する方法を教えてくれますか

Ｑ３１に数字が入るたびに印刷されるということが、いいのかわるいのか？

そのシートのシートタブを右クリックしてコードの表示を選びます。
でてきたところに以下を貼り付け、画面左上のＸボタンをクリックして
シートに戻ります。

これで、Q31に何か数字を入れてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Intersect(Target, Range("Q31")) Is Nothing Then Exit Sub
　　If IsNumeric(Range("Q31").Value) Then
　　　　Me.PrintOut
　　End If
End Sub
【78708】Re:セルに入力されたら印刷
質問  北風  - 16/12/21(水) 12:25 -
引用なし
パスワード
   ▼β さん：
>▼北風 さん：
>>Q31セルに数字が入力されたら印刷を実行する方法を教えてくれますか
>
>Ｑ３１に数字が入るたびに印刷されるということが、いいのかわるいのか？
>
>そのシートのシートタブを右クリックしてコードの表示を選びます。
>でてきたところに以下を貼り付け、画面左上のＸボタンをクリックして
>シートに戻ります。
>
>これで、Q31に何か数字を入れてみてください。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>　　If Intersect(Target, Range("Q31")) Is Nothing Then Exit Sub
>　　If IsNumeric(Range("Q31").Value) Then
>　　　　Me.PrintOut
>　　End If
>End Sub

Private Sub Worksheet_Change(ByVal Target As Range)を２つ利用しているためエラーになります回避方法ありますか。
【78709】Re:セルに入力されたら印刷
発言  β  - 16/12/21(水) 13:01 -
引用なし
パスワード
   ▼北風 さん：

１つのモジュールに同じ名前のプロシジャを書くことはできません。
現在のものと、アップしたものが共存できるように組み立てることが必要です。
現在のものを、そのまま、コピペでアップしてください。
【78716】Re:セルに入力されたら印刷
お礼  北風  - 16/12/21(水) 17:58 -
引用なし
パスワード
   ▼β さん：
>▼北風 さん：
>
>１つのモジュールに同じ名前のプロシジャを書くことはできません。
>現在のものと、アップしたものが共存できるように組み立てることが必要です。
>現在のものを、そのまま、コピペでアップしてください。

β さん：
有難うございます。
頑張ってやってみます
【78717】Re:セルに入力されたら印刷
発言  γ  - 16/12/22(木) 0:51 -
引用なし
パスワード
   >Private Sub Worksheet_Change(ByVal Target As Range)を２つ利用しているため
>エラーになります回避方法ありますか。

同じ質問を何度もしないようにしてください。

ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=78439;id=excel
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=78472;id=excel
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
726 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free