| |
こもれびです
>If UserForm1.TextBox1.EnterKeyBehavior = False Then TextBox2
全く不要ですよ。
textboxのEnterKeyBehaviorプロパティは元々（つまり既定値）False
になっており、通常コードのなかで設定することはありません。
それよりも、順次移動したいテキストボックスの「TabIndex」
プロパティはどうなっていますか？
フォームのデザイン画面でテキストボックスを選択した状態で
プロパティウィンドウのTabIndexを確認してください。
入力するテキストボックスの順番に、TabIndexプロパティが
0,1,2,3,4,5・・・・・となっていればEnterキーの操作で次の
テキストボックスにフォーカスが移動します。
それと、先の課題の
「1行目のデータ入力完了」で2行目に…
「2行目のデータ入力完了」で3行目に…
（以降データ数分同じ動作）
は、要するに
各行のデータ入力が完了した時点ではカーソルが
64列目の1行目にあって、これを1列目の2行目に移動したい
ということですね？
これは、先の投稿で書きましたカーソルの移動方法の数字を
変えればよいのです。
（コードの違いは移動先の数字の違いのみ）
よって、上に書きました「1列目の2行目」への移動は
Range("A2").Select
若しくは
Range(Cells(2, 1), Cells(2, 1)).Select
と記述します。
但し、今回はプログラムによる繰り返しとなりそうですから、
2つ目の
Range(Cells(2, 1), Cells(2, 1)).Select
を使用し、行が変化しますから上の「2」を変数とします。
|
|
こもれび
- 04/8/31(火) 7:06 -
