Excel VBA質問箱 IV

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

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


10805 / 13644 ツリー ←次へ | 前へ→

【19814】If構文で・・・ きく(初心者) 04/11/17(水) 15:30 質問[未読]
【19816】Re:If構文で・・・ Asaki 04/11/17(水) 15:50 回答[未読]
【19817】Re:If構文で・・・ つん 04/11/17(水) 15:55 回答[未読]
【19823】Re:If構文で・・・ きく(初心者) 04/11/17(水) 16:21 お礼[未読]
【19824】Re:If構文で・・・ きく(初心者) 04/11/17(水) 16:26 お礼[未読]

【19814】If構文で・・・
質問  きく(初心者)  - 04/11/17(水) 15:30 -

引用なし
パスワード
   If Cells(6, 2) <> "" Then
   Sheets("看護・准看護用").Select
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

のようにマクロを組んでいて、Cells(6, 2)に看護または准看と入力された場合にSheets("看護・准看護用")でPrintOutされるようにしたいのですが、どのようにすればよいのでしょうか?

【19816】Re:If構文で・・・
回答  Asaki  - 04/11/17(水) 15:50 -

引用なし
パスワード
   こんにちは。

If Cells(6, 2).Value = "看護" or Cells(6, 2).Value = "准看" Then
でどうでしょうか。
プロパティは省略しないことをお勧めします。

【19817】Re:If構文で・・・
回答  つん E-MAIL  - 04/11/17(水) 15:55 -

引用なし
パスワード
   こんにちは。

Asaki さん、こんにちは^^
横から失礼ます。

>If Cells(6, 2).Value = "看護" or Cells(6, 2).Value = "准看" Then
>でどうでしょうか。
>プロパティは省略しないことをお勧めします。

あと、印刷する対象のシートはSelectしておかなくてもOKだと思います。

 Sheets("看護・准看護用").PrintOut

こんな感じで、直指定で・・・

【19823】Re:If構文で・・・
お礼  きく(初心者)  - 04/11/17(水) 16:21 -

引用なし
パスワード
   大変ありがとうございます。
とてもうまくいき助かりました(^^)
またの機会に宜しくお願いいたします。

【19824】Re:If構文で・・・
お礼  きく(初心者)  - 04/11/17(水) 16:26 -

引用なし
パスワード
   >▼Asaki さん:

大変ありがとうございます。
とてもうまくいき助かりました(^^)
またの機会に宜しくお願いいたします。

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