![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります
今、TextBoxを並べて入力しようとしていますが
EnterKey入力では文字を全部、青く選択するのですが
↑Keyではカーソルが文字の後ろに
↓Keyではカーソルが文字の前に来るだけで青く選択してくれません
これってダメなんですかね、教えてください
一応、質問用にプログラムを用意しました
Sub test()
UserForm1.Show
End Sub
Option Explicit
Dim isw
Private Sub UserForm_Activate()
TextBox1.Value = 10
TextBox2.Value = 20
TextBox1.SetFocu
End Sub
Private Sub TextBox1_Enter() 'テキストボックスに入ったら色変える
isw = 1
With TextBox1
.BackColor = RGB(&H0, &HFF, &HFF)
.SelStart = 0
.SelLength = Len(TextBox1)
End With
End Sub
Private Sub TextBox2_Enter() 'テキストボックスに入ったら色変える
isw = 2
With TextBox2
.BackColor = RGB(&H0, &HFF, &HFF)
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Text) Then
TextBox1.BackColor = RGB(&HFF, &HFF, &HFF)
ElseIf TextBox1 <> "" Then
MsgBox ("数値以外の文字が入力されています")
TextBox1 = ""
Cancel = True
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox2.Text) Then
TextBox2.BackColor = RGB(&HFF, &HFF, &HFF)
ElseIf TextBox2 <> "" Then
MsgBox ("数値以外の文字が入力されています")
TextBox2 = ""
Cancel = True
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Call chkFKey(KeyCode)
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Call chkFKey(KeyCode)
End Sub
Private Sub chkFKey(ByVal KeyCode As MSForms.ReturnInteger)
If KeyCode = vbKeyReturn Then
If isw = 2 Then isw = 0
With Me.Controls("TextBox" & isw + 1)
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
ElseIf KeyCode = vbKeyDown Then
If isw = 2 Then isw = 0
With Me.Controls("TextBox" & isw + 1)
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
ElseIf KeyCode = vbKeyUp Then
If isw = 1 Then isw = 3
With Me.Controls("TextBox" & isw - 1)
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
長くてすみません
以上、宜しくお願い致します
![「Vba SelStart、SelLen教」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/542392248_6629ffacef429/M.jpg)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが 1 2024/03/07 16:21
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA listBoxについて 2 2024/03/26 16:14
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです 3 2024/02/05 22:10
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
-
4
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
5
VBAなくなるの?
Visual Basic(VBA)
-
6
プログラミング
Visual Basic(VBA)
-
7
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
8
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
9
VBA指定行削除
Visual Basic(VBA)
-
10
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
11
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
12
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
13
VBA初心者 Ctrl+での操作、ボタンに登録での操作
Visual Basic(VBA)
-
14
VBAの計算で@が出てしまう件
Visual Basic(VBA)
-
15
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16
エクセルVBAについて
Visual Basic(VBA)
-
17
VBA 複数のエクセルから一つのエクセルに貼り付ける
Visual Basic(VBA)
-
18
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
-
19
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
-
20
VBA SaveChanges 上書きされない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「終了していない文字列型の定...
-
エクセルVBA/ Formatで文字列が...
-
コメント削除/圧縮/難読化
-
グローバル変数とローカル変数...
-
JavaScriptで、実行するたび値...
-
javascriptでエクセルデータ読...
-
htmlのfileタグに自動で値を入...
-
表示ページによって、aタグ内の...
-
既存のwebサイトで、ローカルの...
-
ブラウザからエクセルを開く方法
-
PowerPointで時計表示
-
contenteditableで編集した内容...
-
alert()が実行できない
-
ページを一回だけリロードさせ...
-
Webページ中の javascript をVB...
-
javascriptでフォルダ内のファ...
-
1つのVBAコードをすべてのコア...
-
IE6だけエラーになる???『:...
-
javascriptからサーバサイドの...
-
HTML上(javascript)からCGIを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NET2003 テキストボックスに...
-
「終了していない文字列型の定...
-
gas 全角数字を半角数字に変換
-
正整数の半角数字かどうか判定する
-
Vba SelStart、SelLen教えてく...
-
javascript 文字列の最後から1...
-
ハイフンだけ置換したい。
-
禁止文字チェック
-
C#でTextBoxに数値のみ入力可能...
-
Visual Basic 6.0 のテキストボ...
-
正規表現について
-
VBAによる第3、4水準文字の判定...
-
エクセルVBA/ Formatで文字列が...
-
VC#でテキストボックスに変数の...
-
エクセル 半角英数6文字以上 ...
-
CListCtrl の特定のセル(アイ...
-
Javascript 全角カナ+半角スペ...
-
JavaScriptに関する質問です。 ...
-
Excel VBA カタカナ セル判定...
-
文字認証の問題
おすすめ情報