３次メッシュコード入力用マクロプログラム

３．３次メッシュコード入力用マクロプログラムについて

■ 入力用マクロは、1/25,000地形図を基本にしています

◆起動画面（図１）
◆操作画面 (図２）

■ ダウンロードはこちらから

　　　◆ cord_in_20050502.exe (50.2 MB)
　　　　　　　　「3次メッシュコード入力用マクロver１」の2005年5月2日版と
　　　　　　　　岐阜県下の1/25,000地図画像をセットにした自己解凍式圧縮ファイルです。
　　　　　　　　地図画像を含むため、ファイルサイズが大きくなっています。

　　　　　　　　今後、バージョンアップした場合には、Excelのファイルだけを載せます。

　　　　右クリックをして、「対象をファイルに保存(A)」を選び、デスクトップなど任意の場所に、保存してください。
　　　　地図画像とともに自己解凍形式の書庫ファイルに圧縮してありますので、解凍してご利用ください。

　　　　　　　　註）
　　　　　　　　・地図画像のフォルダ名は、必ず ‘map’ にしてご利用ください。

　　　　　　　　・分布データをやりとりするときには、データを‘ｃｓｖファイル’に変換して
　　　　　　　　　ファイルサイズを小さくするとよいです（図８、図９）。

　　　　　　　　＜岐阜県高文連　自然科学部会の皆さんへお願い＞
　　　　　　　　　　　環境調査マニュアルを使って、セイタカアワダチソウなどの分布調査をしたとき、
　　　　　　　　　　　そのデータを送る場合には、必ず‘ｃｓｖファイル’に変換してから、送ってください。
　　　　　　　　　　　ファイルサイズを小さくしておかないと、受け取り側のメールボックスが容量オーバー
　　　　　　　　　　　になります。

■ 概　要

　このマクロプログラムは、基準地域メッシュ（3次メッシュ）コードの入力を簡便化するために作成しました。

１／２５，０００地形図に相当する範囲の地図画像を表示し、自動で変更ができます　（その画像は岐阜県全域をカバーする枚数分があります。図１、図２）。
メッシュの上でクリックするだけで、３次メッシュコードが表示されます（図２、図３）。

地形図が小さくて場所がわかりづらいときには、表示倍率を拡大して見ることもできます（図４）。

調査日、調査者氏名、和名、調査地名、メッシュコード、標高、標本保管場所、等のデータを入力したのち、一括してデータシートへ転記します（図５）。
メモ欄を４つ作ってありますので、上記の項目以外の内容を入力することも可能です。
入力したデータレコードをユーザーフォームに呼び出して、確認・修正ができます(図６、図７）。

分布データを　‘ｃｓｖファイル’　に変換してファイルサイズを小さくできます（図８、図９）

　　　　　これらの作業過程を、Excel VBA(Visual Basic for Applications) を使って自動化してあります。

このプログラムでつくったデータシートを、分布図作成マクロに貼り付ければ、それで分布図を表示できます（この作業は手動でおこなってください）。

【参考：基準地域メッシュ(3次メッシュ)コードとは】
　簡単に言えば、１／25,000　地形図を縦横10等分して得た１／100のメッシュそれぞれを、
　８桁の数値コードで表示したものです。
　　　１次メッシュ・・・１／200,000　地勢図の区割りに相当
　　　２次メッシュ・・・１／25,000　地形図の区割りに相当
　　　３次メッシュ・・・２次メッシュの１００分の１　（これを基準地域メッシュとも言う）

　環境庁発行の「都道府県別メッシュマップ」を使うと、調査した地点の３次メッシュコードが簡単にわかります。


	図３　メッシュ番号を非表示にした状態。


	図４　２００％で拡大表示します。


	図５　データシート。分布図作成マクロのデータシートと同じ書式にしてありますので、そのままコピーすればOKです。


	図６　データ確認用のユーザーフォームを表示した状態。		図７　データ確認用のユーザーフォーム。これをつかってデータの確認・修正をします。

		→ 赤丸印の部分をクリックする
	図８　データ確認用ユーザーフォーム		図９　ｃｓｖファイル作成用ユーザーフォーム

■ 使い方

	下図のように、必要に応じてダイアログボックスが表示されますので、それに従って操作してください。

■ 参考文献

古川順平(2002)仕事に役立つExcelデータベース有効活用テクニック，ソフトバンクパブリッシング，東京，413pp
籠橋数浩（2002）岐阜県生物分布図作成用Excel　VBAマクロプログラム，生物教育(岐阜県高等学校教育研究会生物部会会誌），47：58-60
籠橋数浩（2003）岐阜県生物分布図作成用Excel　VBAマクロプログラム２，生物教育(岐阜県高等学校教育研究会生物部会会誌），48：22-26
籠橋数浩（2004）岐阜県生物分布図作成用Excel　VBAマクロプログラム３，生物教育(岐阜県高等学校教育研究会生物部会会誌），49：25-29
環境庁（1997）都道府県別メッシュマップ21岐阜県，自然環境研究センター，東京，148pp
大村あつし（1999）かんたんプログラミングExcel2000VBA　基礎編，技術評論社，東京，335pp
大村あつし（2000）かんたんプログラミングExcel2000VBA　応用編，技術評論社，東京，343pp
杉本智彦（2002）カシミール３Ｄ入門，実業之日本社，東京，147pp
渡辺ひかる（2003）ExcelVBA実用サンプルコレクション，ソフトバンク，東京，689pp

■ その他

　本研究は平成１６年度岐阜県教職員自主研修グループ支援事業の補助を受けておこないました。