Ｐａｇｅ 692 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォームを閉じたら「半角/全角」の選択が・・・ TMOMT 03/2/3(月) 14:24 ┗特定セル内の文字列取得 TMOMT 03/2/3(月) 14:34 ┗Re:特定セル内の文字列取得 BOTTA 03/2/3(月) 18:57 ┗治りません良かったら診てください TMOMT 03/2/4(火) 0:26 ┗Re:治りません良かったら診てください BOTTA 03/2/4(火) 13:13 ┗どうやらバグのようです。 BOTTA 03/2/4(火) 18:18 ┗BOTTAさんありがとうございました。 TMOMT 03/2/6(木) 15:41 ─────────────────────────────────────── ■題名 ： フォームを閉じたら「半角/全角」の選択が・・・ ■名前 ： TMOMT ■日付 ： 03/2/3(月) 14:24 -------------------------------------------------------------------------
| フォームを閉じたら「半角/全角」の選択ができなくなり、半角英数しか入力できなくなりました。 テキストボックスへ入力した文字やチェックボックスにチェックを入れることにより、エクセルに文字や数字を入力するフォームを作ったのですが、入力が終了してMe.Hideを実行して、その後修正しようとそのフォームを呼び出すと直接入力のみしか受け付けない状態になります。 Unload Meでフォームを閉じた場合はこのような不具合は生じないのですが、この場合、フォームのテキストボックス等を一から入力しなおさなければならないので、困ってしまいます。 力を貸していただけると嬉しく思います。よろしくお願いします。 Private Sub CheckBox1_Click() End Sub -------------------------------------------- Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Worksheets("ryousyuusyo").Range("C2").Value = "預り証" With Range("C5:H5") .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous End With Else Worksheets("ryousyuusyo").Range("C2").Value = "" With Range("C5:H5") .Borders(xlEdgeBottom).LineStyle = xlLineStyleNone .Borders(xlEdgeTop).LineStyle = xlLineStyleNone End With End If Worksheets("ryousyuusyo").Range("J4").Value = TextBox1.Value Worksheets("ryousyuusyo").Range("I9").Value = TextBox2.Value Worksheets("ryousyuusyo").Range("M13").Value = TextBox3.Value Worksheets("ryousyuusyo").Range("M14").Value = TextBox4.Value Worksheets("ryousyuusyo").Range("L16").Value = TextBox5.Value Worksheets("ryousyuusyo").Range("Q16").Value = TextBox6.Value Worksheets("ryousyuusyo").Range("T16").Value = TextBox7.Value If OptionButton1.Value = True Then Worksheets("ryousyuusyo").Range("M18").Value = "静岡県田方郡伊豆長岡町長岡124-7" Worksheets("ryousyuusyo").Range("M20").Value = "朝日ハウジング株式会社" Worksheets("ryousyuusyo").Range("M23").Value = "代表取締役 高田聡" ElseIf OptionButton2.Value = True Then Worksheets("ryousyuusyo").Range("M18").Value = TextBox8.Value Worksheets("ryousyuusyo").Range("M20").Value = TextBox9.Value Worksheets("ryousyuusyo").Range("M23").Value = TextBox10.Value End If End Sub ----------------------------------------------------------- Private Sub CommandButton2_Click() Me.Hide End Sub |
| Unload Meでフォームを閉じて次にフォームを呼び出すときにテキストボックスに特定セル内の文字列を表示、チェック項目に該当していたらチェックボックスにチェックを入れる方法がありましたら教えていただけませんでしょうか。私の参考書には載ってないもので教えていただけるとありがたいです。 |
| TMOMTさん、こんばんは。 > フォームを閉じたら「半角/全角」の選択ができなくなり、半角英数しか入力できなくなりました。 プロパティ設定でIMEModeを 3 - fmIMEModeDisable に設定しているとキーがきかなくなります。 >Unload Meでフォームを閉じて次にフォームを呼び出すときにテキストボックスに特定セル内の文字列を表示、チェック項目に該当していたらチェックボックスにチェックを入れる方法がありましたら教えていただけませんでしょうか。私の参考書には載ってないもので教えていただけるとありがたいです。 Initializeイベントを使います。 Sheet1のA1の値を表示します。 その中に"abc"という文字列が含まれる場合に、CheckBox1にCheckを入れます。 Formモジュールに貼り付けておためし下さい。 Private Sub UserForm_Initialize() TextBox1.Value = Worksheets("Sheet1").Range("A1").Value If InStr(TextBox1.Value, "abc") > 0 Then CheckBox1.Value = True End If End Sub |
| http://bbbbbbbbbb.hp.infoseek.co.jp/ryousyuusyo.lzh なぜか家のWIN98でならきちんと動作するのに、仕事場でのWINXPでは今回のスレッドで質問したような状況になります。できれば診ていただきたいと思います。 > 3 - fmIMEModeDisable > に設定してはないのは確認しました。 Initializeイベントについてのお話ですが お恥ずかしながらFormモジュールとは何かわかりませんでした。 今回買った参考書が参考例を載せたものだったので今度新しいものを購入しないと、質問するのも失礼だと思いました。反省しています。 |
| TMOMTさん、レス遅くなってごめんなさい。 >http://bbbbbbbbbb.hp.infoseek.co.jp/ryousyuusyo.lzh > >なぜか家のWIN98でならきちんと動作するのに、仕事場でのWINXPでは今回のスレッドで質問したような状況になります。できれば診ていただきたいと思います。 見てみました。でも、きちんと動作します。(Win Me) XPは無いので検証できません。ごめんなさい。m(_ _)m > >Initializeイベントについてのお話ですが >お恥ずかしながらFormモジュールとは何かわかりませんでした。 VBE(Visual Basic Editor)でUserFormを表示し、Form上で右クリックして出てくる ショートカットメニューの中の、「コードの表示」をクリックすると出てきます。 |
| TMOMTさん、こんにちは。 http://support.microsoft.com/default.aspx?scid=kb;ja;416344 http://support.microsoft.com/default.aspx?scid=kb;ja;418768 ↑Microsoftのここを参照して下さい。 |
| 出張がありまして、お礼が遅れまして申し訳ないです。 Unload Meをつかって、フォームをメモリ上からも消して フォームを開くたびにBOTTAさんに教えていただいた方法も使いながら 既述部分をテキストボックスに呼び出す方法を使うことにします。 本当にありがとうございました。 |