エクセルＶＢＡによる環境騒音マップの作成

(1)

- ７７ -

エクセルＶＢＡによる環境騒音マップの作成

E EE

Environmental Noise Map by Excel VBAnvironmental Noise Map by Excel VBAnvironmental Noise Map by Excel VBAnvironmental Noise Map by Excel VBA 永田義昭 Yoshiaki NAGATA キ−ワ−ド：環境騒音、Excel VBA

Key words ：environmental noise, Excel VBA １１１１はじめにはじめにはじめにはじめに川崎区内を1500 分の１の地図を用いて100ｍ四方に区切り、100ｍ四方に 1 箇所の割合で騒音レベルを測定し、結果をエクセルＶＢＡ（以下、ＶＢＡという。）を使用してパソコンで簡単に見ることが出来るプログラムを作成したので報告する。２２２２調査方法調査方法調査方法調査方法 2.1 調査期間 2002 年 7 月から 2002 年 12 月 2.2 測定場所川崎区内の 829 地点 2.3 測定機器精密騒音計(ﾘｵﾝ製 NL-18) 2.4 測定方法測定時間は 9 時から 12 時。測定時間は 10 分間とし、結果を LAeq で表示した。３３３３ＶＢＡの概要ＶＢＡの概要ＶＢＡの概要ＶＢＡの概要図１にＶＢＡの概要を示す。図１は、200m 四方のメッシュ地図にＶＢＡを使用してデータをデータの範囲ごとに色別に表示したものである。以下に、騒音データの結果をＶＢＡを使用して表示する方法について述べる。図１ＶＢＡによる地図データの表示４４４４ＶＢＡの操作手順ＶＢＡの操作手順ＶＢＡの操作手順ＶＢＡの操作手順 4.1 4.1 4.1 4.1 エクセルファイルが１個のＶＢＡの作成エクセルファイルが１個のＶＢＡの作成エクセルファイルが１個のＶＢＡの作成エクセルファイルが１個のＶＢＡの作成エクセルファイル(以下、ファイルという。) １個に地域メッシュ図を作成する手順について以下に示す。 4.1.1 4.1.1 4.1.1 4.1.1 手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成最初に、精緻な地図は描けないが、地域メッシュ図を手書きで作成する。図２は、川崎市の 500m メッシュ地勢図を手書きで作成したものであるが、各セルは、正方形で設定されるので手書きでも容易に地図が描ける。図２川崎市の 500m メッシュ地図 4.1.2 4.1.2 4.1.2 4.1.2 メッシュ番号とデータの入力メッシュ番号とデータの入力メッシュ番号とデータの入力メッシュ番号とデータの入力次に、各メッシュに対応したデータを入力する。図３メッシュコード、セル位置、データの入力画面データ 1 2 3 4 5 6 7 8 9 10 地域メッシュ図 1 2 3 4 5 6 7 8 9 10 メッシュ･コードセルの位置データ 2 6 1 3 1 0 B G 3 4 6 7 2 6 2 3 0 0 B G 3 3 5 7 2 6 2 3 1 0 B G 3 2 7 0 2 6 2 3 1 1 B H 3 2 2 6 3 3 0 0 B G 3 1 2 6 9 2 0 0 B E 3 9 8 2 2 6 9 2 1 0 B E 3 8 7 7 2 6 9 2 1 1 B F 3 8 6 5 2 6 0 2 0 0 B E 3 7 2 6 0 2 0 1 B F 3 7 2 6 0 2 1 0 B E 3 6 2 6 0 2 1 1 B F 3 6 2 6 2 2 0 0 B E 3 3 7 4 2 6 2 2 0 1 B F 3 3 6 3 2 6 2 2 1 0 B E 3 2 5 5 2 6 2 2 1 1 B F 3 2 7 1 2 6 3 2 0 0 B E 3 1 6 8 2 6 3 2 0 1 B F 3 1 6 5 2 6 3 2 1 0 B E 3 0 6 9 2 6 3 2 1 1 B F 3 0 2 6 4 2 0 0 B E 2 9 2 6 8 1 0 0 B C 4 1 2 6 8 1 1 0 B C 4 0 7 7 2 6 8 1 1 1 B D 4 0 5 9 2 6 9 1 0 0 B C 3 9 6 2 2 6 9 1 0 1 B C 3 8 6 7 2 6 9 1 1 0 B D 3 9 6 3

(2)

- ７８ - 4.1.3 4.1.3 4.1.3 4.1.3 データ貼付けのＶＢＡの作成データ貼付けのＶＢＡの作成データ貼付けのＶＢＡの作成データ貼付けのＶＢＡの作成図 3 で入力したデータを所定のセル位置に貼り付くように以下のプログラムを作成する。 Sub 騒音分布() マクロ記録日 : 2002/9/10 Range("BG34") = Range("C2") Range("BG33") = Range("C3") Range("BG32") = Range("C4") Range("BH32") = Range("C5") Range("BG31") = Range("C6") Range("BE39") = Range("C7") Range("BE38") = Range("C8") Range("BF38") = Range("C9") Range("BE37") = Range("C10") Range("BF37") = Range("C11") Range("BE36") = Range("C12") Range("BF36") = Range("C13") Range("BE33") = Range("C14") Range("BF33") = Range("C15") Range("BE32") = Range("C16") Range("BF32") = Range("C17") Range("BE31") = Range("C18") Range("BF31") = Range("C19") Range("BE30") = Range("C20") Range("BF30") = Range("C21") Range("BE29") = Range("C22") Range("Bc41") = Range("C23") Range("BC40") = Range("C24") Range("BD40") = Range("C25") Range("BC39") = Range("C26") Range("BC38") = Range("C27") Range("BD39") = Range("C28") Range("BD38") = Range("C29") Range("BC37") = Range("C30") Range("BD37") = Range("C31") Range("BC36") = Range("C32") Range("BD36") = Range("C33") Range("BC35") = Range("C34") Range("BD35") = Range("C35") Range("BC34") = Range("C36") Range("Bd34") = Range("C37") Range("Be35") = Range("C38") Range("Bf35") = Range("C39") Range("Be34") = Range("C40") Range("Bf34") = Range("C41") Range("BC33") = Range("C42") Range("BD33") = Range("C43") Range("BC32") = Range("C44") Range("BD32") = Range("C45") Range("BC31") = Range("C46") Range("BD31") = Range("C47") Range("BC30") = Range("C48") Range("BD30") = Range("C49") Range("BC29") = Range("C50") Range("BD29") = Range("C51") Range("BC28") = Range("C52") Range("BA45") = Range("C53") Range("BB45") = Range("C54") Range("BA44") = Range("C55") Range("BB44") = Range("C56") Range("BA43") = Range("C57") Range("BA42") = Range("C58") Range("BA41") = Range("C59") Range("BB41") = Range("C60") Range("BA40") = Range("C61") Range("BB40") = Range("C62") Range("BA39") = Range("C63") Range("BB39") = Range("C64") Range("BA38") = Range("C65") Range("BB38") = Range("C66") Range("BA37") = Range("C67") Range("BB37") = Range("C68") Range("BA36") = Range("C69") Range("BB36") = Range("C70") Range("BA35") = Range("C71") Range("BB35") = Range("C72") Range("BA34") = Range("C73") Range("BB34") = Range("C74") Range("BA33") = Range("C75") Range("BB33") = Range("C76") Range("BA32") = Range("C77") Range("BB32") = Range("C78") Range("BA31") = Range("C79") Range("BB31") = Range("C80") Range("BA30") = Range("C81") Range("BB30") = Range("C82") Range("BA29") = Range("C83") Range("BB29") = Range("C84") Range("BA28") = Range("C85") Range("BB28") = Range("C86") Range("AY47") = Range("C87") Range("AY46") = Range("C88") Range("AZ46") = Range("C89") Range("AY45") = Range("C90") Range("AZ45") = Range("C91") Range("AY44") = Range("C92") Range("AZ44") = Range("C93") Range("AY43") = Range("C94") Range("AZ43") = Range("C95") 以下略 End Sub

(3)

- ７９ - 4.1.4 4.1.4 4.1.4 4.1.4 ＶＢＡの実行ＶＢＡの実行ＶＢＡの実行ＶＢＡの実行 3.1.3 のプログラムを実行すると、図４に示すようにメッシュ地勢図の指定されたセルにデータが貼り付く。図４データが貼り付けられた画面 4.1.5 4.1.5 4.1.5 4.1.5 色別に表示するＶＢＡの作成色別に表示するＶＢＡの作成色別に表示するＶＢＡの作成色別に表示するＶＢＡの作成次に、図４のデータを色別に表示するには、以下のプログラムを作成する。 Sub 騒音分布() マクロ記録日 : 2002/9/10 ユーザー名 : 騒音振動 Range("BG34") = Range("C2") 中簡略 Range("F9") = Range("C716") の後に、下記を加える。 Dim myrange As Range

For Each myrange In

Worksheets(1).Range("E2:BH47")

If myrange.Value < 45 And myrange.Value > 0 Then myrange.Interior.Color = RGB(100, 255, 0)

If myrange.Value < 50 And myrange.Value >= 45 Then myrange.Interior.Color = RGB(200, 255, 150) If myrange.Value < 55 And myrange.Value >= 50 Then myrange.Interior.Color = RGB(255, 255, 200) If myrange.Value < 60 And myrange.Value >= 55 Then myrange.Interior.Color = RGB(255, 255, 0)

If myrange.Value < 65 And myrange.Value >= 60 Then myrange.Interior.Color = RGB(255, 150, 0)

If myrange.Value < 70 And myrange.Value >= 65 Then myrange.Interior.Color = RGB(255, 100, 100)

If myrange.Value >= 70 And myrange.Value Then myrange.Interior.Color = RGB(255, 0, 0) ActiveWindow.DisplayGridlines = True Next End Sub 図５は、データ範囲と色の組合せを示したもので、色の組合せは自由に変えることができる。

70 dB 以上

70 dB 未満

65 dB 未満

60 dB 未満

55 dB 未満

50 dB 未満

45 dB 未満

図５データの範囲と色の関係 56 53 57 53 57 66 6751 53 61 56 60 5254 49 60 58 62 64 57 6252 58 53 54 56 49 51 48 56 55 48 46 55 5361 71 67 57 50 55 58 57 56 55 55 58 56 49 58 51 63 5256 58 49 69 58 51 48 54 51 57 56 53 59 57 59 57 53 56 57 55 52 4754 64 56 49 52 45 61 59 56 67 5149 54 64 61 56 54 58 54 49 51 54 59 55 4850 56 62 48 41 43 46 49 51 60 585150 51 46 62 55 51 58 54 55 51 58 54 51 58 50 4852 50 60 61 62 52 49 54 53 62 54514874 48 49 72 55 51 49 60 56 52 72 55 49 4548 63 72 48 48 53 62 60 57 56 5853465361 56 56 49 72 56 56 58 61 56 49 63 3943 47 60 49 68 65 58 56 56 53 59607643616465 57 56 56 53 57 64 56 57 56 56 5253 43 59 63 48 51 49 41 64 61 49574259665456 53 57 61 56 56 54 66 61 53 5251 45 57 45 62 61 48 55 46 62 56615462616653 42 54 53 56 62 64 50 50 61 60 51 46 66 57 57 46 52 51 48 50577152536747 48 49 68 56 62 64 48 46 63 52 74 62 59 58 65 48 53 48 55 58 67555459585170 56 64 60 62 64 46 58 51 47 48 62 59 59 55 53 50 49 59 57 69545867655558 46 69 53 50 48 46 55 67 43 64 60 69 56 58 55 58 54 68486350515670 56 55 56 44 60 56 46 50 52 51 55 51 57505851515559 50 53 59 56 56 51485656516150 66 52 59 71 53 50506166546163 54 51 56 58 65 64 47 63 51 52 52 70 61 61 73 57 75 63 61 55 67 52 71 69 67 61 69 67 60 53 62 47 67 58 51 47 66 51 56 58 70 52 63 70 72 58 63 58 65 63 65 64 56 82 67 75 61 64 58 62 73 59 75 51 65 56 61 63 71 55 64 73 72 61 52 65 69 57 51 59 64 69 56 55 56 61 59 66 58 67 68 65 52 47 67 70 58 52 63 67 59 60 71 78 61 56 55 71 70 62 49 64 55 70 66 55 64 47 70 66 68 61 64 74 63 57 54 56 69 64 72 55 58 57 56 63 55 72 55 66 67 54 58 57 52 60 51 59 55 55 65 68 59 74 69 71 74 71 72 62 70 57 66 61 61 61 51 51 69 54 54 61 58 74 56 61 74 71 67 77 65 63 59 64 56 62 63 82 68 64 68 59 77 59 63 62 63 60 64 58 72 69 71 81 57 60 68 64 64 62 61 55 68 70 69 69 55 62 75 50 55 500m× 500m メッシュデータ消去データ消去データ消去データ消去色消去色消去色消去色消去環境騒音

(4)

- ８０ - 4. 4. 4. 4.1.6 1.6 1.6 色別に表示するＶＢＡの実行1.6 色別に表示するＶＢＡの実行色別に表示するＶＢＡの実行色別に表示するＶＢＡの実行 4.1.5 のプログラムを実行すると、図６で示すようにデータが色別に表示できる。図６データの色別表示画面 4.2 4.2 4.2 4.2 複数ファイルを使用するＶＢＡの作成複数ファイルを使用するＶＢＡの作成複数ファイルを使用するＶＢＡの作成複数ファイルを使用するＶＢＡの作成図７は、地図上にデータを表示させる初期画面を示したものである。これは、川崎市内の７つの区から、地区名を表わすボタンを選択すると、当該地区の騒音レベルが表示される仕組みである。このプログラムの作成について以下に述べる。図７地図上にデータを表示させる初期画面 4.2.1 4.2.1 4.2.1 4.2.1 フォルダとファイルの構成フォルダとファイルの構成フォルダとファイルの構成フォルダとファイルの構成図８に、図７のプログラムを作成するためのＶＢＡの構成図を示す。図８ＶＢＡの構成図 500m×500m メッシュデータ消去データ消去データ消去データ消去色消去色消去色消去色消去環境騒音

お住まいの区をクリックしてください

多　摩　区多　摩　区多　摩　区多　摩　区麻　生　区麻　生　区麻　生　区麻　生　区宮　前　区宮　前　区宮　前　区宮　前　区高　津　区高　津　区高　津　区高　津　区中　原　区中　原　区中　原　区中　原　区　幸　　区　幸　　区　幸　　区　幸　　区川　崎　区川　崎　区川　崎　区川　崎　区

　閉じる

(D) : ドライブ (D) : ドライブ (D) : ドライブ (D) : ドライブ地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル A地区Ｂ地区 C地区 D地区地区を呼び出すファイル田島地区桜本地区観音地区大師地区中島地区大島地区貝塚地区小田地区京町地区麻生区区を呼び出すファイル音環境多摩区高津区宮前区中原区幸　区川崎区エクセルファイル

(5)

- ８１ - 複数のフォルダとファイルを組み合わせて作成する。最初に、パソコンのＤドライブに｢音環境｣というフォルダを作る。さらに、このフォルダの下に川崎市内の区を表わすフォルダを、各区のフォルダには区内の地区を収めたファイルを作る。例えば、｢川崎区｣を選択すると、図９に示すような川崎区内９地区を呼び出す画面が表示される。図９地区を呼び出す画面ここから｢田島地区｣を選択すると、図 10 の画面が現れ、田島地区の騒音レベルの地図画面が表示される。図 10 田島地区の画面図 10 を拡大した画面を図 11 に示す。図 11 で希望するマクロボタンを選択すると、結果が画面上に表示される。例えば、｢田島町｣を選択すると、田島町地区の騒音レベルが騒音レベルに応じて色別に表示される。また、｢測定場所｣を選択すると、川崎区内の測定場所が表示される。さらに、全地区」を選択すると、図 12 に示すように田島町全部の騒音レベルが表示される。図 11 田島地区を拡大した画面図 12 田島地区全体の騒音レベルを表示した画面次に、地区の騒音レベルを表示するには、図 11 の画面で｢地区を呼び出す画面に戻る｣を選択すると、図９の地区を呼び出す画面に戻り、他区を選択する。このように、画面上でマクロボタンを選択することによって、次々と知りたい地区の騒音レベルを表示させることができる。以下、ここまでの手順について述べる。 4.2.2 4.2.2 4.2.2 4.2.2 手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成手書きによる地域メッシュ図の作成 4.1.1 で述べた手書きによる地域メッシュ図の作成と同様な方法で作成する。図 10 に示した田島地区の地域メッシュ図は、1500 分の１の地図をもとに、100ｍメッシュで区切ったものをファイル上に手書きで作成したものである。地図が出来上がったら、セル番号とデータを入力する。例えば、田島町のセル番号１で区切られた地域の騒音レベルが 62ｄＢだとすると、セル番号１の 100ｍ四方の騒音レベルが 62ｄＢと見なす。以下、図 13 で示す町名とセル番号とデータを 4.1.3 の方法で作成する。 45未満 50未満 55未満 60未満 65未満 70未満 70以上田島町田島町田島町田島町データ消去データ消去データ消去データ消去色消去色消去色消去色消去住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！ 100m 100m 鋼管通3丁目鋼管通3丁目鋼管通3丁目鋼管通3丁目鋼管通2丁目鋼管通2丁目鋼管通2丁目鋼管通2丁目鋼管通1丁目鋼管通1丁目鋼管通1丁目鋼管通1丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る浜町1丁目浜町1丁目浜町1丁目浜町1丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る全地区全地区全地区全地区追分町追分町追分町追分町はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る浜町2丁目浜町2丁目浜町2丁目浜町2丁目鋼管通4丁目鋼管通4丁目鋼管通4丁目鋼管通4丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る追分町田島町鋼管通１鋼管通3 浜町１鋼管通4 鋼管通2 浜町2 田島町田島町田島町田島町データ消去データ消去データ消去データ消去色消去色消去色消去色消去住まいの地区をク住まいの地区をク住まいの地区をク住まいの地区をク鋼管通 3 丁目鋼管通 3 丁目鋼管通 3 丁目鋼管通 3 丁目鋼管通 2 丁目鋼管通 2 丁目鋼管通 2 丁目鋼管通 2 丁目鋼管通 1 丁目鋼管通 1 丁目鋼管通 1 丁目鋼管通 1 丁目浜町 1 丁目浜町 1 丁目浜町 1 丁目浜町 1 丁目全地区全地区全地区全地区追分町追分町追分町追分町浜町 2 丁目浜町 2 丁目浜町 2 丁目浜町 2 丁目鋼管通 4 丁目鋼管通 4 丁目鋼管通 4 丁目鋼管通 4 丁目測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る

(6)

- ８２ - 町名セル番号騒音データ図 13 町名とセル番号とデータ 4.2. 4.2. 4.2. 4.2.3 3 3 データの貼付けと色別表示のＶＢＡの実行3 データの貼付けと色別表示のＶＢＡの実行データの貼付けと色別表示のＶＢＡの実行データの貼付けと色別表示のＶＢＡの実行以下のプログラムを実行すると、図 14 で示す｢田島町｣の騒音レベルが色別に表示される。 Sub 田島町() MsgBox ("田島町の騒音を表示します。") Range("W6:BS53").Select With Selection.Font .Size = 6 End With Range("AS7").Select ActiveWindow.SmallScroll Down:=13 ActiveWindow.SmallScroll ToRight:=2 Range("AG15:AH16,AF17,AE18,AD19")=Range("CC1") Range("AF17:AH20,AE19:AE20,AD20")=Range("CC2") Range("AI17:AI20") = Range("CC21") Range("X27:X28,W28,Z25,Y27:Z28") = Range("CC3") Range("Y26:Z26") = Range("CC5") Range("AA25:AD28,AE27:AH28") = Range("CC4") Range("Y26:AK26") = Range("CC5") Range("AE21:AH25") = Range("CC6") Range("AC21:AD24,AB22:AB24,AA23:AA24")=Range(" CC7") Range("AI25:AK25,AI27:AK28,AL27:AL28")=Range(" CC8") Range("AI21:AJ24,AK24") = Range("CC9") Range("W29,X29:X30,Y31,Z31:Z32")=Range("CC10") Range("AA33:AD33,AD34:AF34,AG35:AH35")=Range(" CC11") Range("AE33:AH33,AG34:AH34") = Range("CC12") Range("AE29:AH32") = Range("CC13") Range("Y29:AD30,AA31:AD32") = Range("CC14") Range("AM33:AN34") = Range("CC15") Range("AI29:AL32") = Range("CC16") Range("AM29:AM32") = Range("CC29") Range("AI33:AL35") = Range("CC17") Dim myRange As Range

For Each myRange In

Worksheets(1).Range("W6:BS53")

If myRange.Value < 45 And myRange.Value > 0 Then myRange.Interior.Color = RGB(100, 255, 0) If myRange.Value < 50 And myRange.Value >= 45 Then myRange.Interior.Color = RGB(200, 255, 150) If myRange.Value < 55 And myRange.Value >= 50 Then myRange.Interior.Color = RGB(255, 255, 200) If myRange.Value < 60 And myRange.Value >= 55 Then myRange.Interior.Color = RGB(255, 255, 0) If myRange.Value < 65 And myRange.Value >= 60 Then myRange.Interior.Color = RGB(255, 150, 0) If myRange.Value < 70 And myRange.Value >= 65 Then myRange.Interior.Color = RGB(255, 100, 100) If myRange.Value >= 70 Then myRange.Interior.Color = RGB(255, 0, 0) Next End Sub 図 14 田島町の騒音レベルこの方法で、川崎区内のプログラムを作成する。ＶＢＡを実行して全ての地区について、地区全体の騒音レベルをデータに代って色別で表示した結果を図 15∼図 22 に示す。田島町 1 6 2 田島町 2 5 2 田島町 3 5 2 田島町 4 4 9 田島町 5 6 2 田島町 6 4 7 田島町 7 5 7 田島町 8 4 7 田島町 9 5 0 田島町 1 0 5 2 田島町 1 1 6 7 田島町 1 2 6 0 田島町 1 3 5 3 田島町 1 4 5 0 田島町 1 5 4 8 田島町 1 6 5 0 田島町 1 7 4 9 鋼管通 1 丁目 1 8 6 3 鋼管通 1 丁目 1 9 6 2 鋼管通 1 丁目 2 0 6 7 鋼管通 1 丁目 2 1 4 7 鋼管通 1 丁目 2 2 4 2 鋼管通 1 丁目 2 3 5 7 鋼管通 1 丁目 2 4 4 9 鋼管通 1 丁目 2 5 4 9 鋼管通 1 丁目 2 6 4 9 鋼管通 1 丁目 2 7 4 5 鋼管通 1 丁目 2 8 5 4 鋼管通 1 丁目 2 9 4 0 鋼管通 3 丁目 3 0 6 6 鋼管通 3 丁目 3 1 6 6 鋼管通 3 丁目 3 2 6 4 45未満 50未満 55未満 60未満 65未満 70未満 70以上 62 62 62 62 52 52 52 47 62 52 52 52 47 62 52 52 52 52 47 52 52 52 52 52 47 57 57 47 47 47 47 50 50 57 57 57 47 47 47 47 50 50 57 57 57 57 47 47 47 47 50 50 57 57 57 57 47 47 47 47 50 50 50 52 49 49 49 49 47 47 47 47 47 47 47 62 62 62 62 62 62 62 62 62 62 62 62 62 52 52 52 49 49 49 49 49 49 49 49 47 47 47 47 52 52 52 52 49 49 49 49 49 49 49 49 47 47 47 47 52 52 50 50 50 50 50 50 53 53 53 53 50 50 50 50 40 52 50 50 50 50 50 50 53 53 53 53 50 50 50 50 40 52 52 50 50 50 50 53 53 53 53 50 50 50 50 40 52 50 50 50 50 53 53 53 53 50 50 50 50 40 67 67 67 67 60 60 60 60 49 49 49 49 48 48 67 67 67 60 60 49 49 49 49 48 48 67 67 49 49 49 49 田島町田島町田島町田島町データ消去データ消去データ消去データ消去色消去色消去色消去色消去住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！ 100m 100m 鋼管通3丁目鋼管通3丁目鋼管通3丁目鋼管通3丁目鋼管通2丁目鋼管通2丁目鋼管通2丁目鋼管通2丁目鋼管通1丁目鋼管通1丁目鋼管通1丁目鋼管通1丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る浜町1丁目浜町1丁目浜町1丁目浜町1丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る全地区全地区全地区全地区追分町追分町追分町追分町はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る浜町2丁目浜町2丁目浜町2丁目浜町2丁目鋼管通4丁目鋼管通4丁目鋼管通4丁目鋼管通4丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る追分町田島町鋼管通１鋼管通3 浜町１鋼管通4 鋼管通2 浜町2

(7)

- ８３ - 図 15 桜本地区全体の騒音レベルを表示した画面図 16 観音地区全体の騒音レベルを表示した画面 4 5 未満 5 0 未満 5 5 未満 6 0 未満 6 5 未満 7 0 未満 7 0 以住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！全地区全地区全地区全地区桜本 1 丁目桜本 1 丁目桜本 1 丁目桜本 1 丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る桜本 2 丁目桜本 2 丁目桜本 2 丁目桜本 2 丁目浜町 4 丁目浜町 4 丁目浜町 4 丁目浜町 4 丁目データ消去データ消去データ消去データ消去池上新町 1 丁目池上新町 1 丁目池上新町 1 丁目池上新町 1 丁目測定場所測定場所測定場所測定場所藤崎 4 丁目藤崎 4 丁目藤崎 4 丁目藤崎 4 丁目地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る色消去色消去色消去色消去はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る桜本 1 桜本 2 浜町 4 池上新町１藤崎 4 浜町 3 45未満 50未満 55未満 60未満 65未満 70未満 70以上住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！観音 1丁目観音 1丁目観音 1丁目観音 1丁目全地区全地区全地区全地区藤崎 3 丁目藤崎 3 丁目藤崎 3 丁目藤崎 3 丁目色消去色消去色消去色消去四谷上町四谷上町四谷上町四谷上町池上新町 2 丁目池上新町 2 丁目池上新町 2 丁目池上新町 2 丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る測定場所測定場所測定場所測定場所データ消去データ消去データ消去データ消去観音 2丁目観音 2丁目観音 2丁目観音 2丁目池上新町 2 観音 1 四谷上町藤崎 3 観音 2

(8)

- ８４ - 図 17 大師地区全体の騒音レベルを表示した画面図 18 中島地区全体の騒音レベルを表示した画面 45未満 50未満 55未満 60未満 65未満 70未満 70以上 65 住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！台町台町台町台町東門前1丁目東門前1丁目東門前1丁目東門前1丁目昭和1丁目昭和1丁目昭和1丁目昭和1丁目大師河原2丁目大師河原2丁目大師河原2丁目大師河原2丁目東門前3丁目東門前3丁目東門前3丁目東門前3丁目大師駅前1丁目大師駅前1丁目大師駅前1丁目大師駅前1丁目東門前2丁目東門前2丁目東門前2丁目東門前2丁目川中島2丁目川中島2丁目川中島2丁目川中島2丁目データ消去データ消去データ消去データ消去全地区全地区全地区全地区川中島1丁目川中島1丁目川中島1丁目川中島1丁目大師本町大師本町大師本町大師本町はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る出来野出来野出来野出来野測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る昭和2丁目昭和2丁目昭和2丁目昭和2丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る色消去色消去色消去色消去大師町大師町大師町大師町台町川中島１東門前3 大師町大師本町東門前2 昭和1 大師駅前1 大師河原2 出来野川中島2 昭和2 東門前1 45未満 50未満 55未満 60未満 65未満 70未満 70以上住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！全地区全地区全地区全地区大島４丁目大島４丁目大島４丁目大島４丁目中島３丁目中島３丁目中島３丁目中島３丁目中島２丁目中島２丁目中島２丁目中島２丁目中島１丁目中島１丁目中島１丁目中島１丁目旭町２丁目旭町２丁目旭町２丁目旭町２丁目伊勢町伊勢町伊勢町伊勢町藤崎１丁目藤崎１丁目藤崎１丁目藤崎１丁目藤崎２丁目藤崎２丁目藤崎２丁目藤崎２丁目藤崎４丁目藤崎４丁目藤崎４丁目藤崎４丁目大島５丁目大島５丁目大島５丁目大島５丁目データ消去データ消去データ消去データ消去色消去色消去色消去色消去はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る大師駅前２丁目大師駅前２丁目大師駅前２丁目大師駅前２丁目測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る大師駅前2 旭町2 中島1 中島2 中島3 藤崎4 大島5 大島4 藤崎2 藤崎1 伊勢町

(9)

- ８５ - 図 19 大島地区全体の騒音レベルを表示した画面図 20 京町地区全体の騒音レベルを表示した画面 4 5 未満 5 0 未満 5 5 未満 6 0 未満 6 5 未満 7 0 未満 7 0 以上地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る測定場所測定場所測定場所測定場所池田 1 丁目池田 1 丁目池田 1 丁目池田 1 丁目池田 2 丁目池田 2 丁目池田 2 丁目池田 2 丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る京町 3 丁目京町 3 丁目京町 3 丁目京町 3 丁目京町 1 丁目京町 1 丁目京町 1 丁目京町 1 丁目京町 2 丁目京町 2 丁目京町 2 丁目京町 2 丁目色消去色消去色消去色消去データ消去データ消去データ消去データ消去全地区全地区全地区全地区はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る池田 1 池田 2 京町 1 京町 2 京町 3 45未満 50未満 55未満 60未満 65未満 70未満 70以上全地区全地区全地区全地区大島1丁目大島1丁目大島1丁目大島1丁目大島3丁目大島3丁目大島3丁目大島3丁目大島2丁目大島2丁目大島2丁目大島2丁目大島5丁目大島5丁目大島5丁目大島5丁目藤崎4丁目藤崎4丁目藤崎4丁目藤崎4丁目大島４丁目大島４丁目大島４丁目大島４丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る色消去色消去色消去色消去去去去去住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！ 100m 100m はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るデータ消去データ消去データ消去データ消去測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る藤崎4 大島1 大島2 大島3 大島4 大島5

(10)

- ８６ - 図 21 渡田地区全体の騒音レベルを表示した画面図 22 小田地区全体の騒音レベルを表示した画面 45未満 50未満 55未満 60未満 65未満 70未満 70以上元木1丁目元木1丁目元木1丁目元木1丁目大島上町大島上町大島上町大島上町渡田1丁目渡田1丁目渡田1丁目渡田1丁目渡田2丁目渡田2丁目渡田2丁目渡田2丁目渡田3丁目渡田3丁目渡田3丁目渡田3丁目全地区全地区全地区全地区住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！ 100m 100m 貝塚2丁目貝塚2丁目貝塚2丁目貝塚2丁目渡田新町1丁目渡田新町1丁目渡田新町1丁目渡田新町1丁目貝塚1丁目貝塚1丁目貝塚1丁目貝塚1丁目渡田東町渡田東町渡田東町渡田東町はじめの画面に戻はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る渡田向町渡田向町渡田向町渡田向町元木2丁目元木2丁目元木2丁目元木2丁目渡田4丁目渡田4丁目渡田4丁目渡田4丁目渡田山王町渡田山王町渡田山王町渡田山王町色消去色消去色消去色消去はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る測定場所測定場所測定場所測定場所地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻るデータ消去データ消去データ消去データ消去はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る渡田新町2丁目渡田新町2丁目渡田新町2丁目渡田新町2丁目渡田新町3丁目渡田新町3丁目渡田新町3丁目渡田新町3丁目貝塚1 貝塚2 元木1 元木2 渡田1 渡田2 渡田3 渡田4 大島上町渡田向町渡田山王町渡田新町2 渡田新町3 渡田新町1 渡田東町 4 5 未満 5 0 未満 5 5 未満 6 0 未満 6 5 未満 7 0 未満 7 5 未満住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！住まいの地区をクリック　！測定場所測定場所測定場所測定場所データの消去データの消去データの消去データの消去はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る小田 4 丁目小田 4 丁目小田 4 丁目小田 4 丁目全地区全地区全地区全地区小田栄 1 丁目小田栄 1 丁目小田栄 1 丁目小田栄 1 丁目小田 1 丁目小田 1 丁目小田 1 丁目小田 1 丁目小田 3 丁目小田 3 丁目小田 3 丁目小田 3 丁目浅田１丁目浅田１丁目浅田１丁目浅田１丁目小田 6 丁目小田 6 丁目小田 6 丁目小田 6 丁目浅田 2 丁目浅田 2 丁目浅田 2 丁目浅田 2 丁目浅田 4 丁目浅田 4 丁目浅田 4 丁目浅田 4 丁目浅田 3 丁目浅田 3 丁目浅田 3 丁目浅田 3 丁目小田 2 丁目小田 2 丁目小田 2 丁目小田 2 丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る小田 5 丁目小田 5 丁目小田 5 丁目小田 5 丁目はじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る色消去色消去色消去色消去地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻る地区を呼び出す画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻るはじめの画面に戻る小田栄 1 小田 1 小田 2 小田 3 小田 4 小田 5 小田 6 浅田 1 浅田 2 浅田 3 浅田 4

(11)

- ８７ - 4.2.4 4.2.4 4.2.4 4.2.4 ファイル操作のＶＢＡファイル操作のＶＢＡファイル操作のＶＢＡファイル操作のＶＢＡマクロボタンを使用してフォルダを開きフォルダ内の複数のファイルを開くプログラムについて述べる。 4.2.4.1 4.2.4.1 4.2.4.1 4.2.4.1 ファイルからフォルダを呼び出すＶＢＡファイルからフォルダを呼び出すＶＢＡファイルからフォルダを呼び出すＶＢＡファイルからフォルダを呼び出すＶＢＡ「音環境」のフォルダを開くと、図 23 に示す画面が現れる。図 23 「音環境」のフォルダを開いた時の画面この画面から、ファイルの｢区を呼び出すファイル｣を開き、「マクロを実行する」を選択すると、図 7 の「地図上にデータを表示させる初期画面」が現れるので呼び出したい地区を選択する。ここでは、「川崎区」を呼び出す例について述べる、他の地区についても「川崎区」を呼び出すと同様な操作になる。図 7 の画面から「川崎区」のマクロボタンを選択するＶＢＡは、以下のとおりである。 Sub 川崎区() F = ThisWorkbook.Path MsgBox "川崎区を呼び出します。" Application.DisplayFullScreen = True Op = F & "¥" & "川崎区" MsgBox Op

Workbooks.Open Filename:=Op & "¥" & "川崎区内を呼び出す.xls" Workbooks("区を呼び出すファイル.xls"). Close False F = "" Op = "" End Sub 上のプログラムを実行すると、川崎区内の「地区」を呼び出す画面（図 9 参照）が表示される。この後は、画面からデータを知りたい地区のマクロボタンを選択する。例えば、｢田島地区｣を選択すると、田島地区の画面（図 10 参照）が表示される。このＶＢＡは、以下のとおりである。 Sub 田島地区() MsgBox ("田島地区の騒音を示します。") SOp = ThisWorkbook.Path MsgBox SOp

Workbooks.Open Filename:=SOp & "¥" & "田島地区.xls" SOp = "" End Sub Sub データ消去() MsgBox ("データを消去します。") Range("W6:BS53").Select Selection.ClearContents Range("T1").Select End Sub Sub 色の消去() MsgBox ("色を消去します。") With Range("W6:BS53").Select End With Selection.Interior.ColorIndex = xlNone Range("AO1").Select End Sub 4.2.4.2 4.2.4.2 4.2.4.2 4.2.4.2 初期画面を呼び出すＶＢＡ初期画面を呼び出すＶＢＡ初期画面を呼び出すＶＢＡ初期画面を呼び出すＶＢＡマクロボタンの「地区を呼び出す画面に戻る」を選択すると図 9 の地区を呼び出す画面に戻る。このプログラムは、以下のとおりである。 Sub 地区を呼び出す画面に戻る() MsgBox ("地区を呼び出す画面に戻ります。") SOp = ThisWorkbook.Path MsgBox SOp

Workbooks.Open Filename:=SOp & "¥" & "川崎区内を呼び出す.xls" Workbooks("田島地区.xls").Close False End Sub また、図７の初期画面に戻るプログラムは、以下のとおりである。 Sub 区を呼び出すに戻る() MsgBox ("区を呼び出す画面に戻ります。") F = ThisWorkbook.Path FB = Left(F, InStrRev(F, "¥", -1, 1) - 1) MsgBox (FB) ChDir ("..")

(12)

- ８８ - すファイル.xls" Workbooks(" 川崎区内を呼び出す .xls").Close False F = "" FB = "" End Sub 最後に、図７の初期画面を表示するファイルで｢閉じる｣というマクロボタンを選択すると、図 23 の「音環境」のフォルダを開いた時の画面に戻り、全てのフォルダ、ファイルが閉じられる。プログラムは、以下のとおりである。 Sub 閉じる() MsgBox ("区を呼び出す画面を閉じます。") Dim Wk As Workbook

For Each Wk In Workbooks Next Wk Application.Quit Application.DisplayFullScreen = False End Sub 5 55 5 エクセルＶＢＡによるマップの応用性エクセルＶＢＡによるマップの応用性エクセルＶＢＡによるマップの応用性エクセルＶＢＡによるマップの応用性３で作成したＶＢＡは、騒音データ以外の他の測定値、画像、図形などに置き換えて利用することができる。画像、複雑な図形などはデータ容量が大きいとマクロ実行時にメモリを著しく使用するため、メモリに余裕がないと画面上への表示に時間がかかる。また、「メモリ不足」というメッセージが現れることもがある。６６６６まとめまとめまとめまとめエクセルＶＢＡを使用して環境騒音マップを作成した結果、次のようなことがわかった。 1) パソコンの画面からパネルタッチ方式で調べたい地区の騒音レベルが表示できたこと。 2) 騒音レベルが大小に応じて色別に表示され、視覚的にわかりやすい結果が得られたこと。 3) 今回作成したＶＢＡは、騒音データ以外のデータにも応用できること。