Excel VBAのSetFocusについての質問

前へ 次へ
このQ&Aのポイント
  • Excel VBAのSetFocusを使用してテキストボックスにカーソルを移動する方法について質問があります。
  • 質問文章のコードでは、ComboBox3で郵便番号と住所を選択し、TextBox8に表示します。
  • しかし、TextBox8にカーソルが表示されず、代わりにUserForm7の最初のTextBox1にフォーカスが移ります。UserForm8には同様のコードがありますが、こちらは正常に動作します。
回答を見る
  • ベストアンサー

EXCEL VBA SetFocus について教え

ComboBox3　で郵便番号　住所　を選択して TextBox8　に表示　その後番地等を記入するため Private Sub ComboBox3_AfterUpdate() '郵便番号　住所 Workbooks("*****.xls").Activate Worksheets("**").Activate With UserForm7 No = .TextBox1.Value .TextBox7.Value = Mid(.ComboBox3.Text, 1, 8) Cells(No + 1, 7).Value = Mid(.ComboBox3.Text, 1, 8) '郵便番号 .TextBox8.Value = Mid(.ComboBox3.Text, 10) '住所 Cells(No + 1, 8).Value = .TextBox8.Value .ComboBox3.Visible = False .TextBox8.SetFocus .TextBox8.TabIndex = 4 .TextBox8.Text = Mid(.TextBox8.Text, 1) End With End Sub 上のコードで　TextBox8　の　テキストの最後にカーソルを移動したいのですが TextBox8　に　カーソルは現れません。（UserForm7の最初のTextBox1にフォーカスが移る） UserForm8 にも　同様なコードが有りますがこちらは期待どうり動作します。 タブオーダーとかの違いは有りますが関係するのでしょうか　 よろしくお願いします。

  • cfkty
  • お礼率69% (9/13)

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

  • ベストアンサー
回答No.1

AfterUpdate イベントですが http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B436443#appliesto のケースには該当しませんか？ このケースなら対策は示されていません。別のイベントでカーソルを移動するようにコードを作り直すしかないと思います。全体のコードがないのでどのように書き直べきかは解りません。

cfkty
質問者

お礼

まだお聞きしたいことがあるのですが　どうすればいいのか追加の質問などの仕方がわかりませんのでいったん終了にして改めて質問します。 取り敢えず　有難う御座いました。

cfkty
質問者

補足

早速のご回答有難う御座いました。 状況は　ご教示の　Microsoftのサイト　で理解できました。 ＞別のイベントでカーソルを移動するようにコードを作り直すしかないと思います。 についてですが　ご教示頂けるものがあればよろしくお願いします。テストしてみます。 Private Sub ComboBox3_Change() UserForm7.TextBox8.SetFocus End Sub ではだめでした。 ＞全体のコードがないのでどのように書き直べきかは解りません。 についてですが　制限字数内に入りそうですが観ていただく様にするには少し時間が必要ですので よろしくお願いします。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. Windows
  4. Windows 7

関連するQ&A

  • ExcelのVBAで法人格を取りたい

    エクセルのシート1の1行に1企業の情報があります。 セルを一つ選択し、クリックボタンを押すと、UserForm4がたちあがるコードを入れています。 ------------------------------------ gyo = ActiveCell.Row retu = ActiveCell.Column Cells(gyo, retu).Select UserForm4.TextBox4.Text = Cells(gyo, "w") 　　　 '法人名 UserForm4.TextBox5.Text = Replace(Cells(gyo, "r").Value, "-", "") '郵便番号 UserForm4.TextBox6.Text = Cells(gyo, "s") 　　　 '企業住所 UserForm4.TextBox7.Text = Replace(Cells(gyo, "aa").Value, "-", "") '電話番号 UserForm4.TextBox8.Text = Replace(Cells(gyo, "z").Value, "　", "") '氏名 UserForm4.TextBox9.Text = Replace(Cells(gyo, "y").Value, "　", "") '氏名カナ 　 UserForm4.Show End Sub ------------------------------------ UserForm4.TextBox4に法人名を表示し、法人名は「株式会社」や「有限会社」のように法人格がついていますので、 法人格を取りたいと思い下記コードを作ってみました。 ------------------------------------ With Selection Selection.Replase what:="株式会社", Replasement:="" Selection.Replase what:="有限会社", Replasement:="" Selection.Replase what:="合資会社", Replasement:="" Selection.Replase what:="合名会社", Replasement:="" Selection.Replase what:="社団法人", Replasement:="" Selection.Replase what:="財団法人", Replasement:="" End With ------------------------------------ これをどのように上のコードに入れたらいいのでしょうか・・・・ どなたか教えていただけますでしょうか。 宜しくお願い致します。

  • EXCEL　VBA　コードをスマートに

    EXCEL　VBAのフォームで、 テキストボックスの値をあらかじめTextBox1に入力しておくコードを 書いてみました。 Private Sub UserForm_Initialize() TextBox1.Value = Cells(4, 1) & Cells(4, 3) & Cells(4, 5) & Cells(4, 7) & Cells(6, 1) & Cells(6, 3) & Cells(6, 5) & Cells(6, 7)Cells(8, 1) & Cells(8, 3) & Cells(8, 5) & Cells(8, 7).Value End Sub 実際はもっと長いです・・・ どうしたら、スマートに記述できますか？ お知恵をお貸しください!!!

  • Excelでセル検索したセルの色をテキストボックスに表示

    セル検索した結果をテキストボックスに表示する時、文字は表示できましたが、セルの色もテキストボックスに表示したいのですが、何処を修正したらいいのか分かりません。 教えてください。 宜しくお願いします。 Sub AAA() strMoji$ = UserForm1.TextBox1.Text If UserForm1.TextBox1.Text = "" Then MsgBox "検索条件を入力してください。", 48 Exit Sub End If On Error GoTo Fail Worksheets("Sheet1").Range("a:a").Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ).Activate lonNUM& = Selection.Row UserForm1.TextBox2.Text = Cells(lonNUM, 2).Value UserForm1.TextBox3.Text = Cells(lonNUM, 3).Value UserForm1.TextBox4.Text = Cells(lonNUM, 4).Value UserForm1.TextBox5.Text = Cells(lonNUM, 5).Value UserForm1.TextBox6.Text = Cells(lonNUM, 6).Value UserForm1.TextBox7.Text = Cells(lonNUM, 7).Value UserForm1.TextBox8.Text = Cells(lonNUM, 8).Value Exit Sub Fail: MsgBox "該当なし", 48 End Sub

  • excel VBA コンボボックスでシート選択後エラー

    どなたかご教授願います。 ユーザーフォームにコンボボックスを配置し、ブック内のシートすべて選択できるようにしてます。選択後シートに移動するのですが、同じユーザーフォームのテキストボックス等に入力した後、コマンドボタンをクリックするとエラーとなります。しかしテキストボックス等の値は間違いなく入力されています。よろしくお願いします。 Private Sub ComboBox1_Change() → Sheets(Me.ComboBox1.Value).Select 　　　　　　この部分が黄色になってしまいます End Sub Private Sub CommandButton1_Click() Dim myRow As Long ActiveSheet.Select myRow = Range("B65536").End(xlUp).Offset(1, 0).Row '各テキストボックの値をセルに入力 Cells(myRow, 2).Value = TextBox1.Value Cells(myRow, 3).Value = TextBox1.Value Cells(myRow, 4).Value = ComboBox2.Value Cells(myRow, 6).Value = TextBox2.Value Cells(myRow, 7).Value = TextBox3.Value Cells(myRow, 8).Value = TextBox4.Value 'Cells(myRow, 9).Value = TextBox5.Value '書式設定 Cells(myRow, 2).NumberFormatLocal = "m" Cells(myRow, 3).NumberFormatLocal = "dd" Cells(myRow, 6).NumberFormatLocal = "#,###" 'セルに入力が各テキストボックの値をクリア ComboBox1.Value = "" ComboBox2.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" 'フォーカス移動 ComboBox2.SetFocus End Sub

  • Private Sub UserForm_Init

    いつもお世話になります。 Windws7 excell2010 です。 同一のシートに二つの「Private Sub UserForm_Initialize()」があるときにどう名前を変えればまたはどうすればいいかご指導願えませんか。 「Private Sub UserForm_Initialize()」が一つの時はE5のようにうまく作動してくれます。 E列に　売上の　「回収」のリスト Private Sub UserForm_Initialize() F列に　何時の　「売掛月」のリスト(1～12の数字) Private Sub UserForm_Initialize() A列に　=IF(B2="","",TEXT(B2,"mm")) 参考に下記します。 ～１ Private Sub UserForm_Initialize() With ComboBox1 .AddItem "振込" .AddItem "現金" .AddItem "小切手" End With End Sub ～２ Private Sub UserForm_Initialize() With ComboBox2 .AddItem "10" .AddItem "11" .AddItem "12" End With End Sub '**************** '設定 '**************** Private Sub CommandButton1_Click() y = 2 Do While Cells(y, 2) <> "" y = y + 1 Loop Cells(y, 2) = TextBox1.Text Cells(y, 3) = TextBox2.Text Cells(y, 4) = TextBox3.Text Cells(y, 5) = ComboBox1.Text Cells(y, 6) = ComboBox2.Text UserForm2.TextBox1.Text = "" UserForm2.TextBox2.Text = "" UserForm2.TextBox3.Text = "" UserForm2.ComboBox1.Text = "" UserForm2.ComboBox2.Text = "" UserForm2.TextBox1.SetFocus End Sub

  • EXCEL VBA 多種のコンボボックス操作

    こんばんは。 現在ユーザーフォーム上に10個のコンボボックスを配置しています。 1-8は共通リストを、9と10は別々のリストを表示させたいのですが・・ Private Sub UserForm_Initialize() Dim X, No, Y As Integer With UserForm2 For No = 1 To 8 For X = 0 To 7 .Controls("ComboBox" & No).AddItem Worksheets("Letter").Cells(X + 1, 10).Value Next Next For Y = 0 To 7 .ComboBox9.AddItem Worksheets("Letter").Cells(Y + 1, 11).Value .ComboBox10.AddItem Worksheets("Letter").Cells(Y + 1,12).Value Next End With End Sub 上記のコードですが、エラーが出てどうにも行き詰っています。 Private Sub UserForm_Initialize() Dim X, No As Integer For No = 1 To 8 For X = 0 To 7 UserForm2.Controls("ComboBox" & No).AddItem Worksheets("Letter").Cells(X + 1, 10).Value Next Next End Sub ↑だと1-8まで問題なく動くのですが・・・ すみませんが、アドバイスお願いいたします。

  • Excel VBAでIF～Thenの入れ子がうまくできません。

    いつもお世話になってます。 IF～Then～EndIfにIFを入れていますがうまくいきません。よろしくお願いします。 Private Sub CommandButton10_Click() Dim i As Long Dim 最終行 As String Dim サーチ行 As Long Dim 行 As Long Dim 列 As Long If TextBox33.Value = "" Then MsgBox "使用量を入力してください。" Else If TextBox11 <> "" Then TextBox26 = TextBox33 * TextBox11 / 100 '成分1 End If If TextBox12 <> "" Then TextBox25 = TextBox33 * TextBox12 / 100 '成分2 End If Workbooks.Open Filename:=ThisWorkbook.Path & "\データ物質試薬管理.xls" Sheets("shinki").Activate 最終行 = (Range("B2").End(xlDown).Row) '商品名の行検索 サーチ行 = 0 For i = 2 To 最終行 If ComboBox3.Value = Range("B" & i) Then Workbooks("データ物質試薬管理.xls").Close savechanges:=False '保存しない Workbooks.Open Filename:=ThisWorkbook.Path & "\データ物質試薬管理.xls" Sheets("kongou").Select Range("A65536").End(xlUp).Offset(1).Select 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm11.TextBox16.Value 'CAS Cells(行, 列 + 1) = UserForm11.TextBox21.Value '使用日 Cells(行, 列 + 2) = UserForm11.TextBox29.Value '使用者 Cells(行, 列 + 4) = UserForm11.TextBox26.Value '成分1使用量 Cells(行 + 2, 列) = UserForm11.TextBox18.Value 'CAS Cells(行 + 2, 列 + 1) = UserForm11.TextBox21.Value '使用日 Cells(行 + 2, 列 + 2) = UserForm11.TextBox29.Value '使用者 Cells(行 + 2, 列 + 4) = UserForm11.TextBox24.Value '成分3使用量 Cells(行 + 2, 列 + 5) = UserForm11.TextBox32.Value '種類 Cells(行 + 2, 列 + 6) = UserForm11.TextBox34.Value '単位 Cells(行 + 2, 列 + 7) = UserForm11.ComboBox3.Value '商品名 Workbooks("データ物質試薬管理.xls").Close savechanges:=True 'showhinに在庫管理する Workbooks.Open Filename:=ThisWorkbook.Path & "\データ物質試薬管理.xls" Sheets("showhin").Select Range("A65536").End(xlUp).Offset(1).Select 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm11.TextBox2.Value '品名コード Cells(行, 列 + 1) = UserForm11.ComboBox3.Value '商品名 'Cells(行, 列 + 2) = UserForm9.TextBox3.Value '１本の量 'Cells(行, 列 + 3) = UserForm9.TextBox4.Value '本数 Cells(行, 列 + 4) = UserForm11.TextBox34.Value '単位 Cells(行, 列 + 5) = UserForm11.TextBox32.Value '種別 Cells(行, 列 + 6) = UserForm11.TextBox21.Value '使用日 Cells(行, 列 + 7) = UserForm11.TextBox29.Value '使用者名 Cells(行, 列 + 9) = UserForm11.TextBox33.Value '使用量 Workbooks("データ物質試薬管理.xls").Close savechanges:=True MsgBox "登録しました。" End If サーチ行 = i Exit For 'End If Next If サーチ行 = 0 Then MsgBox ComboBox3.Value & "商品は登録されておりません。" & Chr(10) & "「新規商品登録」ボタンから入力してください。" End If End If If TextBox21.Value = "" Then '使用量 MsgBox "使用日を入力してください。" End If ComboBox3.SetFocus End Sub

  • VBAで最終行の取得について

    UserFormのConboBoxで「○○」を選んで、 UserFormのTextBoxで『あいう』と入力すると、ワークシートに A 　　　　　B 1 ○○　　 ×× 2 あいう と表示され、 UserFormのConboBoxで「××」を選んで、 UserFormのTextBoxで『アイウ』と入力すると A 　　　　　B 1 ○○　　 ×× 2 あいう　 アイウ 3 : 　　　: と表示されるようにしたいと思います。 以下のプログラムまではできています。 ********************************************* Private Sub UserForm_Initialize() 　Dim lasClm As Integer, i As Integer 　lasClm = Sheet1.Range("A1").End(xlToRight).Column 　　For i = 1 To lasClm 　　ComboBox1.AddItem Sheet1.Cells(1, i).Value 　　Next i End Sub ********************************************* Private Sub CommandButton1_Click() 　Select Case ComboBox1.Text 　Case Sheet1.Cells(1, 1).Value　'「○○」が選択 　Sheet1.Cells(2, 1).Value = TextBox1.Text　・・・(1) 　Case Sheet1.Cells(1, 2).Value　'「××」が選択 　Sheet1.Cells(2, 2).Value = TextBox1.Text　・・・(2) 　End Select 　UserForm1.Hide End Sub ********************************************** 今は(1)、(2)のように直接セルを指定しているのですが、 この部分を各列（A列、B列）の最終行の値を取得して、 最終行＋１のセルに順次TextBoxに入力された値を代入していきたいのですが、 どのようにしたらよいのでしょうか。 しかし、A列とB列は同じように値が増えていくとは限りません。 例） 　　　A 　　　 B 1 ○○　　　×× 2 あいう　 アイウ 3 かきく 4　さしす となる場合もあるので、A列とB列それぞれの最終行の値を取得したいと思っています。

  • Excelで検索結果表示の修正

    下記のマクロでA列だけ検索できるようにしたいのですが、どこを修正したらいいのか教えてください。 Private Sub CommandButton1_Click() AAA End Sub Sub AAA() strMoji$ = UserForm1.TextBox1.Text If UserForm1.TextBox1.Text = "" Then MsgBox "検索条件を入力してください。", 48 Exit Sub End If On Error GoTo Fail Cells.Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ).Activate lonNUM& = Selection.Row UserForm1.TextBox2.Text = Cells(lonNUM, 2).Value UserForm1.TextBox3.Text = Cells(lonNUM, 3).Value Exit Sub Fail: MsgBox "該当なし", 48 End Sub Private Sub UserForm_Click() End Sub

  • エクセルＶＢＡユーザーフォーム「テキストボックス」「コンボボックス」の書式設定について

    ユーザーフォームを作成して、出荷実績を投入しようとしています。 現在、ユーザーフォームを作成して、 上から以下のようにボタンが並んでいます。 (1)コンボボックス１ 　商品コードと商品名を選択する。 (2)テキストボックス１～７ 　地域ごとの出荷実績を投入する。 (3)コマンドボタン１ 　決定→入力 (4)コマンドボタン２ 　終了 そして、以下３つの問題点がありますが、どのようにＶＢＡを記述したら良いのか、わかりません。 　ａ．コンボボックス１に表示される商品を商品コード 　　（アルファベット）と商品名で改行したい。 　　つまり「折り返して全体を表示する」ことは出来ないでしょうか。 　ｂ．「ＡＡＡＡ～」は５行目・「ＣＣＣＣ～」は７行目　といった 　　ように、商品ごとに値を投入する行を変更したい。 　ｃ．テキストボックス１～６の内容の合計が自動で（入力している 　　最中に）テキストボックス７に表示されるようにしたい。 次のようなＶＢＡは記述出来たのですが、上記３つの要素を加えるには どのようにしたらよいのか、教えていただけないでしょうか？ ちなみに入力する順番は次のようになっています。(設定済み) M4→L4→J4→K4→H4→I4 →M5→L5→J5→K5→H5→I5 ------------------------------------------------------------- ’フォームを表示させる。 Sub formdsp() UserForm1.Show End Sub ’フォーム内容 Dim cnt As Integer Private Sub Combobox1_Change() End Sub '入力ボタン Private Sub CommandButton1_Click() With ActiveSheet .Cells(cnt, 13) = TextBox1.Text .Cells(cnt, 12) = TextBox2.Text .Cells(cnt, 10) = TextBox3.Text .Cells(cnt, 11) = TextBox4.Text .Cells(cnt, 8) = TextBox5.Text .Cells(cnt, 9) = TextBox6.Text .Cells(cnt, 15) = TextBox7.Text cnt = cnt + 1 .Cells(cnt, 13) = Activate End With UserForm1.TextBox1.Text = "" UserForm1.TextBox2.Text = "" UserForm1.TextBox3.Text = "" UserForm1.TextBox4.Text = "" UserForm1.TextBox5.Text = "" UserForm1.TextBox6.Text = "" UserForm1.TextBox7.Text = "" UserForm1.Combobox1.Text = "" UserForm1.TextBox1.SetFocus End Sub '終了ボタン Private Sub CommandButton2_Click() Unload Me End End Sub 'コンボボックス Private Sub userform_initialize() cnt = 4 With UserForm1.Combobox1 .AddItem "ＡＡＡＡ　11111111111" .AddItem "ＢＢＢＢ　22222222222" .AddItem "ＣＣＣＣ　333333333" .AddItem "ＤＤＤＤ　444444" .AddItem "ＥＥＥＥ　5555555555" .AddItem "ＦＦＦＦ　666" .AddItem "ＧＧＧＧ　7777777" .AddItem "ＨＨＨＨ　88888" .AddItem "ＩＩＩＩＩ　999999999" .AddItem "ＪＪＪＪ　0000000000000" .AddItem "ＫＫＫＫ　1111" .AddItem "ＬＬＬＬ　222222" .AddItem "ＭＭＭＭ　3333" End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する