Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9266 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
　　　＊＊処理１＊＊
　Else If WIN01 = PDF_form Then
　　　＊＊処理２＊＊
　Else
　　　＊＊処理３＊＊
　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はユーザーフォームでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9266 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free