Excel VBA質問箱 IV

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

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


73595 / 76732 ←次へ | 前へ→

【7612】Re:nameプロパティについて
お礼  hisao E-MAIL  - 03/9/10(水) 11:17 -

引用なし
パスワード
   ▼しのしの さん:
ご多忙なのに 大変有難う御座いました。

(Selection  active* というのはあまり使わないほうが良いと思います。
ひょんなことから、意図しないものがActiveになったり、Selectされるからです。
個人的にはこの2つがhisaoさんを悩ませている原因であると考えています。)

何故 参照できないか、出来たり出来なかったり 理由が良くわかりませんので
おっしゃる事だと思います。どうも ピボットテーブルを使ったモジュールは
不安定な気がします。

早速ご提示頂いた構文を組み込んで動作確認してみます。
本当に有難う御座いました。


>しばらく拝見できないので 取り急ぎ、言いたいことだけ延べます。
>ご検討をお願いします。
>
>>    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 お礼

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