Ｐａｇｅ 711 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ブック間のフラグの ハタ 03/2/6(木) 17:16 ┗Re:ブック間のフラグの ichinose 03/2/7(金) 8:21 ┗Re:ブック間のフラグの ハタ 03/2/7(金) 9:53 ┗Re:ブック間のフラグの ichinose 03/2/7(金) 11:19 ┗Re:ブック間のフラグの ハタ 03/2/10(月) 9:46 ─────────────────────────────────────── ■題名 ： ブック間のフラグの ■名前 ： ハタ ■日付 ： 03/2/6(木) 17:16 -------------------------------------------------------------------------
| また、わからない点が出ましたので、皆さんお力をおかし下さい。 main.xlsに下記内容と、ユーザーフォームにコマンドボタンが３個あり、 ボタンを押すと、割り当てられているワークブックが処理（オープン→自動処理→ 自動終了）するようになっています。 main.xlsの標準モジュールの処理()ルーチンを、a.xls、b.xls、c.xlsに組み込み、 処理状態（0:未処理 1:実行中）が、main.xlsでわかるようにしたいのですが、 方法等がわからないので、教えてもらえないでしょうか。 宜しくお願いします。 '【main.xls】 '============================================ '標準モジュール（Module1） Sub 処理() 'インスタンスの生成 Dim cls1 As New Class1 'フラグ書き込みの設定（0:未処理 1:実行中） cls1.iflag = 1 '*** 処理 ***’ 'フラグ書き込みの設定（0:未処理 1:実行中） cls1.iflag = 0 End Sub '【main.xls】 '============================================ 'クラスモジュール（class1） Public doflag As Long Public Property Let iflag(ByVal p1 As Long) doflag = p1 End Property Public Property Get iflag() As Long iflag = doflag End Property '============================================ '【コマンドボタンに割り当ててあるブック名】 コマンドボタン１ … a.xls コマンドボタン２ … b.xls コマンドボタン３ … c.xls |
| ▼ハタ さん： おはようございます。 main.xlsをa.xls、b.xls、c.xlsのそれぞれで参照設定するようにしたらどうでしょうか？ >また、わからない点が出ましたので、皆さんお力をおかし下さい。 > > >main.xlsに下記内容と、ユーザーフォームにコマンドボタンが３個あり、 >ボタンを押すと、割り当てられているワークブックが処理（オープン→自動処理→ >自動終了）するようになっています。 > >main.xlsの標準モジュールの処理()ルーチンを、a.xls、b.xls、c.xlsに組み込み、 >処理状態（0:未処理 1:実行中）が、main.xlsでわかるようにしたいのですが、 >方法等がわからないので、教えてもらえないでしょうか。 > > >宜しくお願いします。 > > >'【main.xls】 >'============================================ >'標準モジュール（Module1） >Sub 処理() > 'インスタンスの生成 > Dim cls1 As New Class1 'ここは、プロシジャーの外でPublic宣言する > 'フラグ書き込みの設定（0:未処理 1:実行中） > cls1.iflag = 1 > > '*** 処理 ***’ > > 'フラグ書き込みの設定（0:未処理 1:実行中） > cls1.iflag = 0 >End Sub > > >'【main.xls】 >'============================================ >'クラスモジュール（class1） >Public doflag As Long '↑Privateにしないと、Property使う意味がないので・・・ >Public Property Let iflag(ByVal p1 As Long) > doflag = p1 >End Property > >Public Property Get iflag() As Long > iflag = doflag >End Property >'============================================ > > >'【コマンドボタンに割り当ててあるブック名】 >コマンドボタン１ … a.xls >コマンドボタン２ … b.xls >コマンドボタン３ … c.xls 簡単にTestしたらこれでaaa.iflagの取得設定が全てのブックでできました。 |
| ▼ichinose さん： おはようございます。いつも有り難うございます。 教えて頂いた箇所は、修正しました。 '【main.xls】 '============================================ '標準モジュール（Module1） 'インスタンスの生成 Public cls1 As New Class1 '←『教えて頂いた箇所』 Sub 処理() 'フラグ書き込みの設定（0:未処理 1:実行中） cls1.iflag = 1 '*** 処理 ***’ 'フラグ書き込みの設定（0:未処理 1:実行中） cls1.iflag = 0 End Sub '【main.xls】 '============================================ 'クラスモジュール（class1） Private doflag As Long '←『教えて頂いた箇所』 Public Property Let iflag(ByVal p1 As Long) doflag = p1 End Property Public Property Get iflag() As Long iflag = doflag End Property '============================================ >main.xlsをa.xls、b.xls、c.xlsのそれぞれで参照設定するようにしたらどうでしょうか？ > ***** 中略 ***** >簡単にTestしたらこれでaaa.iflagの取得設定が全てのブックでできました。 参照設定をどのようにしたらいいか、手順等、具体的に教えてもらえませんか？ 恥ずかしい話、使用した事が無いものですから．．． 一応、標準モジュール部を、a.xlsにコピーして参照設定したり．．． いろいろと試したのですが、エラーメッセージばかりでやり方がわかりません。 宜しくお願いします。 |
| ▼ハタ さん： 参照設定については、 http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=10992;id=Excel のツリーを参考にして設定してみて下さい。 |
| ▼ichinose さん： おはようございます。返事遅れてすいません。 テストしてみた結果、バッチリでした。 今後、いろんな意味で、活用できそうです。 本当に有り難うございました。 今後とも宜しくお願いします。 |