- ベストアンサー
VBAプログラムを教えてください
Sheet1のA1セルに○と入力した時にSheet2のB２～B１０セルのデータをSheet1のA2～A10セルにコピーするプログラムを教えてください。
- kanayuu
- お礼率10% (2/20)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- VBAプログラムを教えてください２
A1セルに１を入力したときにA5セルにシート２のA10セルの値を入力、A1セルにBを入力したときにはA5セルにシート２のB10セルの値を入力したいのですがどういうプログラムを組めばいいのでしょうか教えてください。
- ベストアンサー
- Visual Basic
- ＶＢＡにてデータを振り分けたい。
２つのシート（sheet1、sheet2）があり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） Ａ Ｂ Ｃ Ｄ （行） １ 山 川 地 空 ２ ○ △ × □ ３ ア イ ウ エ (1)ユーザーフォームを作成し、その中にコンボボックスを作成して山を入力する。 山は、セルＡ１へ、川は、セルＢ２へ、地は、セルＣ３へ、空は、セルＤ１、それぞれ 決められたセルにコピーされる（すべてsheet1へコピー）。 (2)にコンボボックスにて○を入力する。○はセルＡ１へ、△は、セルＢ２へ、×は、 セルＣ３へ、□は、セルＤ１へ、それぞれ決められたセルにコピーされる（すべて sheet1へコピー）。 ちなみに(1)と(2)のコピーされるセルの位置は同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、まだよくわかりません。 出来れば、sheet1のセルに数式などを入力したくはないのですが．．．。 どうか皆様のご指導を宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ExcelのＶＢＡにてキーになるものを入力すると、その関連データを振り分ける
２つのシートがあり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） １ ２ ３ （行） １ Ａ Ｂ Ｃ ２ ○ △ × ３ ア イ ウ (1)sheet1にコンボボックスにてＡを入力する。ＡはセルＡ１（固定）に、ＢはセルＣ３（固定）に、Ｃは、セルＥ５にそれぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○はセルＡ１（固定）に、△は、セルＣ３（固定）に、×は、セル（Ｅ５）にそれぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAにてキーになるものを入力してデータを振分けたい
２つのシートがあり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） １ ２ ３ （行） １ Ａ Ｂ Ｃ ２ ○ △ × ３ ア イ ウ (1)sheet1にコンボボックスにてＡを入力する。Ａ、Ｂ、Ｃは、それぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○、△、×は、それぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのプログラム
A.xlsからB.xlsのファイル（最初はA..xlsのみが開いています）へのデータ転送をしたいのですが、プログラムが組めません(>n<) すみませんが誰か助けてください。 行いたい作業は以下の通りです。 ※デスクトップにあるB.xlsを開く ※A.xlsのセル「A1～A5」をコピーしてB.xlsのAの列の列で空欄の行を見つけて、列と行を入れ替えて貼り付ける（もしB.xlsのA10までデータが入力されていたら、貼り付ける場所はA11～F11になります） ※B.xlsは作業終了後自動保存して閉じる その際に ※A.xlsのセル「A1」にはデータ名が記入されているのでB.xlsのAの列にその名前があれば、そこに上書きする形にしたい。 ※A.xlsのA2のセルには「55,23」のように二つの数字が「,」でつながって入力されているので、B.xlsに貼り付けるときには、二つのセルにわけてそれぞれの数字を貼り付けたい。 お手数おかけしますがよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAについて
いつもお世話になっています マクロ・ＶＢＡ超初心者です。 質問させてください。 現在シート1の完売のセルの欄に○が入っていれば日付をみてシート2の同じ日付の隣のセルに○を入力しようと思っているのですが、シート2の日付を検索はしているんですが入力がいきません Ｓｈｅｅｔ１ ↓セルＡ１ ↓セルＢ1 5月26日 26 Ｂ１のセルはＤＡＹ（Ａ１）にて出してます 完売 Ａ氏 ○ Ｓｈｅｅｔ2 ↓Ａ列 ↓Ｂ列 5月 1日 ・ ・ ・ 26日 ○ ←シート１の所に○が付いているとシート１セルＢ１と同じ 27日 日付の隣のセルに○を入力 28日 ＶＢＡ Sub test() Sheets("Sheet2").Select Range("A1").Select Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Activate If ActiveCell.Value = Worksheets("Sheet1").Range("B2") Then ActiveCell.Offset(0, 1).Activate If ActiveCell.Value <> "○" Then ActiveCell.Valu = "○" ActiveCell.Offset(0, -1).Activate Else ActiveCell.Offset(0, -1).Activate End If Else End If Loop Sheets("Sheet2").Select Range("A1").Select End Sub どこが間違っているかわからない状態です。 分かりにくい説明ではあるんですが教えてください お願いします。
- 締切済み
- オフィス系ソフト
- エクセル vba
VBA初心者です。 sheet2にb1からb2、b3とデータを入力していきます。 （常に最新データが下に増えていきます） sheet1のb3へsheet2の最新データ10個を（b3が常に最新データになるよう）貼り付けしたいのですがプログラムの組み方がわかりません。 最初の1個は出るようになりました；； また10個の数字をいつでも変更できるようsheet1のb1のセルに10と入力 すれば10個貼り付け、20と入力すれば20個貼り付けなども可能でしょうか?
- 締切済み
- Visual Basic
- EXCEL2010 VBAで空白行以外をコピー
EXCEL2010を使用しています。 シートAではセルA1からA10に順にデータを入力していきます。 A1からA10のすべてにデータを入力する場合やA1からA4のみデータを入力する場合等があります。 このA1からA10のデータをシートBのA1からJ1にコピーしたいと思っています。 空白以外のデータをコピーして、コピー後はシートBのA1:J10で空白の列は削除したいと 思っています。 (例) シートA A1 ○ A2 ○ A3 × A4以降すべて空白 シートB A1 ○ B1 ○ C1 × D1からJ1までは列ごと削除 これをVBAで作成したいのですがどなたか詳しい方押してください。
- ベストアンサー
- その他MS Office製品
- Excelで、少しプログラムのようなことがしたいのですが・・・
『Ａ.csv』と『Ｂ.xls』のように、別々のexcelfile（または、sheet）で、どちらにも同じ項目の『Ｃ』という列があるとします。 その列の入力されているデータ（数値）が一致したとき、『Ｂ.xls』のfile（または、sheet）の『Ｃ』という列のセルにそのデータ（数値）記入させる。 …みたいなプログラムをExcelでしたいのですが、できるでしょうか？
- ベストアンサー
- オフィス系ソフト
- EXCELのデータベース利用について（VBA）
VBA初心者の者です。 下記の様なEXCELファイルを作りたいのですが、どのようにすれば良いのか まったくわかりません。 ACCESSでの構築が簡単なのかもしれませんが、データ量がそれほど多くないことと 職場にACCESSがないため、可能であればEXCELで構築したいと考えています。 私自身、プログラムの知識がなく、EXCEL VBAのサイトを確認するのですが、いまいち どうすれば良いのかわかりません。 ぜひご教授の程よろしくお願いします。 3つのシートの構成は以下になります。 【入力シート】 A1セルに文字列（A～Z）入力欄 【○○データシート】 A列に A～Z の文字列 B列に 001～100までの数値 C列に 001～100までの数値 D列に 001～100までの数値 E列に 001～100までの数値 例） A列 B列 C列 D列 E列 1 A 001 2 B 001 002 003 004 3 C 003 4 D 002 003 【▽コマンドシート】 A列に 001～100までの一意の数字 B列に 文字列（コマンド） C列に 文字列（コマンド詳細） 例） A列 B列 C列 1 001 xx blank 2 002 xxx△ xxx 3 003 xxxx x○ 4 004 xxxxx xxx 【欲しいVBA】 １、入力シートのA1セルに○○データシートのA列に該当するA～Zの 文字列を入力。 ２、○○データシートのB列～F列までの数値を参照 ３、2の数値において▽コマンドシートのA列に記載ある番号と紐づけを行い、 ▽コマンドシートのB列、C列に記載がある文字列を入力シートのB列、C列にコピー ※コピー時は▽コマンドシートの書式や体裁情報も含めてコピー。 例としては以下になります。 入力シートの A1セルにDを入力した場合は 入力シート A列 B列 C列 1 D xxx△ xxx 2 xxxx x○ 3 以上、ご教授よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
