グラフのデータソース
Excelのグラフのグラフデータの範囲は以下のように指定します。
「シート名！対象データの範囲」
例えば
「Sheet1!B$2:C$200」
通常であればシートをコピーすることによりグラフデータの範囲におけるシート名
もコピーした後のシート名に自動変更されます。
しかしながら、ブック内に複数シートを自動生成する都合上、どうしても各シートの
グラフデータの範囲が自動的に置きかわない事例が発生しました。
Excel2007ぐらいからグラフデータの範囲について関数を差し込むことができない
ため以下のマクロで対応しました。
以下はシートに１つだけグラフがあり、ワークシートが開かれた時に実行するように
Sub workbook_open()
Dim sht
For each sht In Worksheets
If Not Worksheets(sht.Name).ChartObjects.Count = 0 Then
Worksheets(sht.Name).ChartObjects(1)..Chart.SetSourceData Source := Sheets(sht.Name).Range("$BJ$29:$BK$34")
End If
Next sht
End Sub
もっと良い方法があれば教えてください。
（。。。。。できればマクロを使用しない方法で）
井頭公園（真岡市）
井頭公園
http://www.park-tochigi.com/igashira/
こどものサッカー大会があったので前日の下見と当日の２日連続で行って
きました。
①園内は広いです。
ぐるっと回りたい場合は貸自転車を利用してください。
大人４００円、子供３００円で２時間借りることが出来ます。
軽く回ると一周３KMほどです。
中央に池があります。
冬場なのでボートは乗れませんでした。
この日は、水鳥にエサをあげて楽しんでいるこどもが沢山いました。
②施設が豊富
夏場は栃木県民は知らない人がいないくらいメジャーな１万人プールが
有ります。
また、園内には小学生以上対象のフィールドアスレチック
パターゴルフ、釣り池、サッカー場に野球場
少し歩いてみると、自然がいっぱいで散歩するにはちょうど良いです。
③公園の隣には温泉があります。
真岡井頭温泉
http://www.igasira-onsen.jp/index.shtml
今回は入らなかったのですが、公園でいっぱい遊んで疲れた後は温泉に
入るのもいいかもしれませんね。
札幌ドーム（札幌市）
札幌ドーム
http://www.sapporo-dome.co.jp/
ポケモンセンターふゆまつり in 札幌ドームというのがやっていたので札幌ドームに行ってきました。
①場所
札幌市の南東部の豊平区羊ヶ丘に有ります。
地下鉄福住駅から徒歩１０分くらいです。
今回は車で行きました。
駐車場代は500円。
野球やサッカーの試合が有る日はあらかじめ前売駐車場の購入が必要な
ようです。
駐車場から札幌ドームを見ると、こんな感じです。
②ふわふわアドベンチャー ＆ ポケモンセンターふゆまつり in 札幌ドーム
目的はポケモンだったのですが、ふわふわのイベントも合わせてやってい
ました。
ふわふわは全部で37基。上から見ると結構な数です。
ポケモンの方はビンゴと７つほどのイベントアトラクション
きっちりピカチュウ殿もいらっしゃいました。
イベント期間中は屋台も出ています。
野球やサッカーの試合がある時は、ドーム併設の店舗で購入できます。
③ドーム施設
ドームには今回のイベントとは関係なく子供が遊ぶスペースも有ります。
こちらは無料なので、雪の多い札幌において子供の遊び場としては重宝
しそうです。
札幌ドームはホヴァリングサッカーステージというシステムで屋内のフィールド
を野球モードからサッカーモードに切り替える事が出来ます。
サッカーモードの時はこのグラウンドが屋内に移動します。
