Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13602 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4661】UserForm1で作ったものを貼りたいのですが はじめましてはじめ 03/4/1(火) 15:23 質問
【4666】Re:UserForm1で作ったものを貼りたいのですが Jaka 03/4/1(火) 16:58 回答
【4677】Re:UserForm1で作ったものを貼りたいのですが はじめましてはじめ 03/4/2(水) 12:14 お礼
【4661】UserForm1で作ったものを貼りたいのですが
質問  はじめましてはじめ  - 03/4/1(火) 15:23 -
引用なし
パスワード
   はじめまして。VBというものを知ってからまだ一週間で、
仕事上偶然にもかかわることになり、今日初めてここを見つけました。

少し前に掲載されていた人と似ている立場のようです。
入力フォームをEXCELで作らなければならなくなって、そこで
入力フォームの形だけなんとかUserForm1というところに作ったのですが、
それをSheet1に貼りつけたいのです。
どうか教えてください、お願いいたします。

また、TextBoxに入力したら、Enterキーを押して次のTextBox
を入力するようにしたのですが、Enterキーを押した時点で
Sheat2に入っていくようにすることは出来るのでしょうか。

まずはこれを解決したいと思っています。どうかお願いいたします！
【4666】Re:UserForm1で作ったものを貼りたいので...
回答  Jaka  - 03/4/1(火) 16:58 -
引用なし
パスワード
   こんにちは。
ユーザーフォーム上で
右クリック　→　タブオーダー　で、
TextBox1
TextBox2
の順で並んでいれば、日本後の場合TextBox1入力確定後、数字英文字の場合は入力直後にEntキーをたたけばTextBox2にフォーカスが自動で異動してくれます。

TextBox2のコード

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　Worksheets("Sheet2").Range("A1").Value = TextBox1.Value
　　Worksheets("Sheet2").Range("A2").Value = TextBox2.Value
End Sub

では。
【4677】Re:UserForm1で作ったものを貼りたいので...
お礼  はじめましてはじめ  - 03/4/2(水) 12:14 -
引用なし
パスワード
   Jaka さん、ありがとうございました。
フォームを出したいというのは解決しました。
　　UserForm1.Show
を使うことが分かりました。

タブオーダーで、順番どうりに並んでいます。
ちょっとやってみます。どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13602 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free