- ベストアンサー
Excel2003VBA「ユーザーフォーム」
お世話になります。 今、ユーザーフォームを作成中なのですが まず フォームを先に作成しました。 この後で それぞれの項目にコードを入れていけばよいのかな?と思って先に入れ物だけ作ったのですが 手順としは こういった感じで良いのでしょうか? ちなみにExcelのシートには直接入力出来ないようにして、フォームに入力させる為に まず一旦リストを非表示にしてボタンのみ(「フォームを表示ボタン」)表示をし、 フォームの入力に従ってリストに反映させたいのですが、勉強し始めの自分にはハードルが高過ぎるでしょうか? 作成したフォームは添付の通りです。 ご感想、その他 ご教示いただける内容等々、宜しくお願い致します。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- EXCEL VBAでユーザーフォームを使ってデータを入力したい。
EXCEL VBAでユーザーフォームを使ってデータを入力したいと思っています。(ユーザーフォームはできています。) 入力項目が4項目あります。 名前 作業コード 開始時間 終了時間 上記4項目と登録ボタンです。 sheet1にユーザーフォームを表示し sheet2の A1に名前 B1に作業コード C1に開始時間 D1に終了時間が 登録ボタンを押すごとに どんどんデータを記録していきたいのです。 VBA初心者ですのでコードがよくわかりません。 ご教授ください。よろしくお願いいたします。
- 締切済み
- その他(ビジネス・キャリア)
- VBAのユーザーフォームの使い方
皆様、こんにちは。 VBAのユーザーフォームを習い始めた初心者です。本の説明を読んでもユーザーフォームの使い方がよく分かりません。例えば、あるセールをクリックしたら、フォームが表示される、そしてフォームの中にあるコンボボックスのリストの中から選ばれた値が最初に選択したセールに入力されるという使い方がありえますか?申し可能でしたら、コード作成の例をいただけないでしょうか? どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】ユーザーフォームについて
Excel2003を使用しています。 Sheet1のある範囲のデータをSheet2に(アクティブセルに)コピーするというマクロを作成しました。 データをコピーする際、範囲中のいくつかのセル(2~3箇所ですが)のデータを書き換えて、コピーするときもあるため、変更箇所がある場合は入力モード等の関係もあるので、ユーザーフォームを使って、書き換えるようにしました。 コピー元の範囲を変えただけの同じようなマクロが複数あるのですが、テキストボックスやコンボボックスに入力されたデータをシートへ転記する際のセルの位置が変わるだけなので、ひとつのユーザーフォームを使いまわしというと変ですが、そのようなことはできないのかなと思い、質問させていただきました。 -------------------------------------------------------------- Private Sub CommandButton1_Click() Range("F371").Value = TextBox1.Text Range("N371").Value = ComboBox1.Text Unload Me End Sub 上記コードは、ユーザーフォームのコードの一部ですが、 Range("F371").Value = TextBox.1Text ↓ Range("F397").Value = TextBox.1Text のように、転記先のセルだけ変わればいいので、そのために、同じユーザーフォームをいくつも作るのも…と思った次第です。使いまわしのようなことはできなければ、コピーして作成しようと思っています。 うまく文章に表すことができなくて申し訳ないのですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルVBA ユーザーフォームのボタン
ユーザーフォームにCommandButton1があります ワークシートにもCommandButton2があります ユーザーフォーム上のCommandButton1をクリックすることで、ワークシート上のCommandButton2をクリックするという命令は作れるのでしょうか? ワークシート上のCommandButton2をクリックした後の命令は出来ているのですが、そのコードをコピーしてユーザーフォーム上のCommandButton1のコードにコピーするしかないのでしょうか? 実行ボタン(CommandButton2)をワークシートに作成したので、 ユーザーフォームで入力→ ユーザーフォーム上のボタン(CommandButton1)をクリック→ ユーザーフォームは終了→ ワークシート上の実行ボタン(CommandButton2)をクリック してくれると良いかと思いました よろしくお願いします
- 締切済み
- Excel(エクセル)
- VBAユーザーフォーム
VBA初心者です。ユーザーフォームを作成しシート上に一覧表示をできるように作成しました。(本を見ながらとこちらで質問等させて頂きやっとできました) なので、次にsheet1に一覧表示を作成しているので、sheet2に個別表示の仕方はどうしたらよいか教えて頂きたいです。一人の人の情報量が多く、一人分の資料もほしいのですが・・ユーザーフォームから入力後に一覧と個別とにするのはどうすれば初心者でもできますか? 質問も下手なのでわかりにくいかもしれませんが、教えて頂けたらと思います。
- ベストアンサー
- Visual Basic
- エクセルVBAユーザーフォームからブックへの入力
エクセルVBAでユーザーフォームを作成しました。 それをどうやったらブックに反映させられるのかが分かりません・・ 項目が40以上あります。 シートの任意の場所へ数値を入力させるためのソースを教えて下さい。 また、そういったフォーマットを公開しているところがあれば教えて下さい!! 住所録など入力するサンプルを見たのですが、そのまま項目を変更して使えたらとっても嬉しいのですが・・・ 大至急なのでどなたか力を貸して下さい!! よろしくお願いします。
- ベストアンサー
- Visual Basic
- ユーザーフォーム上での採番のVBAのコード
Excel2007でトラブル履歴シートを作成しています。入力項目が多いので、入力をしやすくする為に、ユーザーフォームを用いた入力フォームを作成しいます。それで、管理方式で管理No.(全体)と発行Noの(月単位管理)が必要になり、エクセルシート(Sheet2)内とユーザーフォーム上に下記の項目を作っています。 B列にトータル管理No. C列に月単位管理No. D列にチェック欄 E列に対策完了日 F列にトラブル発生日 あと、数項目程ありますが、 今回は、ユーザーフォームに作成したテキストボックス(トータル管理No.)にコマンドボタンをクリックしたら、B列の最終番号から次の番号を習得します。 トータル管理No.桁数は4桁若しくは5桁で、全て数字の表記での管理となります。また、発行No.では、月が変わった時に件数が、0001になるようにしたいです。どなたかVBAコードについて教えてください。
- ベストアンサー
- Excel(エクセル)
- Excel2010 VBA
Excel2010でVBAのフォームを使って「コマンドボタン」をクリックしたときにフォーム入力した内容をデータ(リスト)に転記(反映)させたいのですが どのようにしたらいいでしょうか? コマンドボタンの作り方は分りましたがそのマクロを実行する内容(コード)の作り方がいまいちわかません ちなみにデータ(リスト)は上から順番に空白の列を埋められていけばいいです よろしくお願いします
- ベストアンサー
- その他MS Office製品
- VBAでExcelシートもユーザーフォームも閉じる
タイトルのとおりなのですが、ボタンを押すと、Excelシートもユーザーフォームも閉じてExcel自体を・終了するボタンを作成したいのですが、どのような、記述をしたらよいでしょうか? 教えてください。
- ベストアンサー
- Visual Basic
- エクセルVBAのユーザーフォーム
こんばんは、エクセルVBAでユーザーフォームを作成しました。 そこに入力したものがブックに反映するわけですが、フォームに0(ゼロ)を入力した場合、ブック上のセルを選択すると0と入っているのですが、表示されません。なぜでしょう???? これができないとせっかく時間をかけて作ったのに、使えません。どなたかご存知の方よろしくお願いします!!!!
- ベストアンサー
- オフィス系ソフト
- 新型コロナのワクチンも4~5回目となりましたが、皆さん、何回目が一番キツかったですか?
- 私は最近打った4回目が頭痛、全身の痛み、倦怠感、微熱が出てとてもつらかったです・・・
お礼
再登場ありがとう御座います。 なんとなく出来たっぽいです。 投稿時に「ペイント」に「キャプラ」で貼り付けたは貼り付けたのですが 「形式が違うので登録できません」みたいな感じでした。 今回も再度ペイントに貼り付けたのですが今回は名前の下で「JPEG」を選んだので多分出来てると思います。 Printscreenは会社のPCの為、利用不可だと思っていたら何故か出来てしまいました。 でも画像の登録って質問を立てた時にしか出来ないんですかねぇ? このお礼を投稿する時に再チャレンジしてみますが上手くいったらご確認ください。 そして アドバイス等いただけるようであればお願い致します。