Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


73600 / 76732 ←次へ | 前へ→

【7607】Re:nameプロパティについて
発言  しのしの  - 03/9/9(火) 17:03 -

引用なし
パスワード
   しばらく拝見できないので 取り急ぎ、言いたいことだけ延べます。
ご検討をお願いします。

>    ActiveSheet.PivotTables("ピボットテーブル4").PivotSelect "", xlDataAndLabel

Nameプロパティ設定しなくて、正しく取れるのでしょうか?
それに、xlDataAndLabelでなくて、xlLabelOnlyでは?と考えますが

>Selection.Name = "借"

私はこのような使い方をしないので、これが正しいかどうかは分かりません。
でも、通常今まであったものを削除し、更に新規に追加する場合は、
削除処理をつけ、追加処理をNamesに対して行なったほうがよいと思います。
また、
Selection  active* というのはあまり使わないほうが良いと思います。
ひょんなことから、意図しないものがActiveになったり、Selectされるからです。
個人的にはこの2つがhisaoさんを悩ませている原因であると考えています。


>Selection.Rows("2:2").Select
>Selection.Name = "借行"

一度設定してやればマクロに記述する必要はないです。


hisaoさんのコードを参考にして
自分ならこういう風にするかな?というのをアップしてみます。
#動作確認できませんので、申し訳ありませんが、よろしくお願いします。
時間がなくて尻切れトンボですが...


----
Private Sub Test()
  Dim pvt     As Excel.PivotTable 'テーブル
  Dim rngSource  As Excel.Range   'テーブルソースとなるセル
  Dim rngTgt   As Excel.Range   '名前定義するセル
  
  
  '既に作成済みのテーブルに参照を設定します
  Set pvt = ThisWorkbook.Worksheets("借集計").PivotTables("ピボットテーブル4")
  
  
  'hisaoサンのコードはactiveworkbookになっていましたが、thisworkbookに
  '変更しています。必要に応じてWorkbooks(index)とかに変更してください。
  With ThisWorkbook.Worksheets("仕訳日記帳")
    
    ' ピポットテーブルのデータ範囲を設定します。
    'hisaoサンのコード"仕訳日記帳!R2C1:R" & y & "c11")のyが、A列のデータ格納
    '最終行ならこれでいけるはず。
    Set rngSource = _
      .Range(.Range("A1"), _
          .Cells(.Cells(.Rows.Count, .Columns("A").Column).End(xlUp).Row, _
            .Columns("K").Column))
    pvt.SourceData _
      = .Name & "!" & rngSource.Address(ReferenceStyle:=xlR1C1)
    
   End With
  
  '更新する
  pvt.RefreshTable

  '借のセル範囲ですが、DataBodyRangeプロパティなどを参考に考えてみてください
  'ここから先は知りきれトンボです.ごめんなさい。
  'でもhisaoサンのやりたいことPivotTableのなかにあるんじゃないかな?
  Set rngTgt = pvt.DataBodyRange
  Debug.Print pvt.ColumnRange.Select
  

  '参照の解放
  Set rngSource = Nothing
  Set rngTgt = Nothing
  Set pvt = Nothing

End Sub

1 hits

【7274】nameプロパティについて hisao 03/8/29(金) 15:52 質問
【7282】Re:nameプロパティについて よろずや 03/8/30(土) 23:43 発言
【7321】Re:nameプロパティについて hisao 03/9/2(火) 15:12 質問
【7583】Re:nameプロパティについて しのしの 03/9/9(火) 1:25 回答
【7588】Re:nameプロパティについて hisao 03/9/9(火) 9:21 発言
【7592】Re:nameプロパティについて しのしの 03/9/9(火) 10:51 回答
【7607】Re:nameプロパティについて しのしの 03/9/9(火) 17:03 発言
【7612】Re:nameプロパティについて hisao 03/9/10(水) 11:17 お礼

73600 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free