Excel VBA質問箱 IV

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

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


41119 / 76732 ←次へ | 前へ→

【40695】Re:Formが開いている間に別のシートが選択さ...
回答  Kein  - 06/7/20(木) 15:36 -

引用なし
パスワード
   >この Form には実行ボタンを貼り付けてあり、実行ボタンを押すと、
>アクティブシートのデータを元にプログラムが実行されます。
>しかし、Form 起動時のアクティブシートに必ずしもプログラムを実行させたい
>データが存在するとも限らないので
ならば実行ボタンを押した直後に、実行ボタンのマクロで全シートをループして
>プログラムを実行させたいデータ
が存在しているシートを Findメソッド 等で検索し、変数に入れる(例↓

Dim WS As Worksheet, Sh As Worksheet
Dim FR As Range

For Each WS In Worksheets
  Set FR = WS.Cells.Find("XYZ", , xlValues)
  If Not FR Is Nothing Then
   Set Sh = WS: Set FR = Nothing: Exit For
  End If
Next
If Sh Is Nothing Then
  MsgBox "処理対象のシートが見つかりません", 48
  Exit Sub
End If

というコードにすれば良いと思います。なお、シートを変数に入れるのは、
いちいちアクティブにしなくても処理が出来るからです。

0 hits

【40686】Formが開いている間に別のシートが選択さ... リョウタ 06/7/20(木) 13:58 質問
【40691】Re:Formが開いている間に別のシートが選択... ハト 06/7/20(木) 14:42 回答
【40693】Re:Formが開いている間に別のシートが選... リョウタ 06/7/20(木) 15:29 質問
【40701】Re:Formが開いている間に別のシートが選... ハト 06/7/20(木) 16:48 回答
【40729】Re:Formが開いている間に別のシートが選... リョウタ 06/7/21(金) 16:08 お礼
【40695】Re:Formが開いている間に別のシートが選択... Kein 06/7/20(木) 15:36 回答
【40696】Re:Formが開いている間に別のシートが選... リョウタ 06/7/20(木) 16:06 回答
【40698】Re:Formが開いている間に別のシートが選... Kein 06/7/20(木) 16:34 発言
【40730】Re:Formが開いている間に別のシートが選... リョウタ 06/7/21(金) 16:19 お礼

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