Excel VBA質問箱 IV

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

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


54 / 12975 ツリー ←次へ | 前へ→

【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に数字が入るたびに印刷されるということが、いいのかわるいのか?

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

これで、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に数字が入るたびに印刷されるということが、いいのかわるいのか?
>
>そのシートのシートタブを右クリックしてコードの表示を選びます。
>でてきたところに以下を貼り付け、画面左上のXボタンをクリックして
>シートに戻ります。
>
>これで、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)を2つ利用しているためエラーになります回避方法ありますか。

【78709】Re:セルに入力されたら印刷
発言  β  - 16/12/21(水) 13:01 -

引用なし
パスワード
   ▼北風 さん:

1つのモジュールに同じ名前のプロシジャを書くことはできません。
現在のものと、アップしたものが共存できるように組み立てることが必要です。
現在のものを、そのまま、コピペでアップしてください。

【78716】Re:セルに入力されたら印刷
お礼  北風  - 16/12/21(水) 17:58 -

引用なし
パスワード
   ▼β さん:
>▼北風 さん:
>
>1つのモジュールに同じ名前のプロシジャを書くことはできません。
>現在のものと、アップしたものが共存できるように組み立てることが必要です。
>現在のものを、そのまま、コピペでアップしてください。

β さん:
有難うございます。
頑張ってやってみます

【78717】Re:セルに入力されたら印刷
発言  γ  - 16/12/22(木) 0:51 -

引用なし
パスワード
   >Private Sub Worksheet_Change(ByVal Target As Range)を2つ利用しているため
>エラーになります回避方法ありますか。

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

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

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