Friendは標準モジュールじゃ宣言できない？
- Friend Subを標準モジュールに書こうとするとコンパイルエラーが発生します。
- オブジェクトモジュール以外のコードでは使用できないため、Friend Sub test2は標準モジュールには書けません。
- この制約は、Friend Subが特定のスコープでのみ使用できることを意味します。
- ベストアンサー
Friend は標準モジュールじゃ宣言できない？
Public Sub test1() End Sub とは出来るけど Friend Sub test2() End Sub はできないのでしょうか？ Friend Sub test2を標準モジュールに書こうとすると -------------------------------- コンパイルエラー オブジェクト モジュールでのみ有効です。 使用したステートメントまたは構文要素 (たとえば、Implements ステートメント、WithEvents キーワード、イベント シンクなど) は、オブジェクト モジュール以外のコードでは使用できません。 エラーの原因となったステートメントを、オブジェクト モジュール内に記述します。 -------------------------------- となってしまいます。 「オブジェクト モジュール以外のコードでは使用できません。 」＝標準モジュールでは使用できないと言う事でしょうか？
- JOVERUYUI
- お礼率100% (14/14)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
VB6ですかね？ 標準モジュールは、外部に見せるか見せないかの二択しかないので、 friend指定は意味ない、つまりできない、ということでは？ クラス内だと、外部に見せる、見せない、同一プロジェクト内でのみ見せる の三択なので。 http://okwave.jp/qa/q3492830.html
関連するQ&A
- 標準モジュールにpublicで宣言するしかない？
フォームモジュールと標準モジュールで同じ変数を使って値を行き来したい場合、 標準モジュールにpublicで宣言するしかないのでしょうか？ 【フォームモジュール】 Private Sub cmd_コマンド0_Click() test = "aaa" Call 標準モジュールtest End Sub 【標準モジュール】 Public test As String Sub 標準モジュールtest() MsgBox test End Sub でいいのですか？
- ベストアンサー
- オフィス系ソフト
- フォームのイベントを標準モジュールから呼び出す
フォームのイベントを標準モジュールから呼び出す事は出来ないのでしょうか？ ちなみにアクセスです。 例えば、 Private Sub Form_Load() MsgBox "test" End Sub というのはフォームを開いたときにしか発生しないですよね。 でもフォームを開いている状態でForm_Loadと全く同じ事をしてほしい時は どうすればいいですか？ 標準モジュールで Sub a() Call Form_フォーム1.Form_Load End Sub としてみましたが、メソッドまたはデータ メンバが見つかりません。 (Error 461)になりました。 MsgBox "test" だけなら、 Sub a() MsgBox "test" End Sub にすりゃいいじゃん！って思われがちですが、 実際はForm_Loadイベントにはたくさんのコードが書かれています。 標準モジュールからイベントの呼び出しを教えてください。
- ベストアンサー
- オフィス系ソフト
- subプロシージャーは標準モジュールではなくフォームのコードを書く部分
subプロシージャーは標準モジュールではなくフォームのコードを書く部分に書いても問題ないのでしょうか？ エクセルにＶＢＡでフォームを挿入し、 「Private Sub UserForm_Initialize()」 などのフォームのモジュールに、 Sub test() MsgBox "あああ" End Sub という標準モジュールに書くべきのsubプロシージャーを書いてもなにもエラーにならないし正常に動きます。 subプロシージャーは標準モジュールではなくフォームのコードを書く部分に書いても問題ないのでしょうか？ それともエラーにならなくても標準モジュールに書いた方がいいですか？
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAで標準モジュール内で指定しても別の標準モジュールが開けません。
Sub CommandButton2_Click() Application.Run "PARA" End Sub 以前他の方が作ったプログラムを参考にして、作成しています。 PARAという名前で作った標準モジュールを動かしたいのですが、 1004エラーと出てしまって止まってしまいます。 実際、オブジェクト名と記載されている文字列を""の間にコピペしても 動きません。 どこがおかしいのでしょうか？あるいは何か肝心なことが抜けているのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 【VBA】SUBプロシージャーは標準モジュール以外に書いてもいい？
ThisWorkbookのコードを書く場所や Sheetのイベントプロシージャーが実行されるところに Sub test() MsgBox "あああ" End Sub と書いて実行するとメッセージボックスが表示されます。 クラスモジュールとフォームのイベントプロシージャーを書くところではできませんでした。 ということはSUBプロシージャーは 標準モジュールでなくてもいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 同じマクロ名でも、違うモジュールならエラーにならな
同じマクロ名でも、違うモジュールならエラーにならない？ エクセルＶＢＡについてご教授ください。 標準モジュールに ――――――――― Option Explicit Sub CommandButton1_Click() MsgBox "" End Sub Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― と同じマクロ名を2つ作ったら、コンパイルエラーになりますが、 上記のコードは一度消して、フォームモジュールに ――――――――― Private Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― を一つ作り、 標準モジュールに ――――――――― Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― を一つ作った場合は、エラーにならずにマクロを実行できました。 これは、フォームモジュールがPrivate Subだからでしょうか？ フォームモジュールに１つ、 標準モジュールに１つ なら同じマクロ名を使っても、エラーにならないという事でしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- イベントを標準モジュールからCALLしたい
フォームモジュールにFilterClearコマンド_Clickというイベントがあるのですが、 それを標準モジュールで Sub aaa() Call FilterClearコマンド_Click End Sub とは出来ないのでしょうか？ 実際やろうとするとコンパイルエラーになります。
- ベストアンサー
- オフィス系ソフト
- 標準モジュールで 『Sub test(ByVal Target As Range)』は動かない？
選択されている複数のアドレスが知りたいので 標準モジュールに Sub test(ByVal Target As Range) Debug.Print Target.Address End Sub と書きました。 しかしF5ボタンを押しても何も起こりません。 デバッグ→コンパイルをしてもエラーになりません。 シートのイベントプロシージャーではなく 標準モジュールにした理由は イベント発生時ではなく、任意で起動させたいためです。 ためしに、 Sub test(ByVal Target As Range) Debug.Print Target.Address End Sub の下に、 Sub test2() Call test End Sub と書いたら、 「引数は省略できません。」 というエラーになりました。 何がダメなのかわかりません。 ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 標準モジュールだとエラーになる理由を教えてください
アクセスのフォームの上にコマンドボタンを一つ設置して、 クリックイベントで Private Sub コマンド0_Click() DoCmd.Close acForm, Me.Name End Sub とすれば、自身のフォームが閉じます。 しかし、 Private Sub コマンド0_Click() Call test End Sub と、 標準モジュール Option Compare Database Option Explicit Sub test() DoCmd.Close acForm, Form_フォーム1 End Sub にすると、 実行時エラー2498 指定した式は、 いずれか の引数とデータ型が対応していません。 になります。 行ってる意味は同じだと思うのですが、 なぜエラーになるのか教えていただけますか？ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 標準モジュールとフォーム
ある標準モジュール内で生成した変数の値をフォームのコマンドボタンをクリックしたら表示されるプログラムはどうやってつくるのですか？ 標準モジュール sub test() dim a as integer dim b as integer dim sum as string a=5 b=1 sum=a+b End sub フォームのコマンドボタンクリック Sub CommandButton1_Click() MsgBox sum End Sub 標準モジュールで計算した答えがフォームのコマンドボタンをクリックしたら答え6が表示されるようにしたいのですが、どうしたらできますか？
- 締切済み
- その他（プログラミング・開発）
お礼
ありがとうございました。