DataStatistics の操作

2016/9/1 (木) 2017/12/9 (土)

VBA
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29	`Private` `Sub` `DataStatistics()` `Dim` `pMxDoc` `As` `IMxDocument, pFLayer` `As` `IFeatureLayer` `Dim` `pCursor` `As` `ICursor, pStatResults` `As` `IStatisticsResults` `Set` `pMxDoc = ThisDocument` `Set` `pFLayer = pMxDoc.FocusMap.Layer(0)` `Set` `pCursor = pFLayer.Search(Nothing,` `False)` `Dim` `pData` `As` `IDataStatistics` `Dim` `pEnumVar` `As` `IEnumVariantSimple` `Dim` `value` `As` `Variant` `Set` `pData =` `New` `DataStatistics` `pData.Field =` `"JCODE"` `Set` `pData.Cursor = pCursor` `'取得されたいフィーチャクラスから取得したカーソル` `Set` `pEnumVar = pData.UniqueValues` `value = pEnumVar.Next` `Do` `Until` `IsEmpty(value)` `Debug.Print` `"value - "` `& value` `value = pEnumVar.Next` `Loop` `Set` `pCursor = pFLayer.Search(Nothing,` `False)` `Set` `pData.Cursor = pCursor` `Set` `pStatResults = pData.Statistics` `'数値フィールド以外を指定するとArcMapがクラッシュする` `Debug.Print` `"平均 - "` `& pStatResults.Mean` `End` `Sub`

羽田康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。