VBA使用頻度の高いコード（１５）：地図情報管理用クラスモジュール

地図情報管理用クラスモジュール

地図情報管理用クラスモジュールを管理するために作成したクラスモジュールです

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'番号に対する条件のクラス,見分けつけるため「_」を最終文字に添付
Private MapID_ As String '物件ID
Private シート名_ As String 'シート名
Private セルアドレス_ As String 'セルアドレス
Private 緯度_ As String '緯度
Private 経度_ As String '経度
Private 住所_ As String '住所
Private 地図URL緯度経度_ As String '地図URL緯度経
Private 地図URL住所_ As String '地図URL住所
Private 検索URL_ As String '検索URL
Private 予備項目1_ As String '予備項目1
Private 予備項目2_ As String '予備項目2
Private 写真ファイル名_ As String '写真ファイル名
Private 物件名_ As String '物件名
Private 補足_ As String '補足
Private 格納フォルダ_ As String '格納フォルダ
Private 検索追加ワード_ As String '検索追加ワード
'「MapID」というプロパティの設定プロシージャ
Property Let MapID(ByVal new_MapID As String)
MapID_ = new_MapID
End Property
'「MapID」というプロパティの取得プロシージャ
Property Get MapID() As String
MapID = MapID_
End Property
'「シート名」というプロパティの設定プロシージャ
Property Let シート名(ByVal new_シート名 As String)
シート名_ = シート名
End Property
'「シート名」というプロパティの取得プロシージャ
Property Get シート名() As String
シート名 = シート名_
End Property
'「セルアドレス」というプロパティの設定プロシージャ
Property Let セルアドレス(ByVal new_セルアドレス As String)
セルアドレス_ = new_セルアドレス
End Property
'「セルアドレス」というプロパティの取得プロシージャ
Property Get セルアドレス() As String
セルアドレス = セルアドレス_
End Property
'「緯度」というプロパティの設定プロシージャ
Property Let 緯度(ByVal new_緯度 As String)
緯度_ = new_緯度
End Property
'「緯度」というプロパティの取得プロシージャ
Property Get 緯度() As String
緯度 = 緯度_
End Property
'「経度」というプロパティの設定プロシージャ
Property Let 経度(ByVal new_経度 As String)
経度_ = new_経度
End Property
'「経度」というプロパティの取得プロシージャ
Property Get 経度() As String
経度 = 経度_
End Property
'「住所」というプロパティの設定プロシージャ
Property Let 住所(ByVal new_住所 As String)
住所_ = new_住所
End Property
'「住所」というプロパティの取得プロシージャ
Property Get 住所() As String
住所 = 住所_
End Property
'「地図URL緯度経度」というプロパティの設定プロシージャ
Property Let 地図URL緯度経度(ByVal new_地図URL緯度経度 As String)
地図URL緯度経度_ = new_地図URL緯度経度
End Property
'「地図URL緯度経度」というプロパティの取得プロシージャ
Property Get 地図URL緯度経度() As String
地図URL緯度経度 = 地図URL緯度経度_
End Property
'「地図URL住所」というプロパティの設定プロシージャ
Property Let 地図URL住所(ByVal new_地図URL住所 As String)
地図URL住所_ = new_地図URL住所
End Property
'「地図URL住所」というプロパティの取得プロシージャ
Property Get 地図URL住所() As String
地図URL住所 = 地図URL住所_
End Property
'「検索URL」というプロパティの設定プロシージャ
Property Let 検索URL(ByVal new_検索URL As String)
検索URL_ = new_検索URL
End Property
'「検索URL」というプロパティの取得プロシージャ
Property Get 検索URL() As String
検索URL = 検索URL_
End Property
'「予備項目1」というプロパティの設定プロシージャ
Property Let 予備項目1(ByVal new_予備項目1 As String)
予備項目1_ = new_予備項目1
End Property
'「予備項目1」というプロパティの取得プロシージャ
Property Get 予備項目1() As String
予備項目1 = 予備項目1_
End Property
'「予備項目2」というプロパティの設定プロシージャ
Property Let 予備項目2(ByVal new_予備項目2 As String)
予備項目2_ = new_予備項目2
End Property
'「予備項目2」というプロパティの取得プロシージャ
Property Get 予備項目2() As String
予備項目2 = 予備項目2_
End Property
'「写真ファイル名」というプロパティの設定プロシージャ
Property Let 写真ファイル名(ByVal new_写真ファイル名 As String)
写真ファイル名_ = new_写真ファイル名
End Property
'「写真ファイル名」というプロパティの取得プロシージャ
Property Get 写真ファイル名() As String
写真ファイル名 = 写真ファイル名_
End Property
'「物件名」というプロパティの設定プロシージャ
Property Let 物件名(ByVal new_物件名 As String)
物件名_ = new_物件名
End Property
'「物件名」というプロパティの取得プロシージャ
Property Get 物件名() As String
物件名 = 物件名_
End Property
'「補足」というプロパティの設定プロシージャ
Property Let 補足(ByVal new_補足 As String)
補足_ = new_補足
End Property
'「補足」というプロパティの取得プロシージャ
Property Get 補足() As String
補足 = 補足_
End Property
'「格納フォルダ」というプロパティの設定プロシージャ
Property Let 格納フォルダ(ByVal new_格納フォルダ As String)
格納フォルダ_ = new_格納フォルダ
End Property
'「格納フォルダ」というプロパティの取得プロシージャ
Property Get 格納フォルダ() As String
格納フォルダ = 格納フォルダ_
End Property
'「検索追加ワード」というプロパティの設定プロシージャ
Property Let 検索追加ワード(ByVal new_検索追加ワード As String)
検索追加ワード_ = new_検索追加ワード
End Property
'「検索追加ワード」というプロパティの取得プロシージャ
Property Get 検索追加ワード() As String
検索追加ワード = 検索追加ワード_
End Property

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝