{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Sheet1","Setting"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":76,"n_cols":1,"rows_kept":76,"cut":false,"hidden":false,"merged":[]}
["'***************************"]
["' エクセルファイルを開く"]
["'***************************"]
["Function\n OpenBook　(ByVal　FilePath　As　String) As\n Workbook"]
["     "]
["    On Error Resume Next"]
["     "]
["    Set OpenBook = Workbooks.Open(FilePath)"]
["     "]
["    'エラーが発生した事を確認する"]
["    If Err.Number <> 0 Then"]
["        MsgBox (\"エクセルファイルを開けませんでした。\")"]
["        Set OpenBook = Nothing"]
["    End If"]
["     "]
["End Function"]
[]
["'****************************************************************"]
["' 新規ファイルを作成して開く。空の状態で一度保存。"]
["' 作成されたWorkbookオブジェクトを返す"]
["'****************************************************************"]
["Function OpenNewBook(ByVal SaveFilePath As String) As Workbook"]
["    "]
["    Dim newBook As Workbook"]
["    "]
["    '新規ファイルを開く"]
["    Set newBook = Workbooks.Add '新規ワークブックを作成"]
["        "]
["    '新規ブックの保存"]
["    newBook.SaveAs SaveFilePath"]
["    "]
["    'Workbookオブジェクトを返す"]
["    Set OpenNewBook = newBook"]
[]
["End Function"]
[]
[]
["Function test()"]
["        "]
["    Dim Rng As Range"]
["    "]
["    For Each Rng In Worksheets(\"Setting\").UsedRange"]
["        "]
["        '2行目以降かつA列でループ"]
["        If Rng.Row > 1 And Rng.Column = 1 Then"]
["        "]
["            If Not Rng.Value = \"\" And Rng.Offset(0, 1).Value = \"\" Then"]
["                "]
["                '正規表現指定なし"]
["                If Rng.Offset(0, 2).Value = \"ON\" Then"]
["                    Call ChangeColor(\"Sheet1\", Rng, Word:=True)"]
["                    "]
["                Else"]
["                    '単語指定なし"]
["                    Call ChangeColor(\"Sheet1\", Rng)"]
["                    "]
["                End If"]
["            "]
["            ElseIf Not Rng.Value = \"\" And Not Rng.Offset(0, 1).Value = \"\" Then"]
["                '正規表現指定あり"]
["                If Rng.Offset(0, 1).Value = \"ON\" Then"]
["                    Call ChangeColor(\"Sheet1\", Rng, True)"]
["                    "]
["                Else"]
["                    '正規表現指定なし"]
["                    Call ChangeColor(\"Sheet1\", Rng)"]
["                    "]
["                End If"]
["            End If"]
["            "]
["        End If"]
["    Next"]
["    "]
["    Set Rng = Nothing"]
["    "]
["End Function"]

{"sheet":"Setting","index":1,"n_rows":35,"n_cols":3,"rows_kept":35,"cut":false,"hidden":false,"merged":[]}
["検索文字列と\nフォント設定\n（色、太字、斜字)","正規表現\nON/OFF","単語\nON/OFF"]
["'.*","ON"]
["(\\\"+\\\"+|\\\"+.*\\\"+)","ON"]
["Function",null,"ON"]
["Workbook",null,"ON"]
["WorkSheet",null,"ON"]
["ActiveSheet",null,"ON"]
["Set",null,"ON"]
["Sub",null,"ON"]
["ByVal",null,"ON"]
["String",null,"ON"]
["As",null,"ON"]
["For",null,"ON"]
["Each",null,"ON"]
["Next",null,"ON"]
["If",null,"ON"]
["Else",null,"ON"]
["ElseIf",null,"ON"]
["Not",null,"ON"]
["Nothing",null,"ON"]
["On Error",null,"ON"]
["Resume",null,"ON"]
["Then",null,"ON"]
["AND",null,"ON"]
["OR",null,"ON"]
["END",null,"ON"]
["True",null,"ON"]
["False",null,"ON"]
["Call",null,"ON"]
["Dim",null,"ON"]
["ByVal",null,"ON"]
["ByRef",null,"ON"]
["String",null,"ON"]
["Long",null,"ON"]
["Boolean",null,"ON"]