Excel VBA テクニック集
スタイル定義の詳細の取得方法

スタイル定義の詳細の取得方法です。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

まず、個別のスタイル参照方法です。

    Dim I As Integer
    
    For I = 1 To Excel_App.ActiveWorkbook.Styles.Count
        ・
        ・・Excel_App.ActiveWorkbook.Styles(I)・・I番目のスタイル情報
        ・
        Next I

次に、スタイル情報に含まれる情報を説明します。

Excel_App.ActiveWorkbook.Styles(I).Name
Excel_App.ActiveWorkbook.Styles(I).NameLocal
でスタイル名が取得できます。「NameLocal」が画面上に表示される名称と一致します。
通常「Name」「NameLocal」は一致します。違う場合が下記の例です。
NameLocal / Nameが
桁区切り / Comma [0]
標準 / Normal

Excel_App.ActiveWorkbook.Styles(I).BuiltIn で、標準かどうかがわかります。

値	意味
True	標準スタイル
False	ユーザー定義スタイル

スタイルで、下記項目で定義が使われているかどうかの情報です。データの型はTrue,Falseです。
Trueならば、定義が使われています。

ＶＢＡ	意味
Excel_App.ActiveWorkbook.Styles(I).IncludeNumber	表示形式
Excel_App.ActiveWorkbook.Styles(I).IncludeFont	フォント
Excel_App.ActiveWorkbook.Styles(I).IncludeAlignment	配置
Excel_App.ActiveWorkbook.Styles(I).IncludeBorder	罫線
Excel_App.ActiveWorkbook.Styles(I).IncludePatterns	塗りつぶし
Excel_App.ActiveWorkbook.Styles(I).IncludeProtection	保護

スタイルの詳細の定義の取得方法

If Excel_App.ActiveWorkbook.Styles(I).IncludeNumber = True Then
    Excel_App.ActiveWorkbook.Styles(I).NumberFormat
    Excel_App.ActiveWorkbook.Styles(I).NumberFormatLocal
    が参照できます。

If Excel_App.ActiveWorkbook.Styles(I).IncludeFont = True Then
    Excel_App.ActiveWorkbook.Styles(I).Font.Name
    Excel_App.ActiveWorkbook.Styles(I).Font.Size
    Excel_App.ActiveWorkbook.Styles(I).Font.Bold
    ・
    が参照できます。

If Excel_App.ActiveWorkbook.Styles(I).IncludeAlignmen = True Then
    Excel_App.ActiveWorkbook.Styles(I).HorizontalAlignment
    Excel_App.ActiveWorkbook.Styles(I).VerticalAlignment
    ・
    が参照できます。

IF Excel_App.ActiveWorkbook.Styles(I).IncludeBorder = True Then
    Excel_App.ActiveWorkbook.Styles(I).Borders(xlLeft).LineStyle
    Excel_App.ActiveWorkbook.Styles(I).Borders(xlTop).LineStyle
    ・
    が参照できます。

If Excel_App.ActiveWorkbook.Styles(I).IncludePatterns = True Then
    Excel_App.ActiveWorkbook.Styles(I).Interior.ColorIndex
    Excel_App.ActiveWorkbook.Styles(I).Interior.Color
    Excel_App.ActiveWorkbook.Styles(I).Interior.Pattern
    Excel_App.ActiveWorkbook.Styles(I).Interior.PatternColorIndex
    Excel_App.ActiveWorkbook.Styles(I).Interior.PatternColor
    ・
    が参照できます。

Excel_App.ActiveWorkbook.Styles(I).IncludeProtection = True Then
    Excel_App.ActiveWorkbook.Styles(I).Locked
    Excel_App.ActiveWorkbook.Styles(I).FormulaHidden
    ・
    が参照できます。

Excel VBA テクニック集スタイル定義の詳細の取得方法

Excel VBA テクニック集
スタイル定義の詳細の取得方法