YujiFukami

'S_店舗一覧取得                    ・・・元場所：VBAProject.Mod99_アドインから
'Get__都道府県ページ一覧           ・・・元場所：VBAProject.Mod99_アドインから
'S__初期化                         ・・・元場所：VBAProject.Mod99_アドインから
'GetCellArea                       ・・・元場所：IkiAddin.ModCell
'GetEndCol                         ・・・元場所：IkiAddin.ModCell
'GetEndRow                         ・・・元場所：IkiAddin.ModCell
'ShowStatusBarProgress             ・・・元場所：IkiAddin.ModOther
'Get__都道府県別店舗情報           ・・・元場所：VBAProject.Mod99_アドインから
'Get__都道府県別店舗情報_ページ単体・・・元場所：VBAProject.Mod99_アドインから

YujiFukami

'MakeSpinButton        ・・・元場所：VBAProject.Module1
'GetSelectionCell      ・・・元場所：IkiAddin.ModCell
'OffsetCell            ・・・元場所：IkiAddin.ModCell
'F_InputBox            ・・・元場所：IkiAddin.ModMessage
'GetCellName           ・・・元場所：VBAProject.Module1
'AddCodeToModule       ・・・元場所：IkiAddin.ModVBIDE
'GetAllCodeModuleInBook・・・元場所：IkiAddin.ModVBIDE
'ChangeValueCell       ・・・元場所：VBAProject.Module1

Public Sub MakeSpinButton()

YujiFukami

Public Sub EventChangeValueFromDropdownlist(ByRef Target As Range, Cancel As Boolean)
'入力先のセルにドロップダウンリストが設定してある場合に、ダブルクリックや右クリックで値の切替が出来るようにする
'20241030
'https://gist.github.com/YujiFukami/8a7b4af16890f863cb1d6af84058642d

'↓入力規則のポップアップ用
'ダブルクリックで値切替

'引数
'Target・・・入力セル

YujiFukami

'ChangeWindowPositonSize ・・・元場所：VBAProject.Module1
'GetWindowSizeAndPosition・・・元場所：VBAProject.Module1

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:VBAProject.Module1.FindWindow
Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
                                                                            ByVal lpWindowName As String) _
                                                                                               As Long

YujiFukami

Option Explicit

'we_CommandBars_OnUpdate・・・元場所：VBAProject.ThisWorkbook
'S__図形の上に四角作図  ・・・元場所：VBAProject.ThisWorkbook
'GetXYDocumentFromCursor・・・元場所：IkiAddin.ModCursor
'GetCellFromPoint       ・・・元場所：IkiAddin.ModCursor
'GetVisibleCell         ・・・元場所：IkiAddin.ModCell
'GetXYCellScreenRect    ・・・元場所：IkiAddin.ModCursor
'GetPaneOfCell          ・・・元場所：IkiAddin.ModCursor
'GetCellDocumentRect    ・・・元場所：IkiAddin.ModCursor

YujiFukami

'SelectForeShapeOnCursor・・・元場所：IkiAddin.ModShape
'GetXYDocumentFromCursor・・・元場所：IkiAddin.ModCursor
'GetCellFromPoint       ・・・元場所：IkiAddin.ModCursor
'GetVisibleCell         ・・・元場所：IkiAddin.ModCell
'GetXYCellScreenRect    ・・・元場所：IkiAddin.ModCursor
'GetPaneOfCell          ・・・元場所：IkiAddin.ModCursor
'GetCellDocumentRect    ・・・元場所：IkiAddin.ModCursor
'JudgeInSquare          ・・・元場所：IkiAddin.ModCursor

YujiFukami

Option Explicit

'AddRedCircle           ・・・元場所：IkiAddin.ModRibbon
'Add__ShapeOnSelection  ・・・元場所：IkiAddin.ModRibbon
'GetXYDocumentFromCursor・・・元場所：IkiAddin.ModCursor
'GetCellFromPoint       ・・・元場所：IkiAddin.ModCursor
'GetXYCellScreenRect    ・・・元場所：IkiAddin.ModCursor
'GetPaneOfCell          ・・・元場所：IkiAddin.ModCursor
'GetCellDocumentRect    ・・・元場所：IkiAddin.ModCursor
'GetVisibleCell         ・・・元場所：IkiAddin.ModCell

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