ピボットテーブルで文字列…

エクセル2000をつかっています。
ピボットテーブルのことなんですが、
データに文字列を表示したいのです。

ムリでしょうか??

ピボットテーブル以外でもよい方法があれば教えてください．

No.5 ベストアンサー 回答者： losedog 回答日時： 2002/09/22 13:10

ピボットテーブル＋ワークシート関数＋手作業で・・・

（１）行＝「名前」、列＝「曜日」、データ＝「名前」で新規シートにピボットテーブル作成。
　　　Ａ列に「名前」、Ｂ～Ｈ列に「曜日」、Ｉ列に「総計」で、３行目からがデータの行の表ができると思います。（以下は、その前提で・・）

（２）Ｂ２～Ｈ２のセルを選択・コピーし、Ｊ２～Ｐ２のセルを選択・貼付け。
　　　（ピボットテーブルの列のタイトルを、真横のセルにコピー・貼付け）

（３）Ｊ３のセルに「=IF(B3="","",$A3)」と入力。
　　　（ピボットテーブルの該当セルが空欄でなければ名前（Ａ列）を表示）

（４）Ｊ３のセルをコピーし、Ｋ３～Ｐ３のセルまで貼付け。
　　　（（３）を一週間分作成→これで１名分完成）

（５）Ｊ３～Ｐ３のセルを選択・コピーし、Ｊ４～Ｐ？（「？」はピボットテーブルのデータの最後の行数になります。）のセルを選択・貼付け。
　　　（これで全員分作成）

（６）Ｊ列～Ｐ列を選択・コピーし、その場所へ「形式を選択して貼付け」で値を貼付け。
　　　（計算式を消去）

こうすれば、Ｊ２～Ｐ？のセルに、希望の表ができあがると思います。

文章にするとややこしいですが、やってる事は単純です。
マクロを使わずに済ませたいなら、こんな方法でいかがでしょうか？

この回答へのお礼

ありがとうございます。
初心者なのでたすかります。参考にさせていただきます。

お礼日時：2002/09/22 15:06

No.4 回答者： kazuhiko5681 回答日時： 2002/09/20 02:30

すみません。

マクロのコードで記述ミスをしてしまいました。Ｎｏ３のマクロではなく、下記のマクロをコピーしてＮｏ３の手順で実行してみて下さい。

記述ミスをしてしまい、申し訳ございませんでした。

Sub Narabekae()

Dim myCell As String
Dim i As Integer
Dim myRange As Range
Dim myAddress As String

myCell = Cells(Rows.Count, 2).End(xlUp).Address
For i = 1 To 5
Select Case i

Case 1
Range("D1").Value = "月曜日"
With Range("B1:" & myCell)
Set myRange = .Find("月", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 2
Range("E1").Value = "火曜日"
With Range("B1:" & myCell)
Set myRange = .Find("火", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 3
Range("F1").Value = "水曜日"
With Range("B1:" & myCell)
Set myRange = .Find("水", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 4
Range("G1").Value = "木曜日"
With Range("B1:" & myCell)
Set myRange = .Find("木", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 5
Range("H1").Value = "金曜日"
With Range("B1:" & myCell)
Set myRange = .Find("金", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With

End Select
Next i

End Sub

この回答へのお礼

お礼がおそくなりもうしわけありません。
たすかります。参考にさせていただきます。

お礼日時：2002/09/22 15:05

No.3 回答者： kazuhiko5681 回答日時： 2002/09/20 01:58

早速補足をしていただき有難うございました。

やっとあなた様のやりたいことがわかりました。
もしかしたら、ピポットテーブルで実行するすることが可能なのかもしれませんが、私はできないと思いますのでＶＢＡでマクロを書いてみました。

Sub Narabekae()

Dim myCell As String
Dim i As Integer
Dim myRange As Range
Dim myAddress As String

myCell = Cells(Rows.Count, 2).End(xlUp).Address
For i = 1 To 5
Select Case i

Case 1
Range("D1").Value = "月曜日"
With Range("B1:" & myCell)
Set myRange = .Find("月", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 2
Range("E1").Value = "火曜日"
With Range("B1:" & myCell)
Set myRange = .Find("火", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 3
Range("F3").Value = "水曜日"
With Range("B1:" & myCell)
Set myRange = .Find("水", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 4
Range("G3").Value = "木曜日"
With Range("B1:" & myCell)
Set myRange = .Find("木", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With
Case 5
Range("H3").Value = "金曜日"
With Range("B1:" & myCell)
Set myRange = .Find("金", lookat:=xlWhole)
If Not myRange Is Nothing Then
myAddress = myRange.Address
Do
Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).Value = myRange.Offset(0, -1).Value
Set myRange = .FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> myAddress
End If
End With

End Select
Next i

End Sub

次の手順で操作を実行してみてください。

１.Sub Narabekae()～End Subまでをコピーする。

２.エクセルの新規ブックを開く

３.Alt+F11を押してＶＢＥ(visual Basic Editor)を開く

４.画面左側のVBAProjectと書かれてる下のSheet1をダブルクリックする。すると、右側の画面が灰色から白に変わる。

５.白い部分に先程コピーしたコードを貼り付ける。

６.Alt+Qを押してＶＢＥを閉じる

７.Sheet1のメニュバーにあるツールをクリック後マクロ→マクロの順でクリックし、マクロダイアログボックスを表示させる。

８.右側に並んでいるオプションというコマンドボタンをクリックし、カーソルが点滅しているテキストボックスにnと入力後okボタンを押す。

９.右上の×ボタンをクリックしてマクロダイアログボックスを閉じる。

10.Sheet1のＡ列に名前・Ｂ列に曜日を適当に入力し、Ctrl+nを押す。

Ｄ１～Ｈ１に曜日が入力され、曜日の下にその曜日に対応する人物名が入力されます。

もし、うまく動かなかった時・解らないことがあるときはご遠慮なくお知らせ下さい。私でよろしければ、あなた様のやりたいことが実現できるまで一緒に考えたいと思います。　

No.2 回答者： kazuhiko5681 回答日時： 2002/09/19 15:17

早速補足をしていただき有難うございました。

　

ピポットテーブルで水の下の↓に何を入れたいのでしょうか。その点について再度お知らせ下さい。
お手数をおかけいたしますが、よろしく御願いいたします。

この回答への補足

↓のところは、人の名前（文字列）を表示したいんです・・・

曜日のしたに名前がでればたすかるのですが・・・
よろしくお願いします。

補足日時：2002/09/19 17:43

No.1 回答者： kazuhiko5681 回答日時： 2002/09/19 02:10

はじめまして。

データに文字列を表示したいということですが、もう少し具体的に何をしたいのかお知らせいただけないでしょうか。
何かよい方法をご紹介できるかと思います。

この回答への補足

言葉たらずで申し訳ありません。


元データ
名　前　　　曜　日
　↓　　　　　↓　　　

ピボットテーブルで・・・
　　　　月　　火　　水　　木　　金
名　前　↓　　↓　　↓　　↓　　↓

こういうことをしたいのですが。
よろしくお願いします。

補足日時：2002/09/19 09:16