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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
FindNextがうまくいかない
-
Excel VBA オートフィルターで...
-
VBA 実行時エラー1004 rangeメ...
-
グラフマクロで系列を変数にす...
-
Excel VBAで、散布図のデータ範...
-
複数シートの複数列に入力され...
-
VBA 空白行に転記する
-
100万件越えCSVから条件を満た...
-
Unionでの他のシートの参照につ...
-
VBAのソースコードを教えて下さ...
-
ExcelのVBマクロを、バックグラ...
-
VBA webクエリをループさせる...
-
VBA 別ブックからの転記の高速...
-
Changeイベントで複数セルへの...
-
Excel2013で切り取り禁止
-
VBAマクロ実行時エラーの修正に...
-
B列の最終行までA列をオート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
マクロ実行後に別シートの残像...
-
VBAで変数の数/変数名を動的に...
-
VBA別シートの最終行の次行へ転...
-
Changeイベントで複数セルへの...
-
アクセスからエクセルへ出力時...
-
VBA 別ブックからの転記の高速...
-
Count Ifのセルの範囲指定に変...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
複数シートの複数列に入力され...
-
楽天RSSからエクセルVBAを使用...
-
Excel2013で切り取り禁止
-
Excel VBA オートフィルターで...
-
Unionでの他のシートの参照につ...
-
VBAを使って複数のシートから抽...
おすすめ情報