Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10826 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：

大変ありがとうございます。
とてもうまくいき助かりました（＾＾）
またの機会に宜しくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10826 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free