ベストアンサー

VBAでユーザーフォームに引数を渡したい

2006/07/17 17:56

標準モジュールからユーザーフォームに引数を渡し、フォーム上で表示させたいのですが、方法がわかりません。可能でしょうか？教えてください。

atsushi758
お礼率50% (8/16)

Visual Basic
回答数1
ありがとう数3

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#22222

2006/07/17 19:59 回答No.1

Excel の話でしょうか？ Excel は操作したことがない門外漢です。そこで、強引に次のような手法を用いてみました。標準モジュールからも同じ手法を使えると思います。広域変数を使うという手もありますが、それでは、面白くありませんので・・・。 Private Sub CommandButton1_Click() 　　UserForm1.Controls("TextBox1") = "AAAA" 　　UserForm1.Show End Sub

関連するQ&A

Excel2003 VBAでフォーム渡し

Excel2003 VBAのフォームを標準モジュールに渡してコントロールできますか？フォームのコードから、標準モジュールにフォームを引数で渡して、操作したいと思っています。フォームの操作で同じ処理が発生するので、標準モジュールで共通に使いたいのですが、思い通りにいきません。ネットで調べたりしましたが、解決できずにこちらに質問させて頂きました。よい方法をご存知の方がいらっしゃましたら、ご教授ください。よろしくお願い致します。
クラスの関数へユーザー定義型の引数を渡す(VB6.0)

お世話になります。クラスモジュール内へ宣言した関数へユーザー定義型(標準モジュール内でPublicで宣言)の引数を渡すとコンパイルエラーとなってしまいます。ユーザー定義型を宣言した以外の標準モジュールでは同じ関数は動きますが、Formモジュールでは動きません。標準モジュールにしかユーザー定義型の引数を渡すことは出来ないのでしょうか？？
EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作り

EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作りました。そのワークシート上での定数や、プロシージャや関数をワークシートのモジュールに置いています。そして、その定数や関数などをユーザーフォームのイニシャライズなどで使いたいと思いますが、ユーザーフォームのモジュールはワークシートのモジュールとは別なので、使えません。他への影響を考えると、標準モジュールには、置くのは不適切だと思います。特定のワークシート上でのみ使うユーザーフォームと、そのワークシートとで、共通の定数や関数などを使う方法は、あるのでしょうか。どのようにすればよいのでしょうか。
EXCEL VBAのユーザーフォームに引数を渡す方法について

すいません、ＥＸＣＥＬＶＢＡのユーザーフォームに引数を渡す方法についてご質問があります。シート上にコマンドボタンを２つ用意する。コマンドボタン１を押すと変数mは1 コマンドボタン２を押すと変数mは2 としてユーザーフォームを呼び出す。 Public m As Integer Private Sub CommandButton1_Click() 　m = 1 　Call フォーム呼び出し(m) End Sub Private Sub CommandButton2_Click() 　m = 2 　Call フォーム呼び出し(m) End Sub Sub フォーム呼び出し(m As Integer) 　UserForm1.Show End Sub 次にユーザフォームにコマンドボタンを１個置き、ボタンを押したとき、mが1であれば「ボタン１」 mが2であれば「ボタン２」とメッセージボックスを出し、ユーザーフォームを閉じる。 Private Sub CommandButton1_Click() 　　If m = 1 Then 　　 MsgBox "ボタン2" 　　ElseIf m = 2 Then 　　 MsgBox "ボタン2" 　　End If 　Unload UserForm1 End Sub プロシージャ間の引数渡しは色々なテキストに載っているのですがユーザーフォームに引数を渡す方法はどうも見つからず、 Private Sub CommandButton1_Click(m) としても、コンパイルエラーとなってしまいます。よろしくご教示をお願いいたします。
ユーザーフォームから

お世話になります。ユーザーフォームにて、オプションボタンでどれかを選択出来るようにし、コマンドボタンで決定する様にしてあります。選択した内容によりｃａｌｌで別の標準モジュールにあるｓｕｂプロシージャに飛ばしたいのですが、その記述方法が分かりません。良くＢｙｖａｌの記述方法は見つかるのですが、単純にｓｕｂプロシージャを実行したいだけなのです。フォームの中に記述しても良いのですが、結構長くなってしまうので・・。こういうやり方はおかしいのでしょうか。
VBAでのユーザーフォームについて。

初めまして。今VBAのユーザーフォームでアンケートっぽいものつくってます。最終的に結果ページをユーザーフォームにて表示させるのですが、その結果ページのユーザーフォームを画像として保存したいのですが方法がさっぱりわかりません。 (PrtScを押せばできるのですが処理で行いたいのです。。。) 以上よろしくお願いします。
VBAのユーザーフォームを実行しようとすると…。

オブジェクトがありません、とのエラーメッセージが出て、実行できません。標準モジュールには以下のようなプロシージャを記述しているのですが、デバッグしてみると、２行目の「○○○.Show」の部分が黄色く反転しているのです。しかし、○○○の名前をつけたユーザーフォームは存在するのです。オブジェクトがない、とのエラーメッセージが出る理由がわかりません。どなたか解決方法を教えていただけませんでしょうか。 Public Sub Form_Show() ○○○.Show End Sub
ユーザーフォームに最小化・最大化ボタンを付ける

http://www.serpress.co.jp/excel/vba047.html を参考にエクセルのユーザーフォームに最小化、最大化ボタンを付けたいのですがうまく出来ません。バージョンは２００３です。リンク先の「作成するモジュール」の中身を標準モジュールにコピペしたら「vbModeless」が「プロシージャの外では無効です。」になります。なので、全てをフォームモジュールに貼り付けると Public Constがエラーになるので Public Constだけ標準モジュールに貼り付けました。でもフォームモジュールでも「vbModeless」が「プロシージャの外では無効です。」になります。なにを標準モジュールにはりつけて何をフォームモジュールにはりつければいいか教えてください。
ExcelのVBA。public変数の値が消える

VBAについて。Excelの2003や2007を使っています。標準モジュールで public 変数を定義しました。ユーザーformを使い、パブリック変数に値を入れたり変更し、標準モジュールに戻ったとき、そのpabulic変数が resetされてしまっている事があります。全く同じマクロで、この現象が起こることと、起こらないことがあります。excelの2003でも2007でも、同じ現象が起こります。簡単なマクロで再現性のある具体的なものを示したいと思い、試しましたが、できませんでした。簡単なマクロでは、きちんとパブリック変数は保持されています。問題のあるマクロはかなり長いものなので、とても示せません。問題がどこにあるのかわかりません。このマクロで不都合があるという具体的なマクロを示すことができない状態での質問で、申し訳ありません。また、このようなプログラミングをしていて思ったのですが、ユーザーフォームに対してユーザーが任意の引数を渡す方法あるいは、ユーザーフォームから引数を受け取る方法はあるのですか?今は、pubulic変数を用いたり、具体的なセルに値を代入したりしていますが、どう考えてもそれはエレガントではないし、汎用性もないと思います。引数で引き渡すのが一番綺麗でいいとは思うのですが、それが可能かどうかわかりません。
VBAのユーザーフォームについて

ユーザーフォームのコマンドボタンのリストのイニシャルにWorkSheetの全てのシート名を入れるにはどうしたらいいのでしょうか？戻り値や引数でデータの受け渡しで行うにはどうしたらいいのでしょうか？初心者でよくその受け渡しがわかりません。どうぞご教授よろしくお願いします。
ExcelVBA ユーザーフォームのコードがない

いつもお世話になっています。 Excel vbaで質問させてください。あるExcelブック（test.xlsとします）を開くと、ユーザーフォーム（と思う）が表示されます。（この時、Excelアプリケーションは「表示」されていてモーダルの状態です）ユーザーフォームで日付を選び、「これでOK」ボタンをクリックすると新規ブックとして「text_0614.xls」が出来て、これが表示ブックとなります。（元のtest.xlsは閉じられています） vbaコードの修正がしたくて、VBEから作業しようとしたところユーザーフォームモジュールも、標準モジュールも何も見当たりません。 Thisworkbookのイベントも何も書いてありません。プロジェクトにパスワードがかかっているのかと思いましたが、もしそうだとしてもプロジェクトウィンドウに、「フォーム」というフォルダは表示されると思いますし、また、ダブルクリックしてもパスワードを求められることがありませんのでパスワードがかかっているようには見えません。これはExcelVBAのユーザーフォームじゃないのでしょうか？（VB？）または、もし、この「フォーム」フォルダごと、ユーザーに見せないやり方があるのでしょうか？どなたかご存知の方いらっしゃいましたらご教示ください！ WinXP SP3　Excel2003 SP3　使用です。どうぞよろしくお願いします。
エクセルＶＢＡユーザーフォームの変数の設定方法について

すいません、エクセルＶＢＡのユーザーフォームの変数の設定方法について質問があります。１　ユーザーフォームを２つ用意する。２　それぞれにComboBox1をおく。３　立ち上げたユーザーフォームについて、UserForm_InitializeでComboBox1に"a"のAddItemを作る。この、「立ち上げたフォームのComboBox1に"a"のAddItemを作る」という作業を各々のユーザーフォームに記載するのではなく、標準モジュールでまとめて記載する方法で躓いています。 Public m As String Private Sub UserForm_Initialize() ’フォーム１を立ち上げた場合　　m = "UserForm1" 　　Call Test1(m) End Sub Private Sub UserForm_Initialize() ’フォーム２を立ち上げた場合　　m = "UserForm2" 　　Call Test1(m) End Sub ↓ 標準モジュールに記載 Sub Test1(m As String) VBA.UserForms.Add(m).ComboBox1.AddItem "a" End Sub これだとUserForm_InitializeとTest1の間で無限ループが始まってしまい、うまく進んでくれません。ヘルプを見ましたが、Add(変数)でユーザーフォームを変数で指定できるということ以上のことは発見できず行き詰っています。　それぞれのフォームに書けばいいだけの話なのかもしれませんが、メンテを考えると出来ればまとめて記述しておきたいと考えています。解決方法がありましたらどうぞよろしくご教示願います。
ユーザーフォームのリストボックスの設定を標準モジュール内で取得した配列

ユーザーフォームのリストボックスの設定を標準モジュール内で取得した配列にしたい。題名のままの説明ですが、ユーザーフォームのリストボックス値を配列にして動的に動作させるようにしたいのですが、標準モジュールでPublicで配列を宣言しているのですが、うまくユーザーフォームモジュールに渡っていないというか、その配列変数をユーザーフォームモジュール内に書くと配列が存在しません。というエラーが出てしまいます。かといってユーザーフォームでPublicで配列を宣言することもできないのでどうやってリストボックスに配列を設定すればいいのかわかりません。配列は2次元配列で視覚的に説明するとは列数が3行、行数は標準モジュール内でRedimにより可変します。この配列をそのままレコードセットみたいにリストボックスに設定したのですが、なにか良い方法はありますでしょうか？
[VBA]呼び出したユーザーフォームのみを消すには

「main」というユーザーフォームがあります。フォーム内には「呼出」というボタンが配置されていています。これを押すと「sub.show」が実行されて、subというユーザーフォームも表示されます。この状態でsubフォームの[x]ボタンを押すと、mainフォームも消えてしまいます。 mainフォームを消さずにsubフォームのみを消すにはどうすればよいでしょうか。それと、このような質問のカテゴリーはプログラミング内の「Visual Basic」と「その他」のどちらが適切でしょうか。
引数

VB の引数について prA.vbp(プロジェクト) の frAA.frx(フォーム) で　private sub comm_click() 　　shell "c:\work\try\prB.exe",vbNormalFocus 　end sub prB.vbp(プロジェクト) の標準モジュール内で public sub Main() 　[password...] 　frBB.show end sub ご質問内容で御座いますが　frAA.frx(フォーム) で入力されたパスワードを　"c:\work\try\prB.exe" を実行する時に引数として　prB.vbp(プロジェクト) の標準モジュール public sub Main() に　　引数を渡したいのですが、　prA の frAA , prB の Main でどのように記述すればいいのでしょうか以上　宜しくお願い申し上げます
VBAのユーザーフォームの使い方

皆様、こんにちは。 VBAのユーザーフォームを習い始めた初心者です。本の説明を読んでもユーザーフォームの使い方がよく分かりません。例えば、あるセールをクリックしたら、フォームが表示される、そしてフォームの中にあるコンボボックスのリストの中から選ばれた値が最初に選択したセールに入力されるという使い方がありえますか？申し可能でしたら、コード作成の例をいただけないでしょうか？どうぞよろしくお願いいたします。
エクセル　VBA ユーザーフォームの表示

excel2000にてシートのB列のみで65行目以下をWクリックするとユーザーフォームが表示されるというコードを教えてください。以下は調べたりした結果のコードです。B列をWクリックすると表示される状態です。 B60とかをクリックしても表示されないようにしたいです。 Worksheetのコード Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Column = 2 Then 'B列なら　　行 = Target.Row '行番号を取得する　　UserForm1.Show 'ユーザーフォームを表示する End If End Sub 標準モジュールのコード Option Explicit Public 行 As Variant '行番号 Sub auto_open() Load UFnyuuryoku 'ユーザーフォームをメモリに読み込む End Sub ご存知の方よろしくお願いします。
Excel VBA 2003 ユーザフォームで表を表示したい

ExcelでUser FORMをつくっています。DBにSQLを投げて結果をSheet上に表示するのではなくForm上に表示したいのですが、標準では表のオブジェクトがありません。外部モジュールでいいのはありませんか？できればソフトウェアをインストールしたり OS標準のDLLを参照しなくてもよいものがいいです。
ユーザー定義型を引数(VB6.0)

パブリックで定義したユーザー定義型ですが、同じモジュール内だとTypeで定義した定義型を引数として渡せるのに違うモジュール間では渡せないのですがこれって仕方がないものなのでしょうか。 Cの構造体をポインタで渡せるみたいに。
EXCEL VBA マクロでユーザーフォームをコピーする方法

元のユーザーフォームが含まれたブックがありそれを、コピーし個人用に名前を入れそれに記入させようとしていますしかし作ったマクロでは標準モジュールはコピーされユーザーフォームはコピーされませんユーザーフォームをコピーして標準モジュールはコピーしたくないのです繰り返し処理をする良い方法もお願いします Windows("元.xls").Activate Sheets("報告書").Copy Windows("元.xls").Activate Sheets("名前").Range("C1:D1").Copy Windows("Book1").Activate Range("Q2:R2").Select’名前シートから個人名を入力 ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:="C:\Users\～～～～\" & "○○" & ".xls", ’個人名に変更 FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False Workbooks("○○.xls").Close SaveChanges:=False

VBAでユーザーフォームに引数を渡したい

質問者が選んだベストアンサー

関連するQ&A

Excel2003 VBAでフォーム渡し

クラスの関数へユーザー定義型の引数を渡す(VB6.0)

EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作り

EXCEL VBAのユーザーフォームに引数を渡す方法について

ユーザーフォームから

VBAでのユーザーフォームについて。

VBAのユーザーフォームを実行しようとすると…。

ユーザーフォームに最小化・最大化ボタンを付ける

ExcelのVBA。public変数の値が消える

VBAのユーザーフォームについて

ExcelVBA ユーザーフォームのコードがない

エクセルＶＢＡユーザーフォームの変数の設定方法について

ユーザーフォームのリストボックスの設定を標準モジュール内で取得した配列

[VBA]呼び出したユーザーフォームのみを消すには

引数

VBAのユーザーフォームの使い方

エクセル　VBA ユーザーフォームの表示

Excel VBA 2003 ユーザフォームで表を表示したい

ユーザー定義型を引数(VB6.0)

EXCEL VBA マクロでユーザーフォームをコピーする方法

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBAでユーザーフォームに引数を渡したい

質問者が選んだベストアンサー

関連するQ&A

Excel2003 VBAでフォーム渡し

クラスの関数へユーザー定義型の引数を渡す(VB6.0)

EXCELのVBAで、あるワークシートでのみ使うユーザーフォームを作り

EXCEL VBAのユーザーフォームに引数を渡す方法について

ユーザーフォームから

VBAでのユーザーフォームについて。

VBAのユーザーフォームを実行しようとすると…。

ユーザーフォームに最小化・最大化ボタンを付ける

ExcelのVBA。public変数の値が消える

VBAのユーザーフォームについて

ExcelVBA ユーザーフォームのコードがない

エクセルＶＢＡユーザーフォームの変数の設定方法について

ユーザーフォームのリストボックスの設定を標準モジュール内で取得した配列

[VBA]呼び出したユーザーフォームのみを消すには

引数

VBAのユーザーフォームの使い方

エクセル VBA ユーザーフォームの表示

Excel VBA 2003 ユーザフォームで表を表示したい

ユーザー定義型を引数(VB6.0)

EXCEL VBA マクロでユーザーフォームをコピーする方法

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　VBA ユーザーフォームの表示

カテゴリ
一覧

専門家に質問してみよう
専門家登録