YujiFukami

'MakeSpinButtonUpDownValue_ShapeName   ・・・元場所：IkiAddin.ModRibbonGeneral
'MakeSpinButtonValueLeftRight_ShapeName・・・元場所：IkiAddin.ModRibbonGeneral
'Make__SpinButtonValue_ShapeName       ・・・元場所：IkiAddin.ModRibbonGeneral
'GetSelectionCell                      ・・・元場所：IkiAddin.ModCell
'OffsetCell                            ・・・元場所：IkiAddin.ModCell
'F_InputBox                            ・・・元場所：IkiAddin.ModMessage
'MsgYesNo                              ・・・元場所：IkiAddin.ModMessage
'GetCellName                           ・・・元場所：IkiAddin.ModCell
'AddModuleInBook                       ・・・元場所：IkiAddin.ModVBIDE

YujiFukami

'S08_結合範囲貼付       ・・・元場所：VBAProject.Mod08_結合範囲貼り付け
'GetClipText            ・・・元場所：VBAProject.Mod99_アドインから
'ConvCellCopyTextToArray・・・元場所：VBAProject.Mod91_一次作業用
'Split_Start1           ・・・元場所：VBAProject.Mod99_アドインから
'ConvArray1D_Start1     ・・・元場所：VBAProject.Mod99_アドインから
'IsArray1D              ・・・元場所：VBAProject.Mod99_アドインから
'GetSelectionCell       ・・・元場所：VBAProject.Mod99_アドインから
'OffsetCell             ・・・元場所：VBAProject.Mod99_アドインから

YujiFukami

Public Function EventDblClkListSelectRow(ByRef Target As Range, _
                                         ByRef Cancel As Boolean, _
                                       ByRef ListArea As Range, _
                                      ByRef PasteCell As Range) _
                                                      As Boolean
'表範囲をダブルクリックしたときに、ダブルクリックした行の1行を指定セルにコピーする
'20220221
'20220921 Cell.Count→Cell.CountLarge
'20230714 転記処理を行ったらTrueを返す
'http://blog.livedoor.jp/aero_iki-jibundakemacro/archives/33784239.html

YujiFukami

'DeleteNameCellSelectCell・・・元場所：IkiAddin.ModRibbonGeneral
'GetSelectionCell        ・・・元場所：IkiAddin.ModCell
'ClipText                ・・・元場所：IkiAddin.ModClipboard



Public Sub DeleteNameCellSelectCell()
' 20230405
' 選択範囲内のセルの名前定義を削除し、削除した名前定義の一覧をメッセージで表示する

YujiFukami

Public Sub ChangeValueTextBox_byKey(ByVal KeyCode As MSForms.ReturnInteger, _
                                     ByVal Target As MSForms.TextBox, _
                                   ByVal MinValue As Long, _
                                   ByVal MaxValue As Long)
'↑↓キーをユーザーフォームのテキストボックス(TextBox)の値を増減させる共通処理
'20250105
    
'例
'Private Sub txt_時_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'    '時：0～23

YujiFukami

Option Explicit

'ChangePushedButtonColor・・・元場所：IkiAddin.ModShape
'GetShapePushed         ・・・元場所：IkiAddin.ModShape
'GetShapeByName         ・・・元場所：IkiAddin.ModShape
'WaitByDoEvents         ・・・元場所：IkiAddin.ModOther

Public Sub ChangePushedButtonColor(ByRef FillColor As Long, _
                                   ByRef FontColor As Long)
'クリックされた図形の色を変更する

YujiFukami

Public Sub ConvertSelection_AlphaNumToHalfWidth()
'【概要】
' 選択範囲のセルに含まれる文字列から、
'「全角英字・全角数字（および同範囲の基本記号）」のみを半角へ変換する。
' カタカナ・全角スペース・漢字は変換対象外。
'
'【処理例】
' 　ＡＢＣ１２３　　　→　ABC123
' 　Ｈｅｌｌｏ！　　　→　Hello!
' 　テスト１２３　　　→　テスト123

YujiFukami

'SelectShapesFromCell・・・元場所：IkiKaiso2.ModRibbon
'GetSelectionCell    ・・・元場所：IkiKaiso2.ModCell
'SetLineXYby4Value   ・・・元場所：IkiKaiso2.ModRibbon
'JudgeLineIntersect  ・・・元場所：IkiKaiso2.ModRibbon
'JudgeInSquare       ・・・元場所：IkiKaiso2.ModRibbon

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:IkiKaiso2.ModRibbon.TP_Line

YujiFukami

'OutputSelectShapeToPicture     ・・・元場所：IkiKaiso2.ModRibbon
'GetActiveBookPathOrSelectFolder・・・元場所：IkiKaiso2.ModFile
'SelectFolder                   ・・・元場所：IkiKaiso2.ModFile
'ConvOneDrivePath_LocalPath     ・・・元場所：IkiKaiso2.ModFile
'Get__出力済み画像から画像名取得・・・元場所：IkiKaiso2.ModRibbon
'FileExists                     ・・・元場所：IkiKaiso2.ModRibbon
'OutputShapeToPicture           ・・・元場所：IkiKaiso2.ModRibbon
'ClipText                       ・・・元場所：IkiKaiso2.ModOther

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※

YujiFukami

'MakeCodeSheetNamedCellProperty・・・元場所：VBAProject.Mod01_
'GetNamedCellInSheet           ・・・元場所：VBAProject.Mod01_
'ExtractArray2D                ・・・元場所：IkiAddin.ModArray
'IsArray2D                     ・・・元場所：IkiAddin.ModArray
'IsArray2DStart1               ・・・元場所：IkiAddin.ModArray
'ClipText                      ・・・元場所：IkiAddin.ModClipboard
'ShowVBE                       ・・・元場所：IkiAddin.ModOther
'ShowImmediateWindow           ・・・元場所：IkiAddin.ModOther
'ShowCodeWindowDelay           ・・・元場所：IkiAddin.ModOther