ユーザー設定のドキュメントのプロパティを設定する
独自の文字列プロパティ「部署」を追加し、存在すれば更新します。
実行前に確認
- ファイルへ残すには確認後に保存します。文書プロパティに秘密情報を入れないでください。
1サンプルコード
Sub Sample3058()
Dim props As Object, prop As Object
Set props = ThisWorkbook.CustomDocumentProperties
For Each prop In props
If prop.Name = "部署" Then
If prop.Type <> msoPropertyTypeString Then
MsgBox "部署は文字列型ではありません。": Exit Sub
End If
prop.Value = "営業": Exit Sub
End If
Next
props.Add Name:="部署", LinkToContent:=False, Type:=msoPropertyTypeString, Value:="営業"
End Sub図で見る操作の流れ
イメージ図コードに沿った概念図です。実際の画面や実行結果ではありません。
マクロ：既存を検索
このブックの独自プロパティ「部署」を探す
マクロ：追加または更新
なければ文字列型で追加。あれば文字列型を確認して値を「営業」に更新
手動：保存
内容を確認してブックを保存するとファイルに残る
既存の「部署」が文字列型でなければ案内して終了。マクロ自体はブックを保存しません。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3058内にカーソルを置いてF5で実行します。独自の文字列プロパティ「部署」を追加し、存在すれば更新します。