• ベストアンサー

EXCEL TEXTBOXにカーソルを移動したい

EXCEL2000にて、シートの上にTEXTBOX(コントロールボックス ツールにて作成)を貼り付けています。 エラーチェックを行い、エラーの場合、TEXTBOXへカーソルを移動させたいのでヒントをお願いします 試した事） (1)worksheets("sheet1").TEXTBOX1.select→TEXTBOXの定義がアクティブになり、カーソルが移動しない 試した事） (2)worksheets("sheet1").TEXTBOX1.Activatet→TEXTBOXフィールドが非表示になる よろしくお願いします

  • Koba5
  • お礼率81% (96/118)

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

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.2

No.1です 1) Windows98-Excel2000 2) WindowsXP-Excel2002 で試しましたが、こちらでは問題なくテキストボックス内に カーソルが移動しています。 新規ブックでテキストボックスを一個設けて Worksheets("Sheet1").TextBox1.Activate を試してみては如何でしょうか

Koba5
質問者

お礼

watabe007さん　 わざわざテストありがとうございます。 再度行った場合、素で行うとできましたが、 様々な機能を組込んだ場合は、できませんでした（フィールドが消える） いろいろ試行してみます。ありがとうございました

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

>(2)worksheets("sheet1").TEXTBOX1.Activatet 　　　Worksheets("Sheet1").TextBox1.Activate

Koba5
質問者

お礼

watabe007さん　 回答ありがとうございます EXCEL2000の場合、Activateでは、フィールドが消えます EXCEL2007の場合、Activateでは、カーソルが移動します EXCEL2000なので、困っています

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • EXCEL2003でカーソルの移動

    EXCEL2003を使っています。 たとえばsheet1のC3セルに「AAA」という文字を入力しておいて、 その文字をクリックしたら、sheet2のE5セルにカーソルが移動する、 ということをしたいのですが、マクロを組まないといけないのでしょうか。 この操作をした時には、当然sheet2が表示され、 カーソルがE5セルにカーソルが移動しているものとします。

  • Excelで特定のセルのみ移動し入力したいのですが。

    Excel2000を使用しています。シートに保護をかけて特定のセルのみに入力できるように設定することまではできたのですが、その特定のセルのみにカーソルを移動させる方法はありますか？例えば、表の行を入力しないセルにはカーソルを移動させないようにして、行末のセルまでいくと次の行に改行されるようなことです。コントロールツールボックスのプロパティのEnableSelectionの項目を1_xlUnlockedにしてみると特定のセルのみ移動させることはできるのですが、保存してブックを閉じてしまうとその設定が解除されてしまうようです。マクロは複雑そうなので何か別の簡単な方法があればどなたかご教示ください。

  • Excel VBA tabキーでtextを移動

    Excelシート上のテキストボックスやコンボボックスに入力後、TABキーで次のボックスに移動することを考えています。 keycode＝９でTABキーを検出し textbox1.activate　としてもtextbox1にカーソルが立ちません。 TABキーで移動して即入力できるようなプログラムはできないでしょうか？

  • ｅｘｃｅｌ　カレンダーコントロールを使ってカーソル移動

    お世話になります。 現在、ｅｘｃｅｌでスケジュール帳を作成しています。 １枚のシートで１年分です。 そこで、何かの方法を使って 日付を選択→その日付にカーソル（フォーカス？）を移動させたいと思っています。 ユーザーフォームを他で使用するので、そこに日付の選択も付け加えようとしています。 １．テキストボックスに日付を入力させる。 テキストボックスを日付設定することが、まず難しそうなので断念。 ２．カレンダーコンロールを発見。 これなら日付を選ぶだけ。 ただし、どうやってそれをカーソル移動に反映させるかがわからず。。 ネットで調べましたが、自力では解決できませんでした。 アドバイスお願いします。 ＸＰ、ｅｘｃｅｌ２００７使用中。

  • Excel保護設定後のカーソル移動について

    よろしくお願いします。（Excel2000使用です） 過去の質問で学んだのですが、 カーソルを保護ロックしたセルにいかないように、「コントロールツールボックス」－「プロパティ」から 「EnableSelection」を「1 - xlUnlockedCell」に設定しました。 その時はうまくいったのですが、保存してもう一度開くと、何故か元に戻ってしまいました。 これを、維持できる方法を教えて下さい。（単に私の操作が悪いだけかもしれませんが．．） 要は、保護したセルにカーソルがいかないようにしたいのです。（入力された関数式等を上の方のウィンドウで見られたくないなどの理由があります） 別な方法として、カーソルがいっても関数式が非表示になる方法がありますか？ 初心者です、上よろしくお願いします。

  • ユーザーフォームのカーソル移動

    Excelのマクロでカーソル移動の事で教えて下さい。 フォームを表示するとTextBox1にカーソルが表示されます。 TextBox1で入力の判断しNG場合 カーソルを移動せずTextBox1に表示したいのですが CommandButton1に移動してしまいます。 (SetFocusでTextBox1を指定してNG） 【フォームの内容です】 TextBox1が１個　CommandButtonが２個存在します。 TextBox1のTabIndexは 0 CommandButton1のTabIndexは 1 CommandButton2のTabIndexは 2 【プログラムです】 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = "" Then MsgBox "NG" 　　　　TextBox1.SetFocus End If End Sub 宜しくお願い致します。

  • EXCEL　VBAについて、ワークシート上に置いたTextBoxに値を入れる方法について

    すいませんEXCEL VBAについて質問があります。 エクセルのワークシート上にコントロールツールボックスから テキストボックスを２つ、コマンドボタンを１つ設置する。 アクティブになっているテキストボックスに”goo”という値を入れる。 これをVBAで処理するにはどうしたらよろしいのでしょうか。 ユーザーフォームのテキストボックスであれば Private Sub CommandButton1_Click() Dim i As Object Set i = ActiveControl If TypeOf i Is MSForms.TextBox Then i.Text = i.Text & "goo" End If Set i = Nothing End Sub これでできるはずですが、シート上に置くテキストボックスだと うまくいきません。 よろしくお願いいたします。

  • TextBoxに連続で入力する方法

    Form1に、TextBox1とTextBox2を配置しています。 TextBox1にKey入力を受け、Enter Keyで取り込む動作を、連続して行うためのプログラムを作ってみましたが、何故かEnter Keyの後、カーソルがTextBox2に移動してしまいます。Enter Keyの後、TextBox1.SetFocusで、カーソルをTextBox1にしているのですが何故が解らず困っています。Enter Kyeの後、カーソルがTextBox1に戻るようにするには、どのようにすれば良いのか教えて下さい。 PC環境は、OS=Win10 Excel=2010 です。作ったプログラムは以下の通りです。よろしくお願いします。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Sheets("Sheet1").Range("A1") = TextBox1.Value TextBox1 = "" TextBox1.SetFocus End If End Sub

  • TextBoxに入力した文字をExcelに書き込むには？

    VB2008を使用しています。 VBフォーム内のTextBox1に入力した内容（例　りんご）をBottanを押すことによりExcelの指定したセル（例　A1）に書き込んで保存する方法はありますでしょうか？ 現在、以下のところまでは出来ています。 ' excelを定義 Dim excel As New Microsoft.Office.Interop.Excel.Application ' excel testをファイルから開く Dim book As Microsoft.Office.Interop.Excel.Workbook book = excel.Workbooks.Open("C:\test.xls") ' １枚目のワークシートを取得 Dim sheet As Microsoft.Office.Interop.Excel.Worksheet sheet = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet) Excelの開放からsheetの取得までは出来たのですが、ここから先がわかりません。よろしくお願いいたします。

  • ＶＢ2005のカーソルのフィールド移動時の設定

    VB2005で開発中です。 カーソルが移動してきた時の動作を指定するにはどうしたらいいでしょうか？ ＡＣＣＥＳＳでいうと、ツール-オプション-キーボードの中で、フィールド移動時の動作というところで、・フィールド全体を選択する・フィールドの先頭に移動・フィールドの最後に移動という選択が出来る場所です。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する