こんにちは。いつも参考にさせていただいています。
マクロでPivotを自動更新する記述をしています。
データが入力されているシートに
名前の定義をして"データ"と名前をつけ、参照範囲を以下のとおり設定しました。
=OFFSET($A$1,0,0,COUNTA($A:$A),COUNTA($1:$1))
Pivotが表示されるシートのマクロに下記のように記述して、
自動的に更新ができることを確認できました。
Private Sub Worksheet_Activate()
Range("A1").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"データ"
End Sub
マクロ自体は問題なく動くのですが、
目でも確認をとりたいため、MsgBoxを追加して、現在選択されているデータ範囲を表示させたいと考えています。
例) 「データ範囲は$A$1:$D$150に変更されました」
そこで、
MsgBox "データ範囲は" & データ & "に変更されました"
という一文を上記に追加してみましたが、データの部分でセルの範囲を取得できませんでした。
"データ"としてもダメで、名前の定義で指定された範囲の値を取得する方法がわかりません。
マクロで可能な仕様なのかもわからないのですが、
どなたか解決法をご存知でしたら教えていただけないでしょうか。
よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
MsgBox "データ範囲は" & Sheets("Sheet1").Range("データ").Address & "に変更されました"
Sheet1の部分は「データ」が含まれるシート名に変更して下さい。
No.1
- 回答日時:
Range("データ").Address
で、範囲が取得出来ます。
hana-hana3さん、
早速ありがとうございます。
Range("データ").Addressを試してみましたが、どこにどのように記述すればよいのかいまいちわかりません。
MsgBox "データ範囲は" & Range("データ").Address & "に変更されました"
としたところ、定義エラーになり、
Dim DataAddress As Range
DataAddress = Range("データ").Address
なども試してみましたがダメでした。
webで見つけた以下の名前の定義ではなくシート名を指定する方法ではできましたが、
上記でやるにはどうしたらいいのでしょうか。
MsgBox "データ範囲は" & Worksheets("シート名").UsedRange.Address & "に変更されました"
すみませんがよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
共有しているエクセルのファイ...
-
パソコンからL判で印刷する方法
-
弥生の青色申告オンライン を初...
-
タックインデックスシール
-
数量・会社ごとに異なる単価表...
-
わかる方教えてください! 今日...
-
最近、やよいの青色申告クライ...
-
弥生青色申告オンラインで貸借...
-
会計
-
Excelの改ページプレビューの既...
-
エクセル 背景色のついたセル位...
-
弥生会計オンラインで、バック...
-
バーコードリーダー Excel 連動
-
やよいの青色申告22 のわからな...
-
マネーフォワードの財布が毎回...
-
一太郎で封筒の宛名印刷したい...
-
会計ソフト おすすめは?
-
EXCEL2016のファイルが突然、古...
-
勘定奉行の売上削除
-
「Windows7」サポート
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンからL判で印刷する方法
-
共有しているエクセルのファイ...
-
弥生の青色申告オンライン を初...
-
タックインデックスシール
-
無料エクセル→PC版エクセル
-
数量・会社ごとに異なる単価表...
-
一太郎2022に古いATOKは使える...
-
みつも郎で
-
男が新卒で経理の職に就くのは...
-
一太郎で封筒の宛名印刷したい...
-
■複式簿記■ スマホでは『複式簿...
-
添付のエクセルの車検証・運転...
-
わかる方教えてください! 今日...
-
Googleスプレッドシートで合計...
-
出金伝票の書き方ですが、 勘定...
-
numbersで累計を計算するには
-
弥生会計オンラインで、バック...
-
弥生の青色申告の借方勘定科目...
-
アンインストールができない。
-
エクセル 背景色のついたセル位...
おすすめ情報