Excel VBA質問箱 IV

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

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


34076 / 76732 ←次へ | 前へ→

【47871】Re:マクロを止めるボタンを作りたい
質問  ユニフ  - 07/3/24(土) 23:30 -

引用なし
パスワード
   ぱっせんじゃー さん レスありがとうございます。
さっそく試してみました。

TRUEやFalseで動作をコントロールできる場合
この方法でstopできるのはわかりました。
私ののマクロなのですが以下のようになってます。

  If Range("E2") = 1 Then
  Application.Run "テスト.xls!セレクト1"
  Range("B20:H37").PrintOut Copies:=1, Collate:=True
  End If
  
  If Range("E3") = 1 Then
  Application.Run "テスト.xls!セレクト2"
  Range("B20:H37").PrintOut Copies:=1, Collate:=True
  End If
  
  If Range("E4") = 1 Then
  Application.Run "テスト.xls!セレクト3"
  Range("B20:H37").PrintOut Copies:=1, Collate:=True
  End If
  
  If Range("E5") = 1 Then
  Application.Run "テスト.xls!セレクト4"
  Range("B20:H37").PrintOut Copies:=1, Collate:=True
  End If
  
  If Range("E6") = 1 Then
  Application.Run "テスト.xls!セレクト5"
  Range("B20:H37").PrintOut Copies:=1, Collate:=True
  End If
以下セレクト17まで続く。E列はB列のデーターの空白判定する関数が入れてあり
B列が空白(=0)の場合、結果的に印刷しないようにしてあります。

この記述だとパッセンジャーさんの方法だと
応用できないと思うのですがなにかうまい方法がありますでしょうか。
1 hits

【47864】マクロを止めるボタンを作りたい ユニフ 07/3/24(土) 19:13 質問
【47866】Re:マクロを止めるボタンを作りたい ぱっせんじゃー 07/3/24(土) 19:42 発言
【47871】Re:マクロを止めるボタンを作りたい ユニフ 07/3/24(土) 23:30 質問
【47898】Re:マクロを止めるボタンを作りたい ぱっせんじゃー 07/3/26(月) 9:23 発言
【47870】Re:マクロを止めるボタンを作りたい りん 07/3/24(土) 23:21 発言
【47883】Re:マクロを止めるボタンを作りたい ユニフ 07/3/25(日) 13:05 お礼

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