YujiFukami

'SaveSheetAsBook    ・・・元場所：IkiAddin.ModFile
'DeleteButtonOnSheet・・・元場所：IkiAddin.ModShape

Public Function SaveSheetAsBook(ByRef Sheet As Worksheet, _
                    Optional ByRef SaveName As String, _
                    Optional ByRef SavePath As String, _
                Optional ByRef DeleteButton As Boolean = True, _
                     Optional ByRef Message As Boolean = False, _
            Optional ByRef ConvFormulaValue As Boolean = False, _
                   Optional ByRef CloseBook As Boolean = True) _

YujiFukami

Public Sub OutputPDFs(ByRef SheetNameList As Variant, _
                         ByRef FolderPath As String, _
                           ByRef FileName As String, _
                      Optional ByRef Book As Workbook, _
                   Optional ByRef Message As Boolean = True)
'複数シートをまとめてPDF出力する
'20231116

'参考
'https://www.softex-celware.com/post/outputpdfs

YujiFukami

'DA                ・・・元場所：IkiAddin.ModAlignmentCode
'GetClipText       ・・・元場所：IkiAddin.ModClipboard
'Split_Start1      ・・・元場所：IkiAddin.ModArray
'ConvArray1D_Start1・・・元場所：IkiAddin.ModArray
'CheckArray1D      ・・・元場所：IkiAddin.ModArray
'DeleteRowArray1D  ・・・元場所：IkiAddin.ModArray
'CheckArray1DStart1・・・元場所：IkiAddin.ModArray
'DeleteDoubleSpace ・・・元場所：IkiAddin.ModStr
'ClipText          ・・・元場所：IkiAddin.ModClipboard
'ShowCodeWindow    ・・・元場所：IkiAddin.ModAlignmentCode

YujiFukami

'GetCombinations123・・・元場所：VBAProject.Mod01_
'DimArray1DNumbers ・・・元場所：IkiAddin.ModArray
'GetCombinations   ・・・元場所：VBAProject.Mod01_
'S__Backtrack      ・・・元場所：VBAProject.Mod01_
'Clone__Collection ・・・元場所：VBAProject.Mod01_



Public Function GetCombinations123(ByRef NumCount As Long, _

YujiFukami

Public Sub ShowStatusBarProgress(ByRef Value As Long, _
                              ByRef MaxValue As Long, _
                       Optional ByRef Divide As Long = 1, _
                      Optional ByRef Message As String = "")
'進行状況をスターテスバーに表示する
'20220204
'20220421 経過時間、終了予定時刻なども表示可能に
'20220530 先頭にメッセージを表示可能に
'20221217 分割幅(Divide)を指定可能に
'20230219 イミディエイトウィンドウにも表示

YujiFukami

Public Sub OutputPDF(ByRef Sheet As Worksheet, _
                ByRef FolderPath As String, _
                  ByRef FileName As String, _
          Optional ByRef Message As Boolean = True)
'指定シートをPDFで出力する
'20210721
'20231102 出力失敗の対策追加

'参考
'https://www.softex-celware.com/post/outputpdf

YujiFukami

'OutputText        ・・・元場所：VBAProject.Mod01_
'OutputTextUTF     ・・・元場所：VBAProject.Mod01_
'ConvArray2DtoText ・・・元場所：VBAProject.Mod01_
'OutputTextShiftJIS・・・元場所：VBAProject.Mod01_

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:VBAProject.Mod01_.EnumStringEncode
Public Enum EnumStringEncode
    vbUTF8

YujiFukami

'InputText        ・・・元場所：IkiAddin.ModFile
'InputTextUTF     ・・・元場所：IkiAddin.ModFile
'InputTextShiftJIS・・・元場所：IkiAddin.ModFile

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:IkiAddin.ModFile.EnumStringEncode
Public Enum EnumStringEncode
    vbUTF8
    vbUTF16

YujiFukami

Public Function GetFiles(ByRef FolderPath As String, _
                  ParamArray Extensions() As Variant) _
                                          As Variant
'フォルダ内のファイルを一覧で取得する
'「Microsoft Scripting Runtime」ライブラリを参照すること
'20231218 リファクタリング

'引数
'FolderPath・・・検索対象のフォルダパス
'Extensions・・・取得対象の拡張子、可変長引数配列で入力

YujiFukami

Public Sub BackupWithDateToFolder(ByRef FullPath As String, _
                          ByRef BackupFolderPath As String)
'指定ファイルを指定フォルダに日付をつけてバックアップ
'「Microsoft Scripting Runtime」ライブラリを参照すること
'20211102
'20231217 変更

'参考
'https://www.softex-celware.com/post/BackupWithDateToFolder