エクセルの学校：全文検索：Hyper Estraier：キャレット

Results of 1 - 1 of about 25 for キャレット (0.001 sec.)

[[20230418195323]]: #score: 15359; @digest: eab9125f730675b39f7e14f619863cdf; @id: 94050; @mdate: 2023-04-19T01:08:52Z; @size: 4128; @type: text/plain; #keywords: 索ワ (20314), fmimemodehiragana (12851), textbox1 (11147), dblx (7620), h80000008 (7323), 災報 (6089), 火災 (5884), 報知 (5510), 知器 (5367), tabindex (4967), imemode (4464), textlength (4162), userform (3223), forecolor (3137), 192 (2788), sellength (2682), returnboolean (2568), てus (2502), selstart (2301), い" (2201), initialize (2039), 器） (1974), setfocus (1937), ワー (1795), ソル (1719), textbox (1692), msforms (1619), ーソ (1618), beginner (1485), （火 (1303), カー (1209), private (1204); 『ブックを開いたときのUserFormの状態について』（ひな）
ブックを開いたときにUserFormを出しています。 UserFormの中にあるTextBoxについて困っています。現状、TextBoxにカーソルを置いたら、文字が入力ができるようになっていて、 TextBoxでないところにカーソルがいくと、「検索ワードを入力してください」となります。本当は、ブックを開いてUserFormが出たとき（カーソルがどこにも置かれていないとき）に、「検索ワードを入力してください」とだしたいのですが、今は、いったんどこかにカーソルをおかないと、出てきません。 --- Private Sub TextBox1_Enter() TextBox1.Value = "" End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value = "" Then TextBox1.Value = "検索ワードを入力してください" End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- Private Sub UserForm_Initialize() TextBox1.Value = "検索ワードを入力してください" End Sub こんなのはどうですか（火災報知器） 2023/04/18(火) 20:05:29 ---- 返信をありがとうございます。 Initializeのところは、以下のものを入れておりまして頂いたコードのTextBox1.Value = "検索ワードを入力してください"を追加したのですが、でてきませんでした、入れる場所がちがいますでしょうか Private Sub UserForm_Initialize() Dim dblX As Double, dblY As Double Dim ck As Boolean With ActiveWindow dblX = .PointsToScreenPixelsX(0) / 96 * 72 + Range("A1").Left * .Zoom / 100 dblY = .PointsToScreenPixelsY(0) / 96 * 72 + Range("A1").Top * .Zoom / 100 End With With TextBox1 TextBox1.Value = "検索ワードを入力してください" .ForeColor = RGB(192, 192, 192) .IMEMode = fmIMEModeHiragana TextBox1.SetFocus End With ck = False End Sub （ひな） 2023/04/19(水) 07:14:31 ---- あまりと言うかほとんど分かっていないみたいなので誰かが作った物をコピペしただけの物と解る。 http://officetanaka.net/excel/vba/beginner/16.htm https://excel-ubara.com/excelvba1/EXCELVBA351.html （シンジ） 2023/04/19(水) 09:04:55 ---- もしかしたらTextBox1のTabIndexが0になっていて UserFormを表示したときにTextBox1_Enterが働いてしまっているのかもしれません。 TextBox1のTabIndexプロパティを1以上に変更するとどうなるでしょうか。（火災報知器） 2023/04/19(水) 09:24:55 ---- なのですが、文脈からして先頭ですよねこりゃ。 (だったら尚更SetFocus要らん気もしますが...) 初回のEnterイベントだけ不発になる様に仕組むか... Private Sub TextBox1_Enter() Static Flg As Boolean If Flg Then TextBox1.Value = "" Flg = True End Sub あーでもTextBox1内でキャレットの位置が [検索ワードを入力してくださいI ] ↑こんな感じだとかえって面倒じゃないですか? たとえば↓こんな感じ? Private Sub UserForm_Initialize() With TextBox1 .Text = "検索ワードを入力してください" .SelStart = 0 .SelLength = .TextLength .IMEMode = fmIMEModeHiragana End With End Sub Private Sub TextBox1_Enter() Static Flg As Boolean If Flg Then TextBox1.ForeColor = &H80000008 TextBox1.Value = "" End If Flg = True End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value = "" Or TextBox1.Value = "検索ワードを入力してください" Then TextBox1.ForeColor = RGB(192, 192, 192) TextBox1.Value = "検索ワードを入力してください" End If End Sub （白茶） 2023/04/19(水) 09:27:48 ---- テキストボックスと同じ位置に「検索ワードを入力してください」というCaptionのLabelを置いて Enable=False Private Sub TextBox1_Change() Label1.Visible = (TextBox1.Value = "") End Sub たとえばこんな風にするとか（ただしEnable=Falseの副作用で淡色表示になります）（火災報知器） 2023/04/19(水) 09:58:54 ---- ＞追加したのですが、でてきませんでした、ユーザーフォームにテキストボックスを張り付けて試してみましたけど指定した色で「"検索ワードを入力してください"」と表示されカーソルも末尾に点滅して出ましたよ。（ちか） 2023/04/19(水) 10:08:52 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202304/20230418195323.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ