- ベストアンサー
VBAでのユーザーフォームの使い方
jindonの回答
- jindon
- ベストアンサー率43% (50/116)
あまりにも質問が漠然としているので.... 例： Uswerform に TextBox x 3 (TextBox1, 2, 3) が配置され 各入力データをSheet1の列 A,B,C にそれぞれ転記 commanbutton1_click() dim i as long with sheets("Sheet1").range("a" & rows.count).end(xlup).offset(1) for i= 1 to 3 .offset(,i-1).value=me.controls("TextBox" & i) next end with end sub me.controls("TextBox" & i)
関連するQ&A
- エクセルのユーザーフォームの作り方で
エクセルのVBAの初歩的なことで教えてください。小学生の子供用の学習ソフトを試作しています。シート１を問題の表示画面とし、シート２に問題のデータを保存しています。学習者はシート１を見て、最初に名前や使った日をユーザーフォームに入力すると、そのデータがシート１の表示されていない下の方のセルに記録されるようにマクロを組んで作りました。そのユーザーフォームを、シート１に作ったコマンドボタン（テキストは「開始」としました）を押すと表示されるようにしたいのです。そのためのコマンドボタンをどのように作ればよいでしょうか。ユーザーフォームの方は、マクロを実行すれば立ち上がり正常に入力（登録）できます。VBAの本を読んで独学で勉強し始めたばかりですので、できればわかりやすく教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルVBA ユーザーフォームの終了について
エクセルVBAでユーザーフォームを作成しています。 コマンドボタンにVBAマクロを割り当てしているのですが 思うように動いてくれないので質問します。 コマンドボタンをクリックしたら望む動作 １、ワークシートを選択 ２、その後、ユーザーフォームを消す。 と言う動作にしたいのですが、２の ユーザーフォームを消す方法、書き方が分かりません どなたか教えていただけないでしょうか １の動作は以下のように書いています。その後の書き方を お願いします。 Private Sub CommandButton8_Click() ブック名 = "VBA演習" シート名 = "sheet1" Workbooks(ブック名 & ".xls").Worksheets(シート名).Activate End Sub （ユーザーフォームの名前は"テストフォーム"としてます）
- ベストアンサー
- オフィス系ソフト
- エクセルのユーザーフォームについて
エクセルのユーザーフォームについて教えてください。 ユーザーフォームにてメニュー画面を作成しました。 ユーザーはメニューからの操作だけでエクセルシートを作成できるようなマクロをつくりました。 ユーザーフォームのコマンドボタンでＥＸＣＥＬを終了させることはできますか？ ＶＢＡの記述方法も教えてください。
- ベストアンサー
- オフィス系ソフト
- VBA ユーザーフォームを使って
簡素化して書きますがエクセルシートのA1からZ100までデータがあります。（行は増え続けます） A1からZ1までの1行のデータをまとめて1画面に表示したくてユーザーフォームで作ってみました。（ラベル使用） ユーザーフォーム上で「次へ」ボタンを作成し、それをクリックすると次は A2からZ2までを表示させたいのですがやりかたがわかりません。 （また、「戻る」ボタンを作成し、それをクリックすると1行上へ戻るようにしたいです） VBAは初心者もいいところでネットで調べまくってやっています。 が、なかなか思うような結果にならずみなさんのお力をお貸しいただきたいと思います。 実際のデータは色々複雑なのでソースをあえて載せていませんのでご了承ください。 こういうやり方があるよって事を教えて頂けたらと思います。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCEL VBAでユーザーフォームを使ってデータを入力したい。
EXCEL VBAでユーザーフォームを使ってデータを入力したいと思っています。（ユーザーフォームはできています。） 入力項目が４項目あります。 名前 作業コード 開始時間 終了時間 上記４項目と登録ボタンです。 sheet1にユーザーフォームを表示し sheet2の A1に名前 B1に作業コード C1に開始時間 D1に終了時間が 登録ボタンを押すごとに どんどんデータを記録していきたいのです。 VBA初心者ですのでコードがよくわかりません。 ご教授ください。よろしくお願いいたします。
- 締切済み
- その他（ビジネス・キャリア）
- エクセルVBA、ユーザーフォーム[×]活用法？
いま、VBAでマクロを作成中なのですが、 ユーザーフォームの右上に存在する×ボタンの使い方がよくわかりません。 マクロのイメージは以下のとおりです。 ユーザーフォーム・オブジェクト ┌─────────────┐ │ 【×】 │←この×ボタンです │ │ │ ┌───────┐ │ │ │ Button1 │ │ Private sub Button1_Click() ・ ・ If Button_×_click Exit sub Else ・ ・ End If End Sub ×ボタンをコマンドボタンのように動作させるイベントマクロを作成するにはどのように コーディングしたらよいのかさっぱりわからずこまっています。 どうかご回答のほどよろしくおねがいもうしあげますm( _ _ )m
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームでのコンボボックスについて。
同じような内容の質問を探したのですが、解決の糸口がつかめず質問させていただきます。 ＶＢＡは初挑戦なんですが、本とネットではなかなか理解しづらいところがあって・・・。 自分の作っているフォームとは多少違いますが、説明を簡単にするために例を挙げさせていただきます。 まずSHEET1において、ユーザーフォームに3つのコンボボックスを配置しています。それぞれ、「月」「日」「曜」とします。 これを、SHEET2においてあるリスト「１～１２」と「１～３１」「月～金」にそれぞれ反映させたいのですが。 それを一つめのデータとして、「月」をＡ１、「日」をＢ１、「曜」をＡ２にそれぞれ配置して、二つめのデータはＡ３から始めたいのですが。 あともうひとつ。 SHEET3に表紙をおいて、コマンドボタンを配置し、そのボタンをクリックすると、SHEET1が開くと同時に、上記のユーザーフォームが出るってコトはできるのでしょうか？ ややこしくてすみません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ユーザフォーム（VBA）で入力した内容をシートへコピーするには
ユーザフォーム（VBA）でテキストボックスとボタンを作成しました。 このテキストボックスに入力した内容をボタンを押すことでシート１のＡ１セルにコピーしたいのです。こんな簡単な感じなのですが、 プログラムはどのようにしたらよいのでしょうか？教えてください。 それと、このエクセルファイルを開き、マクロを有効にするのボタンを押すと思うのですが、そのときにすでにユーザフォームが表示されているようにしたいのですが・・・どうすればいいのでしょうか？ ※できたらでよいのですが、もう一つボタンを作成し『クリア』ボタンということで、テキストボックスに入力した内容だけをクリアさせるボタンも作ろうとおもうのですが、それはどうしたらよいのでしょうか？ 困っています。教えてください。
- ベストアンサー
- その他([技術者向] コンピューター)
- ユーザーフォームを挿入でエクセル強制終了
VBAを初めて、まだ1週間ほどの初心者です。 ユーザーフォームを作成して、シートを他のブックに保存して、 シートを印刷するマクロをボタンに割り当てて使用してました。 先日、ボタンをクリックした所、エクセルが強制終了してしまいました その後、そのブックを開くと、また終了してしまい、一度ユーザーフォームを削除したら、終了しなくなったのですが、Visual Basicから挿入-ユーザーフォームを作成しようとすると、終了してしまいます。 どのブックでも同じ様になってしまいます。 エクセル2000を使用しています。 どの様に対処したらよいか、色々調べましたがまったくわからない状態です。 まだ初心者の為質問に必要な事が抜けているかも知れませんが、 ご存知の方、教えてください。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームを「Esc」キーで消去できるようにしたい。
こんばんは。 エクセル2003で、VBAでユーザーフォームを挿入し、 show modalをfalseにし、 「マクロの実行」でエクセルの画面に戻った時に、 「Esc」キーでユーザーフォームを消去することは不可能でしょうか？ 何かやり方があったら教えて欲しいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。