会社の従業員にアンケートをエクセルで送付し、所定の表に回答を入力してもらい、そのエクセルを全従業員(50人)から回収するということを実施しました。
回答フォームは以下の通りでして、同様のフォームに記入された回答が50個のエクセルファイルとして存在します。
配布されたエクセルのフォームは
従業員No. 質問1 質問2
1 ○ A
といった横3列、縦1行の表となっています。
各人のフォームが同じですので、これを50人分自動集計できるマクロを作成したいと思っています。集計したいイメージは以下の通りです。
従業員No. 質問1 質問2
1 ○ A
2 × D
3 ○ C
(間、省略)
50 × B
上記のように自動集計するマクロを作成したいのですが、どのようにプログラミングすればよいか分かりません。
いろいろなサイトを見ましたが、奈何せん初心者ですので理解できませんでした。
どなたか分かる方がいらっしゃいましたら、具体的なプログラムをご教授いただけませんか。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
ちょっと虫がよすぎやせんか
自分で少しは勉強する。
金だすか(専門家に作ってもらう)
手でしこしこ開いてはコピーして1つのファイルに集約してからここに相談する。
No.4
- 回答日時:
#3です。
#3のコードは2002で検証した物を拡張子"xlsx"だけ変更しました。
なので2007だと全く違うものなのかも知れません。
そのバージョンをお持ちの方からの回答を待って下さい。
No.3
- 回答日時:
#1です。
>伊藤一郎.xlsx
たぶん2007なのでしょうね。
もっていないので検証は出来ませんが、
Sub try()
Dim wb As Workbook
Dim ws As Worksheet
Dim r As Range
Dim Pn As String, Fn As String
Application.ScreenUpdating = False
Set ws = ThisWorkbook.ActiveSheet
Set r = ws.Range("A2")
ws.Range("A1:C1").Value = Array("従業員No.", "質問1", "質問2")
Pn = ThisWorkbook.Path & "\"
Fn = Dir(Pn & "*.xlsx")
Do Until Fn = ""
If Fn <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(Filename:=Pn & Fn)
' Sheet1は実際のシート名に変更
r.Resize(, 3).Value = wb.Worksheets("Sheet1").Range("A2:C2").Value
wb.Close False
Set r = r.Offset(1)
End If
Fn = Dir()
Loop
Set r = Nothing
Set wb = Nothing
Application.ScreenUpdating = True
End Sub
コピーを作成してから試して下さい。
従業員Noの並べ替えは行なってません。
ご参考になれば。
試してみましたが、うんともすんとも言いません…。
上記プログラムの内容が全く理解できないので、どのように対処したよいのかもわかりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel使用前提 同じフォルダ内にあるファイルの集約等をマクロでできますか 4 2022/09/06 19:03
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- Microsoft ASP グーグルフォーム 1 2022/12/30 18:16
- Excel(エクセル) MicroSoft Formsの共有について 2 2022/12/29 17:19
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Excel(エクセル) 生産日報と月間集計 3 2022/06/21 22:32
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
拡張子はなぜ、大文字と小文字...
-
パソコンのスキップとは何ですか?
-
vssver2.scc って消してもいい...
-
移動先にも同じファイル名が存...
-
ワードやエクセルのファイル名...
-
ファイルの開き方(拡張子なし)
-
ファイルのタイトル一括変更
-
windows (ウィンドウズ) の 「...
-
Windowsに謎のファイルがデスク...
-
任意のフォルダを選択し、その...
-
プロパティの「所有者」の削除
-
白い書類のアイコン。どうすれ...
-
Pagesで、PDFをうまく挿入したい
-
i Movieで読み込んだはずの動画...
-
ZIPファイルの関連付け?が、変...
-
NOTEPAD++の関数リストはC#には...
-
Microsoft Excel previewer に...
-
ユーザープロファイルで最終ロ...
-
microSDに画像を移動させようと...
-
vi 続けるにはENTERを押すかコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
拡張子はなぜ、大文字と小文字...
-
フォルダの中に1個しかファイ...
-
パソコンのスキップとは何ですか?
-
vssver2.scc って消してもいい...
-
ファイルの開き方(拡張子なし)
-
windows (ウィンドウズ) の 「...
-
macユーザーです!拡張子「Thum...
-
移動先にも同じファイル名が存...
-
フォルダーのプロパティで表示...
-
Microsoft Excel previewer に...
-
ワードやエクセルのファイル名...
-
ターミナルソフトで全スクロー...
-
Excelの「アクセシビリティ 検...
-
複数のワードファイルで合計ペ...
-
エクスプローラーのピン止めが...
-
MacのFinderでmovファイルのサ...
-
Wordのファイルを開いたとき最...
-
プロパティの「所有者」の削除
-
メモ帳で、それぞれの行で、あ...
-
wav形式の確認方法
おすすめ情報