- ベストアンサー
Excel VBAでのプログラム作成方法
- Excel VBAでのプログラム作成方法を初心者向けに解説します。
- Excelの表にデータを表示し、ボタンを押すと次のデータが表示されるプログラムの作り方を紹介します。
- Excel VBAを使用して、表のデータを操作するプログラムの作成方法を詳しく解説します。
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- VBAでのプログラム
AccessにてExcelのファイルをインポートしてA,B,C・・・ という複数のテーブルを作成しました。でそのテーブルからA-1,A-2,B-1,B-2・・・というクエリを作成し、それからオートフォームで個別に表示できるフォームをそれぞれ作成しました。 ここからが質問なのですが、上記のファイルをフォームを 作成して検索できるようにしたいと思い、フォームは作成できたのですが、それに対応するアクションのプログラム がわからないのでご存知でしたら教えてください。 まず2つのチェックボックスで*-1,*-2とクエリ、フォームを選択し、コンボボックスでA,B,C・・・を選択して、コマンドボックスでボタンをクリックすると希望どおりのクエリかフォームが表示されるといった具合です。 かなりわかりづらいと思いますが、補足をさせて頂きますのでよろしくお願いします。
- 締切済み
- Visual Basic
- excel vba 作成方法
現在大学2年生です。課題の提出をしたいのですが、excel vbaがよく分かりません。心優しい方、回答をお願いします。 コンボボックスで1945年から2011年の一つを選び、チェックボックスで男か女のどちらかを選び、コマンドボタン「結果」をクリックすると、テキストボックス３つ「年齢」「干支」、（チェックボックスで男か女を選択）「平均寿命はあと何年」の値が入るというプロブラムを作りたいです。 コンボボックスはsheetのA2～Ａ68の値から選択するというところまではできました。テキストボックスの年齢はsheetのＣ２～Ｃ６８，干支はＤ２～Ｄ６８、チェックボックスで男を選んだ場合はＥ２～Ｆ６８，女を選んだ場合はＧ２～Ｇ６８が、コマンドボタンを押した瞬間に出るというプログラムは可能でしょうか？ パソコンが苦手です。分かりやすく教えていただけたら本当に嬉しいです。よろしくお願いします！！
- 締切済み
- Visual Basic
- エクセルVBAでコマンドボタンをクリックし、連続入力する方法。
初めまして。仕事の書類を作っている最中に壁に当たったのでご質問させていただきました。 早速ですが本題に入りたいと思います。 ユーザーフォームを使用してテキストボックスを使い3つのテキストボックスに入力を終えた後にコマンドボタンを押してセルB2,C3,D4に表示するとします。（下図のように） A B C D E 1 2 あ い う 3 4 5 6 このとき、また違う文字をテキストボックスに入力し、登録した場合、 B列,C列,D列の最終行+1にどんどん入力していくというコードは調べてわかったのですが、下図のように上下とも既に文字列が入っていて、この間セル（B3:B6,C3:C6,D3,D6）に上から順にコマンドボタンを押す度どんどん入れていくためのＶＢＡはどうなるのでしょうか？ A B C D E F 1 2 s d f d 3 4 5 6 7 f f f f 8 9 10 ちなみにこの場合だと8列目もしくは変なところに飛ぶと思うのですが…。 どうぞよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 入力値をListボックスに表示させたい。
(仕様1) ユーザーフォーム1でテキストボックス1~5に 入力した値をListボックスに表示させたい。 例えば textbox1=A,textbox2=B,textbox3=C・・・ と入力されたら、 A B C D E のように順に横方向一列に表示させるようにしたいです。 (仕様2) これをコマンドボタン1を押す度にリストボックス1に新しく追加されていく 様にしたいのですが、できますでしょうか。 例えば、 A B C D E A C D B E (テキストボックスに入力後ボタン1を押す) A C B D E (テキストボックスに入力後ボタン1を押す)
- 締切済み
- Visual Basic
- エクセル VBA
いつも、皆々様にはお世話になり、大変役立たせていただいております。 エクセルのデータについての質問です。 セルごとに A,B,C,D,E...... イ,ロ,ハ,ニ,ホ,ヘ,ト... と並んでいるデータがあるとします。 それをテキストデータとして取り出して、 A B C D E . . イ ロ ハ . . . と 各データを改行して取り出すことは可能でしょうか。 行列の変換ではありません。 各セルのデータをひとつずつ取り出して、 テキストデータとして１行ずつ取り出す方法なのです。 VBAで別のシートに１個ずつデータを移して、 ちまちまやっていれば出来そうなのですが、 一発でやる方法はないでしょうか。 よろしくお願い申し上げます。 なぜこのようなことが必要かと申しますと、 歯科のレセ電のプログラムの一環であります。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBAで行うVLOOKUPについて
エクセル2000を使用しています。 いまいろいろVBAを使用してますが、わからないことがあります。 シート1に入力データ、シート2に参照のデータ USERFORM を使用し たとえばテキストBOX1にコードAと入れるとテキストBOX2に東京支店と表示し確認をできるようにしたいのです。東京支店は、シート2の参照データから引用してきます。 BOX1にAと入れてエンターを押した時点でVLOOKUPを実施させたいのですがいまいちわかりません。 シート2は A列にコード A,B,C,D,.... B列に東京支店、千葉支店... よろしくお願いいたします
- 締切済み
- オフィス系ソフト
- エクセル２００３のフォームを作成しています。
エクセル２００３のフォームを作成しています。 ２点質問があります。 (1) UserForm1にテキストボックス１と２ マルチページの中にテキストボックス３と４があります。 エクセルのシート名はSheet1です。 一例） マルチページ１ テキストボックス１：A100 テキストボックス２：山田太郎 テキストボックス３： テキストボックス４： マルチページ２ テキストボックス１：A100 テキストボックス２：山田太郎 テキストボックス３： テキストボックス４： マルチページ３ テキストボックス１：A100 テキストボックス２：山田太郎 テキストボックス３： テキストボックス４： マルチページ４ テキストボックス１：A100 テキストボックス２：山田太郎 テキストボックス３： テキストボックス４： マルチページ５ テキストボックス１：A100 テキストボックス２：山田太郎 テキストボックス３： テキストボックス４： エクセルのシート(Sheet1)には Ａ Ｂ Ｃ Ｄ Ｅ A100 山田太郎 木村 5000円 担当１ A100 山田太郎 村田 6000円 担当２ A100 山田太郎 江崎 3000円 担当３ A200 田中花子 吉田 4000円 担当１ A200 田中花子 鈴木 1000円 担当２ とデータが続いています。 UserForm1に読込というボタンがあるのですが、クリックしたらシートの Ａ列でA100、Ｂ列で山田太郎、かつＥ列で「担当１」の行の Ｃ列の名前をテキストボックス３、Ｄ列の金額をテキストボックス４ に表示させるにはどのように書けば良いのでしょうか。 ページ２は、ボタンではなく、ページをクリックした時に 上記と同様のイベント Ａ列でA100、Ｂ列で山田太郎、かつＥ列で「担当２」の行のＣ列の名前を テキストボックス３、Ｄ列の金額をテキストボックス４に表示、 ページ３は、２と同様ページをクリックした時に Ａ列でA100、Ｂ列で山田太郎、かつＥ列で「担当３」の行の Ｃ列の名前をテキストボックス３、Ｄ列の金額をテキストボックス４ に表示、 以降のページも上記と同様のことをさせたいと思っています。 マルチページは５ページありますが、必ずしもシートに担当５まで あるわけではなく、A100 山田太郎のように、担当が１から３しか シートにデータがない場合は、マルチページの４と５は空欄に ならなければなりません。 (2)ページのタブをクリックした時のイベントの書き方が分かりません。 ページをクリックした時のイベントは、こちらで同じような質問を されている方のを見て、タブをクリックした時のコードをコピーして みまして試してみましたが、無反応でした。 Private Sub MultiPage1_Click(ByVal Index As Long) 'Page2がクリックされた場合 If Index = 1 Then Load UserForm1 With UserForm1 .StartUpPosition = 0 .Top = 50 .Left = 20 .Show End With End If End Sub 分かりづらい説明で申し訳ありませんが、どなたか教えていただけ ませんでしょうか。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA及び関数
初心者です。お教えお願いします エクセル2003です 空白行及び0をなくしたいのですが（C列を入力された時点で自動でE列のようにしたい） 関数の場合及びVBAのシートコードを両方教えていただけないでしょうか VBAのコードは勉強の為です Sheet1 A B C D E F 16 文字A 文字A 17 文字B 文字B 18 0 文字C 19 文字C 文字D 20 0 文字E 21 文字D 文字F 22 23 文字E 24 25 文字F 文字はC16～C80まで入っております B16～E80までのセルのみで行いたいのですが 他の場所は関数やグラフ等がすでに入ってますのでいじりたくありません E16～をフォームのコンボボックスのリストにしようと思ってます よろしくお願いましす
- ベストアンサー
- オフィス系ソフト
- Excel VBA グラフ作成
グラフを複数、自動で作成しようと思っています。 データは、 がっつり A １ B ３ C ５ D ８ E １０ しっとり A ３ B ５ ・ ・ ・ 最初に「しっとり」などのような項目名が記してあり、 その後5行はデータになっています。 Aを選択した人が3人、Bを選択した人が5人などの意味です。 A2からデータが入っており、 グラフを作る個数は決まっておらず、表の個数により作成したいと思っています。 「Sheet1」にグラフを自動で作成するにあたり、 ３つ質問があります。 マクロに「SampleGraphという名称で作ってみました。」 ----------------- Sub Sample_Graph() Dim i As Long Dim SampleChart As Shape i = 2 Set SampleChart = Worksheets("Sheet1").Shapes.AddChart With SampleChart.Chart .SetSourceData Range("'Sheet1'" & "A" & i + 1 & ":" & "B" & i + 6) .ChartType = xlColumnClustered .HasTitle = True .ChartTitle.Text = Range("A" & i) End With i = i + 7 End Sub ------------------------------ 質問１ 実行すると、Set SampleChart = Worksheets("Sheet1").Shapes.AddChartのところで エラー438が出ます。どうしてこのエラーが出るのでしょうか？ フォームにプログラムを書いて組んでいるのですが・・・ （フォームのボタン１をクリックしたら実行するようにしています） 質問2 グラフのサイズを決め、個数によって配置を変えたりしたいです。 Inputboxを使い、 ”何列にしますか？”というメッセージを表示 そして、数値を入力すると 3列でグラフ表示される 質問3 図のように、項目名とは別に 「Yes」「No」などを表示させたいです。 データに含むとおかしくなりますし、 かといってタイトルや系列名を変えることも難しいかと。 何か良い方法はありませんか？ 以上、質問3点長々と書かせて頂きました。 分かりにくい点が多々ありますが、よろしくお願い致します。 せめて、グラフを作れるようにはなりたいと思っています！
- ベストアンサー
- Excel（エクセル）
- エクセルVBA
初心者です エクセル2003 ユーザーフォームのコンボボックスの連携について教えてください Seet1 A B C D E F 1 種類1 商品1 商品A 商品あ コンボ1 2 種類2 商品2 商品B 商品い 3 種類3 商品3 商品C 商品う 4 種類4 商品4 商品D 商品え コンボ2 5 種類5 商品5 商品E 商品お (1)コンボボックス1と2を別々のユーザーフォームで配置(ダブルクリックにて表示 F1とF4） (2)コンボボックス1でA列の種類を選択によりコンボボックス2のリストが変わる (3)コンボボックス1で選んだ種類をF1のセルに挿入 (4)コンボボックス2は種類1の場合はB列 種類2の場合はC列 種類3の場合はD列のリストとします (5)コンボボックス2で選択した商品をF4に挿入といった具合です 何度か挑戦しましたが、同一ユーザーフォームにコンボボックス2つは成功するのですが うまくいきません コード及びコード記入場所を教えていただけませんか よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
お礼
大変遅くなりましたが,懇切丁寧な説明を有り難うございました. 書いてあります内容に沿って,プログラムを作り少し手間取りましたが,一応目的のプログラムができました.本当に有り難うございました.