Excel VBAテキストボックスを作成後カーソルを合わ。>テキストボックスを作成後、カーソルを合わせたい。【VBA】テキストボックスを作成後、カーソルを合わせたい

下記のようなコードを作成しました
独学であまり詳しくありません アクティブセルにテキストボックスを作成後、そのまま文字入力できるように
カーソルを合わせたいのですがなかなかうまくいきません
(setfocusやactive等、構文が変なのかエラーがでます)

①あくまでオートシェイプのテキストボックスで作成です
②コードの”文字入力”をはじめにテキストとして入れるかは未定です
(空白でそのまま入力しやすくするか、”文字入力”を入れておいて誤作成で気づかぬまま
放置してしまわぬようにするか未定です)

詳しい方、よろしくお願いいたします

Sub テキストボックス作成()

ActiveSheet Shapes AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=ActiveCell Left, _
Top:=ActiveCell Top, _
Width:=Range("A1") Width, _
Height:=Range("A1") Height) Select

With Selection
Font Size = 8 & x27;フォントサイズ
ShapeRange Line Visible = False & x27;枠線なし
ShapeRange Fill Visible = False & x27;背景色なし
AutoSize = True & x27;自動でサイズ調整
Text = "文字入力" & x27;テキスト文字 ②
End With

End SubエクセルExcel大事典。コントロール,テキストボックスコントロール,,,
,,で新しい行が作成されます。この例
では。コントロールにカーソルを合わせるとカーソル形状が砂時計に変更され
ます。

Excel。テキストボックスのサイズを入力された文字列に合わせて自動で拡大縮小するか
を設定します。 値, 内容 , 自動でサイズ変更しません。既定値 ,
自動でサイズユーザーフォームでTextBox1にカーソルを移動したい。マウスカーソルが上のテキストボックスに移動するようにしたいと
思っております。エクセル テキストボックスへのセットフォーカス
についてでユーザーフォームを再表示させたい。エクセルのを使っ
てシート上のテキストボックスのテキストを取得?変更するマクロを作成したい
と思っていますがうまく行きませんので。お知恵を拝借したいとおもいユーザーフォームのテキストボックスの入力順序を指定する。キーを押して入力したい順番にカーソルが動かなくてイラついたこと
ありませんか? オリジナルの入力画面を作った時に。テキストボックスに順番に
データ入力を行いたいのに。それなのにバラバラにのユーザーフォームで
カレンダーを作成して日曜祝日ならば赤色。土曜日は青色?と祝日取得判定をし
てコマンドボタンの色を変えて見栄え良くしませんか?テキストボックスや
コマンドボタンの大きさ?位置を合わせて綺麗に配置できるように簡単な設定を
しましょう

>テキストボックスを作成後、カーソルを合わせたい。あまりお勧めではありませんが、SendKeysを使うぐらいしか無さそうな気がします。試行錯誤の結果ですので、あなたの環境でもうまく行くかどうかは分かりません。End With の後、End Sub の前に以下の一行を入れてお試しください。SendKeys{BS}+{HOME}Spaceキー、Backspaceキー、Shiftキー+Homeキー です。ご希望のこととは少し違いますが、このような方法はいかがでしょうか。.Text = 文字入力 'テキスト文字.②↓.Text = InputBox文字入力 If .Text =Then .DeleteEnd If

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です