＜Excel Formで値を設定、標準モジュールで使用したい＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、ハシ休めで（飛び飛び解説とも言う） Excel UserForm で設定した値を標準モジュールで使用したいと思います。 サンプルファイルは、 http://www.ken3.org/vba/lzh/vba068.lzh にtest068-Book.xlsが保存されています。/* * １．今回のキッカケ */
ＨＰの問合せフォームを使ってくれて、下記の問合せが来ました。 --- >まささん <*********@hotmail.com > から >こんばんは。はじめまして。 >以下の質問があります。 >メインプロシジャからユーザフォームを呼び出し、ユーザフォームで >値を入力後、ユーザフォームに作成したコマンドボタンを押下するこ >とにより、ユーザーフォームに作成したプロシジャ内でその値を変数 >に入れる。その後、メインプロシジャに戻り、ユーザフォームで値を >入れた変数をメインプロシジャで使用することはできますか。 >できるならその方法を教えて下さい。 >お手数ですが、宜しくお願いします。 ---- さてと、やりたいことを整理して、 [メインプロシージャ] ユーザーフォームを開く ・ ・ユーザーフォームが終了まで待つ ・ ユーザーフォームで設定された値を利用して XXXXXXと処理を行う [ユーザーフォーム] テキストボックスや他のコントロールで値をいじる コマンドボタンが押されたら値を呼び出しモジュールに返したい まずは、値を無視して、ユーザーフォームを開いて閉じるまで、 呼び出し側が止まっているか、通過するか、チェックしてみます。
Sub test()
UserForm1.Show 'ユーザーフォームの表示
MsgBox "終了" '確認メッセージ
End Sub |
参照
フォームでセットされた値を使用するのに、
簡単に、グローバル変数で値をやり取りしてみたいと思います。
（前回のＡｃｃｅｓｓでは、閉じないで非表示の参照でしたが、
今回は、グローバル変数に値をセットしてフォームを閉じます）
流れは、メインのモジュールで、
ユーザーフォームを開く
[ユーザーフォーム側処理] 実行が押されたらグローバル変数にデータをセット
閉じる
戻ってきたら、
グローバル変数を参照して処理を行う。
メインの標準モジュールに
~~~~~~~~~~~~~~~~~~~~~~~~
Public nINPUT As Integer '選択した手
Public strName As String 'お名前
Sub test2()
UserForm1.Show 'ユーザーフォームの表示
MsgBox strName & "さんが選択したのは" & nINPUT & "です"
End Sub |
Private Sub btnRUN_Click()
'選択した手を代入
nINPUT = 0 '初期化
If Me.OP01.Value = True Then nINPUT = 1 'グー
If Me.OP02.Value = True Then nINPUT = 2 'チョキ
If Me.OP03.Value = True Then nINPUT = 3 'パー
'名前を代入
strName = Me.txtUSERNAME.Text
'フォームを閉じる
Unload Me
End Sub |
参照
Sub test3()
'初期処理
Dim strNO As String '値を受け取るため文字型の変数を宣言
Dim nCON As Integer 'コンピュータの手１〜３の数値が入る
Dim nPC As Integer 'ユーザーさんの手
Dim strTE(3) As String '(*1)配列変数を宣言
strTE(1) = "グー" '(*2)配列にメッセージを代入
strTE(2) = "チョキ"
strTE(3) = "パー"
'ユーザーにグ・チ・パを入力させる
'InputBoxで入力してもらう
strNO = InputBox("１.グー ２.チョキ ３.パー", "アナタの手を入力で下さい")
'入力値の判断、エラーならメッセージを表示させ抜ける
'If文で1,2,3以外を判断する
If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
MsgBox "[" & strNO & "]は不正な入力です"
Exit Sub '<--Exit Subを使用してここでプログラムを抜ける
End If
'コンピュータの手を決定
Randomize ' 乱数発生ルーチンを初期化します。
nCON = Int((3 * Rnd) + 1) '1 から 3 までの乱数を発生させます。
'結果判断と表示
'ユーザーの手を表示する
nPC = Val(strNO) 'Val関数で数値型に変換する
MsgBox "あなたの手は" & strTE(nPC) & "です" '(*3)ここでnPC番目を表示
'(*4)同様にコンピュータの手を表示する
MsgBox "コンピュータの手は" & strTE(nCON) & "です"
'結果の判断
'まず、引き分けを判断
If nPC = nCON Then MsgBox "引き分けです"
'次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
If nPC = 1 And nCON = 2 Then MsgBox "アナタの勝ちです"
If nPC = 2 And nCON = 3 Then MsgBox "アナタの勝ちです"
If nPC = 3 And nCON = 1 Then MsgBox "アナタの勝ちです"
'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
If nPC = 1 And nCON = 3 Then MsgBox "私（コンピュータ）の勝ちです"
If nPC = 2 And nCON = 1 Then MsgBox "私（コンピュータ）の勝ちです"
If nPC = 3 And nCON = 2 Then MsgBox "私（コンピュータ）の勝ちです"
End Sub |
Sub test4()
'初期処理
Dim strNO As String '値を受け取るため文字型の変数を宣言
Dim nCON As Integer 'コンピュータの手１〜３の数値が入る
Dim nPC As Integer 'ユーザーさんの手
Dim strTE(3) As String '(*1)配列変数を宣言
strTE(1) = "グー" '(*2)配列にメッセージを代入
strTE(2) = "チョキ"
strTE(3) = "パー"
'ユーザーにグ・チ・パを入力させる
UserForm1.Show 'ユーザーフォームの表示
nPC = nINPUT '選択された手を代入
'×ボタンで終了時は何もしない(キャンセル判断)
If nPC = 0 Then
Exit Sub '<--Exit Subを使用してここでプログラムを抜ける
End If
'コンピュータの手を決定
Randomize ' 乱数発生ルーチンを初期化します。
nCON = Int((3 * Rnd) + 1) '1 から 3 までの乱数を発生させます。
'結果判断と表示
'ユーザーの手を表示する
MsgBox strName & "さんの手は" & strTE(nPC) & "です" '(*3)ここでnPC番目を表示
'(*4)同様にコンピュータの手を表示する
MsgBox "コンピュータの手は" & strTE(nCON) & "です"
'結果の判断
'まず、引き分けを判断
If nPC = nCON Then MsgBox "引き分けです"
'次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
If nPC = 1 And nCON = 2 Then MsgBox strName & "さんの勝ちです"
If nPC = 2 And nCON = 3 Then MsgBox strName & "さんの勝ちです"
If nPC = 3 And nCON = 1 Then MsgBox strName & "さんの勝ちです"
'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
If nPC = 1 And nCON = 3 Then MsgBox "私（コンピュータ）の勝ちです"
If nPC = 2 And nCON = 1 Then MsgBox "私（コンピュータ）の勝ちです"
If nPC = 3 And nCON = 2 Then MsgBox "私（コンピュータ）の勝ちです"
End Sub |
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、
|
気になったジャンル↓を選択してください。 人気記事(来場者が多いTOP3): Excel関係: Access関係: その他：VBAの共通関数やテキストファイルの操作など 開発時の操作: [F1を押してHELPを見る]/ [Debug.Print と イミディエイトウインドウ]/ [実行時エラーでデバッグ]/ [ウォッチ式とSTOP]/ [参照設定を行う] 仕様書(設計書？) XXXX書類: [基本設計書や要求仕様書]/ [テスト仕様書 テストデータ]/ [バグ票]/ [関数仕様書]/ [流れは 入力・処理・出力] ※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。 |
Blogとリンク:[三流君の作業日記]/
[VBAやASPのサンプルコード]/
広告-[通販人気商品の足跡]