1: Private Sub BTN_REFRESH_Click() 2: ' [最新の状態に更新]ボタンが押されたときの処理 3: ' 最新の情報に更新 4: RefreshData 5: End Sub