Ｐａｇｅ 484 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ピボットテーブルから取り出したデータを指定の範囲へ入力させる ハラミ 02/12/25(水) 16:59 ┗Re:ピボットテーブルから取り出したデータを指定の範囲へ入力させる ポンタ 02/12/25(水) 21:06 ┗Re:ピボットテーブルから取り出したデータを指定の範囲へ入力させる ハラミ 02/12/25(水) 22:07 ┗Re:ピボットテーブルから取り出したデータを指定の範囲へ入力させる ポンタ 02/12/26(木) 8:17 ┗Re:ピボットテーブルから取り出したデータを指定の範囲へ入力させる ハラミ 02/12/26(木) 9:32 ─────────────────────────────────────── ■題名 ： ピボットテーブルから取り出したデータを指定の範囲へ入力させる ■名前 ： ハラミ ■日付 ： 02/12/25(水) 16:59 -------------------------------------------------------------------------
| こんにちわ 下記のようにピボットテーブルから取り出したデータを指定の範囲へ入力させる 方法をお手数ですが何方か教えて下さい。 Private Sub ピボットテーブルからデータを取り出す() 下端 = Sheets(シート名).Range("T4").End(xlDown).Row '下端検出 For 縦 = 4 To 下端 - 2 支店名 = Sheets(シート名).Cells(縦, 19) 件数 = Sheets(シート名).Cells(縦, 20) ’ここで同じシート内のA列3行目から支店名を入力して行き ’ 13行目を入力したらC列3行目から続きを入力するコード。 ’同様にB列３行目から件数を入力し ’ 13行目を入力したらD列3行目から続きを入力するコード。 Next End Sub |
| これでどうでしょう？ Private Sub ピボットテーブルからデータを取り出す() 下端 = Sheets(シート名).Range("T4").End(xlDown).Row '下端検出 For 縦 = 4 To 下端 - 2 支店名 = Sheets(シート名).Cells(縦, 19) 件数 = Sheets(シート名).Cells(縦, 20) If 縦 < 14 Then Sheets(シート名).Cells(縦, 1) = 支店名 Sheets(シート名).Cells(縦, 2) = 件数 Else Sheets(シート名).Cells(縦, 3) = 支店名 Sheets(シート名).Cells(縦, 4) = 件数 End If Next End Sub |
| 教えて頂いたコードで考えてみました。 もう少し教えて下さい。 現状、１４行を超えた場合、列を変えて続きが１５行目から入力されます。 列を変えた時も、最初の入力は４行目から開始するようにしたいのですが。 何か手はありますか？？ > If 縦 < 14 Then > Sheets(シート名).Cells(縦, 1) = 支店名 > Sheets(シート名).Cells(縦, 2) = 件数 > Else ’ここで列を変えて１５行目から続きが入力されるので ’４行目から入力させたいのですが > Sheets(シート名).Cells(縦, 3) = 支店名 > Sheets(シート名).Cells(縦, 4) = 件数 > End If |
| Elseに続く2行を次のように書き換えてください。 Else Sheets(シート名).Cells(縦 - 10, 3) = 支店名 Sheets(シート名).Cells(縦 - 10, 4) = 件数 End If |
| ありがとうございました。 これからちゃんと勉強していきます。 >Elseに続く2行を次のように書き換えてください。 > > Else > Sheets(シート名).Cells(縦 - 10, 3) = 支店名 > Sheets(シート名).Cells(縦 - 10, 4) = 件数 > End If |