エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150519212712]]: #score: 9211; @digest: 5e719222afb43050b98b46ade6fb682f; @id: 68020; @mdate: 2015-05-20T11:15:18Z; @size: 2991; @type: text/plain; #keywords: 作■■ (15497), mynumber (13915), ■■■■■■■■■■ (11604), ■■■■■■■■ (11368), 作: (8108), 力待 (7799), 番コ (6648), ムテ (5812), 字= (3734), textbox1 (3302), 力内 (2439), vbmodeless (2386), userform1 (2190), 力→ (2112), トボ (2108), 例外 (2088), ジボ (1928), （品 (1846), テキ (1658), キス (1532), ボッ (1488), クス (1195), の動 (1127), 本日 (938), 動作 (773), 品番 (724), ッセ (660), ド） (660), メッ (657), ォー (610), ト上 (592), セー (583); 『ユーザーフォームテキストボックスの文字が取得できない。』（より）
先輩方のお知恵を拝借したく、書き込みさせて頂きます。質問内容:ユーザーフォームテキストボックスの文字が取得できない。 OS:Windows7 アプリケーション:EXCEL2010 ファイル形式:EXCEL97-2003 ブック（.xls） - - - - - - - - - - - - - - - ■■■■■■■■基本の動作■■■■■■■■■■ 1) ファイルを開いたら、テキストボックスが現れ入力待ちの状態になる 2) 5文字の数字（品番コード）を入力してもらい、入力内容をメッセージボックスで表示。以降、入力→表示を繰り返し。 ※コードは0から始まることもある（例:01234）のでString型で宣言しました。 ■■■■■■■■例外の動作■■■■■■■■■■ 3) テキストボックスが右上の（X）で閉じられた場合は別途シート上に作成したフォーム「ボタン」を押せば再び同じテキストボックスが現れ入力待ちの状態になる。 4) 5文字の数字（品番コード）を入力してもらい、入力内容をメッセージボックスで表示。以降、入力→表示を繰り返し。 - - - - - - - - - - - - - - - 「問題（ご質問したい内容）」基本の動作:1) - 2) は、思ったとおりの動きをするのですが、例外の動作:一度、テキストボックスを閉じ、シート上のフォーム「ボタン」を押して、再びテキストボックスを表示させた場合 5文字の数字を入れても何も起こらず、メッセージボックスが表示されません。しかし、全角モードにしてから、5文字の数字入れてENTERを押すと反応し、それ以降、何もなかったかのように、1) -2) の思ったとおりの動きになったこともあります。（この部分いろいろ試してみたのですが、どうもパターンが読めません。）どのようにすれば、解決できるか、ご教示頂けませんでしょうか。以下、コードです。 - - - - - - - - - - - - - - - [ThisWorkbook]に保存 Private Sub Workbook_Open() UserForm1.Show vbModeless End Sub - - - - - - - - - - - - - - - [UserForm1]に保存 Sub TextBox1_Change() Dim Mynumber As String Do Until Len(TextBox1.Text) = 5 DoEvents Loop Mynumber = UserForm1.TextBox1.Text MsgBox "入力された数字 = " & Mynumber TextBox1 = "" End Sub - - - - - - - - - - - - - - - [標準モジュール:Module2]に保存 Sub ボタン5_Click() UserForm1.Show vbModeless End Sub - - - - - - - - - - - - - - - ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- Change イベントの中でループしてはまずいのでは? Sub TextBox1_Change() If Len(TextBox1.Text) < 5 Then Exit Sub MsgBox "入力された数字 = " & UserForm1.TextBox1.Text TextBox1.Text = "" End Sub のようにしてもダメでしょうか。 （Mook） 2015/05/19(火) 23:30 ---- Mook様ご指導ほんとうにありがとうございます。頂戴したアドバイスを本日事務所で試してみて、改めてご報告させていただきます。（より） 2015/05/20(水) 07:31 ---- Mook様本日、アドバイスいただいた内容を試したところ、全て解決して驚いています。本当に助かりました。ありがとうございます! （より） 2015/05/20(水) 20:15 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150519212712.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ