Excel VBA質問箱 IV

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

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


9257 / 13646 ツリー ←次へ | 前へ→

【28397】Setしたものを条件式に使いたい わさび 05/9/5(月) 15:27 質問[未読]
【28398】Re:Setしたものを条件式に使いたい Statis 05/9/5(月) 16:01 回答[未読]
【28399】Re:Setしたものを条件式に使いたい わさび 05/9/5(月) 16:05 お礼[未読]

【28397】Setしたものを条件式に使いたい
質問  わさび  - 05/9/5(月) 15:27 -

引用なし
パスワード
   かなり頭が混乱しているので、見当違いな質問でしたらすみません。

今、「Public WIN01 As Object」として、
「Set WIN01 = MAIN_01」や「Set WIN01 = PDF_form」を格納しています。
このWIN01に格納されたものによってそれぞれ処理を行いたいのですが、
イメージとしては以下のように、
-----
 If WIN01 = MAIN_01 Then
   **処理1**
 Else If WIN01 = PDF_form Then
   **処理2**
 Else
   **処理3**
 End If
-----
としたいのですが、「WIN01 = MAIN_01」といった表記は違いますよね。
オブジェクトの場合は、どのように表記したらよいのでしょうか。
どうかご教授のほどよろしくお願い致します。

【28398】Re:Setしたものを条件式に使いたい
回答  Statis  - 05/9/5(月) 16:01 -

引用なし
パスワード
   こんにちは
>「Set WIN01 = MAIN_01」や「Set WIN01 = PDF_form」を格納しています

どのような条件で格納する値が違うのでしょうか?
その条件のところで処理区分のフラグを立てておけば良いのでは?

例: セルA1の値が1か2の場合

Dim C As Range, Ch As Long

Select Case Range("A1").Value
  Case 1
   Ch = 1
   Set C = Range("B1")
  Csae 2
   Ch = 2
   Set C = Range("B2")
CsaeElse:  Exit Sub
End Select

If Ch = 1 Then
  処理1
Else
  処理2
End If

【28399】Re:Setしたものを条件式に使いたい
お礼  わさび  - 05/9/5(月) 16:05 -

引用なし
パスワード
   >その条件のところで処理区分のフラグを立てておけば良いのでは?

あ、そうか!そうですよね!
そんな単純なことで解決するんですよね!
混乱していた頭が一気に開放されました。
ありがとうございました!

ちなみに書き忘れてしまいましたが、WIN01はユーザーフォームでした。

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