[[20141209130222]]　『一覧表から個人票作成』（お母さん）　ページの最後に飛ぶ

『一覧表から個人票作成』（お母さん）

いつもお世話になっております。
アンケート一覧表から個人票を作成しようとしているのですが、下記の場合、どのような式をいれると、思うような個人票ができるか教えて頂けますか？

＜一覧表＞　※対象の項目に数字の1が入っています。実際には、２０個程度の質問項目があります。

　個人番号　名前　大変満足　満足　やや不満　不満
　　1Ａ01　　田中　　1
　　2Ｂ02　　佐藤　　　　　　　　　　　1

＜個人票＞　※実際には、1シート１人ずつ表示したいと思っており、そこは、ルックアップ関数？とマクロで　いけそうな感じです。

　　1Ａ01　　田中
　　
　　　　　　大変満足

　　2Ｂ02　　佐藤

　　　　　　やや不満

＜使用 Excel：エクセル2010、使用 OS：ウインドウズ7 ＞

 回答じゃないけど、下の編集ボタン押して
 『』の中にタイトル
 （）の中にニックネーム
 ＜ 使用 Excel：、使用 OS： ＞にバージョン
 例）＜ 使用 Excel：2010、使用 OS：Windows7 ＞

 を書いてくださいね。

（bi） 2014/12/09(火) 13:24

すみません・・・。
前にも同じようなことになったのですが、修正の仕方がわからず・・・。
タイトルは、一覧表から個人票作成
ニックネームはお母さん
バージョンはエクセル2010
オフィスはウインドウズ7です。

よろしくお願いします。
（お母さん） 2014/12/09(火) 13:56

 ＞実際には、２０個程度の質問項目があります。 
 大変満足～不満が実際は20個程度・・・・列方向にデータが伸びる
 のでしょうか？

 それとも、 
 1Ａ01　　田中さんの回答が20個程度・・・同じ名前で複数行データが入る
 のでしょうか？

 後者であれば、結構重要そうなので
 これを踏まえたサンプルデータを作ってもらえると良いと思います。

 ＞※実際には、1シート１人ずつ表示したいと思っており
 個人シートを作るのが目的ですか？
 　
（HANA） 2014/12/09(火) 14:13

わかりにくい説明ですみません・・・。
列方向に質問が伸びていきます。
田中さんに対する質問の１つ目は、Ｇ4～Ｊ4、二つ目は、Ｌ4～Ｏ4という感じです。（※Ｋ4は集計行です。また、人によっては、複数回答になっているケースもあります。）

目的は個人票です。一覧表が横にながーい為、見にくすぎて困るという意見があったので、個人別に見たい人の情報を見やすい状態にしてほしいという要望がありました。
（お母さん） 2014/12/09(火) 14:21

 ＞田中さんに対する質問の１つ目は、Ｇ4～Ｊ4、二つ目は、Ｌ4～Ｏ4という感じです。
 ＞（※Ｋ4は集計行です。また、人によっては、複数回答になっているケースもあります。） 
 のサンプルと、希望結果図を載せてもらうのが良いと思います。

 ＞個人別に見たい人の情報を見やすい状態にしてほしい
 でしたら、一回に一人の情報が表示されれば良いのですよね？
（HANA） 2014/12/09(火) 14:25

閲覧ありがとうございます。
下記のような形を希望しています。
また、わかりにくいようでしたらご指摘をお願いします。

＜一覧表＞　※サンプル
　　　　　　　　　　　Ｑ1　　　　　　　　　　　　　　　　　　　　　　　　　Ｑ2
　個人番号　名前　大変満足　満足　やや不満　不満　合計　大変満足　満足　やや不満　不満　
　　1Ａ01　　田中　　1 　　　　　　1　　　　　　　　　　　　　　　　2　　　　　　　　　　　　　　　　1
　　2Ｂ02　　佐藤　　　　　　　　　　1 　　　　　 1　　　　　　　　2　　　　　　　　　　　1

＜個人票＞
　　　※一回に一人の情報を1シートに表示させ、一応プリントアウトしやすい形にしたいと思っています。

　　※希望の形

　　個人番号　1Ａ001
　　名前　　　田中

　　　　Ｑ1　大変満足　満足
　　　　Ｑ2　やや不満

（お母さん） 2014/12/09(火) 14:44

 一覧表シートのレイアウト
	[A]	[B]	[C]	[D]	[E]	[F]	[G]	[H]	[I]	[J]	[K]	[L]
[ 1]			Ｑ1					Ｑ2				
[ 2]	個人番号	名前	大変満足	満足	やや不満	不満	合計	大変満足	満足	やや不満	不満	合計
[ 3]	1Ａ01	田中	1	1			2			1		1
[ 4]	2Ｂ02	佐藤		1	1		2		1			1
[ 5]												
 L列以降、大変満足・満足・やや不満・不満・合計　の繰り返し

 個人票シートのレイアウト
	[A]	[B]	[C]	[D]
[ 1]	個人番号	1Ａ01		
[ 2]	名前	田中		
[ 3]				
[ 4]	Q1	大変満足	満足	
[ 5]	Q2	やや不満		
[ 6]				
 A列は入力しておいてください。

 個人票シートのシートモジュールに
 '------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim My個人番号 As String, My名前 As String
Dim MyR As Long, MyC As Long, MyQ As Long
Dim tbl As Variant, r As Variant
Dim i As Long
    If Target.Address(0, 0) = "B1" Then
        My個人番号 = Target.Value
        tbl = Sheets("一覧表").Range("A1").CurrentRegion.Value
        ReDim r(1 To (UBound(tbl, 2) - 2) / 5, 1 To 4)
        If My個人番号 <> "" Then
            For i = 1 To UBound(tbl, 1)
                If tbl(i, 1) = My個人番号 Then
                    My名前 = tbl(i, 2)
                    MyR = i
                    Exit For
                End If
            Next
            If MyR = 0 Then
                MsgBox "個人番号が見つかりませんでした。"
            Else
                For i = 1 To UBound(tbl, 2) - 2
                    If i Mod 5 Then
                        If tbl(MyR, i + 2) <> "" Then
                            MyC = MyC + 1
                            r(MyQ + 1, MyC) = tbl(2, i + 2)
                        End If
                    Else
                        MyQ = MyQ + 1
                        MyC = 0
                    End If
                Next
            End If
        End If
            Application.EnableEvents = False
                Range("B2").Value = My名前
                Range("B4").Resize(UBound(r, 1), UBound(r, 2)).Value = r
            Application.EnableEvents = True
    End If
End Sub
 '------

 B2セルに番号を入力すると、名前や回答が表示されます。
 番号を完全に一致させるため、入力規則のリストから選択させる等して下さい。
 　
（HANA） 2014/12/09(火) 15:36

質問（回答？）はG4セルから、となっていますね。ならば、個人番号と名前はどの列なのでしょう？
Ｑ１は何行目なのでしょう？そのあたりをはっきりしないと、サンプル提示してもずれちゃいますよ。
（???） 2014/12/09(火) 16:00

わかりにくくてすみません・・・。
Ａ列、Ｂ列、１行目などには、今、今回の集計とは関係ない番号がはいっていますので、ご回答いただいた形式に修正してやってみたいと思います。
ご指摘ありがとうございます。
（お母さん） 2014/12/09(火) 16:15

いろいろとありがとうございました。
何とかできました。
つたない説明ながらも、ご回答いただいたＨＡＮＡさんありがとうございました。
これからもよろしくお願いします。
（お母さん） 2014/12/15(月) 16:43

コメント返信：

[ 一覧(最新更新順) ]

[[20141209130222]] 『一覧表から個人票作成』（お母さん） ページの最後に飛ぶ

[[20141209130222]]　『一覧表から個人票作成』（お母さん）　ページの最後に飛ぶ