![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
Excel初心者です。教えてください。
アンケートの集計をしているのですが、
単票形式の入力用シートに入っているデータを、隣のシートに転記していきたいと思っています。
入力シートには会社名と担当者、多数の設問があり、その回答は全てチェックボックス形式です。(非表示のセルにチェックボックスのチェック有り無しをリンクさせています)
隣のシートには既に会社名などの一覧があり、そこの社名が一致する行にそのチェックの有り無しの値を転記用ボタンで転記したいと思っています。
●入力シート
A株式会社
担当:佐藤
設問1・・・ チェックあり
設問2・・・ チェックなし
設問3・・・ チェックあり
・
・
・
●転記先シート
社名 設問1 設問2 設問3
A株式会社 TRUE FALSE TRUE
B株式会社
C株式会社
マクロでどのようにしたらよいでしょうか。
すみませんが教えてください<(_ _)>
よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>転記用ボタンで転記したい
その通りに動作するマクロをボタンに登録、クリックして実行します。
「具体的なマクロの記載」を教えてほしいときは、「具体的なセル番地」とか「具体的なシート名」とかの目に見えるエクセルの情報を、手抜きせずにご相談に書くようにしてください。
「具体的な」説明の書き方の例:
シート名Sheet1のA1セルに会社名を記載している
設問1、2,3のチェックボックスをそれぞれA3、A4、A5セルにリンクしている
フォームコントロールのコマンドボタンをシートに配置している
(アクティブXコントロールのコマンドボタンではないので間違えない事)
各情報を、シート名Sheet2のA,B,C,D列に順番に転記していく
Sheet2は1行目をタイトル行として記入済みで、2行目から順繰り下に記入していきたい。
手順:
ALT+F11を押してVBE画面を出す
挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
sub macro1()
dim r as long
’どこに貼り付けたらいいのか調査
r = worksheets("Sheet2").range("A65536").end(xlup).offset(1).row
’転記
worksheets("Sheet2").cells(r, "A").value = worksheets("Sheet1").range("A1").value
worksheets("Sheet2").cells(r, "B").value = worksheets("Sheet1").range("A3").value
worksheets("Sheet2").cells(r, "C").value = worksheets("Sheet1").range("A4").value
worksheets("Sheet2").cells(r, "D").value = worksheets("Sheet1").range("A5").value
end sub
ファイルメニューから終了してエクセルに戻る
シート1のコマンドボタンを右クリック、マクロの登録を開始、macro1を選んで登録する。
No.1
- 回答日時:
データの抽出ですね。
フィルターオプションと云う機能をご存知ですか。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
を参考にしてみてください。
最後に、マクロのコードがあります。
シートモジュールの Changeに組み込めば
まるで関数が入っているような感じで抽出できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) Excelで質問です! 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外 2 2022/06/14 12:16
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) vba 同じブック内での転記について 4 2023/01/15 14:42
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) 2つの条件に合うセルにデータを転記したい 4 2022/12/02 11:05
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
Count Ifのセルの範囲指定に変...
-
VBA別シートの最終行の次行へ転...
-
100万件越えCSVから条件を満た...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBA 空白行に転記する
-
Changeイベントで複数セルへの...
-
VBAでEXCELから固定長...
-
VBA 実行時エラー1004 rangeメ...
-
エクセルVBA:軸の設定でエラー...
-
VBAで変数の数/変数名を動的に...
-
ExcelVBAでDo Until loopのネス...
-
エクセルのVBAで条件を別シート...
-
別シートから年齢別の件数をカ...
-
VBA Userformで一部別シートに...
-
ExcelのVBマクロを、バックグラ...
-
VBA 別ブックからの転記の高速...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
Count Ifのセルの範囲指定に変...
-
VBA 別ブックからの転記の高速...
-
VBA別シートの最終行の次行へ転...
-
Changeイベントで複数セルへの...
-
複数シートの複数列に入力され...
-
ExcelのVBマクロを、バックグラ...
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
【VBA】特定の条件でセルをコピー
-
100万件越えCSVから条件を満た...
-
Excel2013で切り取り禁止
-
VBAで変数の数/変数名を動的に...
-
アクセスからエクセルへ出力時...
-
Unionでの他のシートの参照につ...
-
グラフマクロで系列を変数にす...
-
Excel VBA オートフィルターで...
おすすめ情報