YujiFukami

'MakeSpinButtonUpDown   ・・・元場所：IkiAddin.ModOther
'MakeSpinButtonLeftRight・・・元場所：IkiAddin.ModOther
'Make__SpinButton       ・・・元場所：IkiAddin.ModOther
'GetSelectionCell       ・・・元場所：IkiAddin.ModCell
'OffsetCell             ・・・元場所：IkiAddin.ModCell
'F_InputBox             ・・・元場所：IkiAddin.ModMessage
'GetCellName            ・・・元場所：IkiAddin.ModCell
'AddCodeToModule        ・・・元場所：IkiAddin.ModVBIDE
'GetAllCodeModuleInBook ・・・元場所：IkiAddin.ModVBIDE
'ChangeValueCell        ・・・元場所：IkiAddin.ModCell

YujiFukami

'InputPictureCell・・・元場所：IkiAddin.ModShape
'GetShapeByName  ・・・元場所：IkiAddin.ModShape

'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
'-----------------------------------
'元場所:IkiAddin.ModShape.EnumPicturePosition
Public Enum EnumPicturePosition
    vb00中央 = 0
    vb01左上 = 1
    vb02左中央 = 2

YujiFukami

'PushValueArray2DRow・・・元場所：IkiAddin.ModArray
'ExpandArray2DRow   ・・・元場所：IkiAddin.ModArray
'IsArray2D          ・・・元場所：IkiAddin.ModArray
'IsArray2DStart1    ・・・元場所：IkiAddin.ModArray

Public Function PushValueArray2DRow(ByRef Array2D As Variant, _
                              ParamArray Values() As Variant) _
                                                  As Variant
'二次元配列の行方向に値を追加する

YujiFukami

'------------------------------------------------------------------------------------
' モジュール: ScrollListBoxByMouse
' 概　要   : リストボックスに対して「右クリック + ドラッグ」で疑似的にスクロール
'             させる機能を提供し、Shiftキーを押している場合は高速スクロールを行う。
'             さらに、Shiftキー押下時のスクロール倍数をオプショナル引数で可変にする。
'
' 【使い方】
'   1) このコードを標準モジュールまたはユーザーフォームのコードモジュールに貼り付ける。
'   2) リストボックスの MouseDown / MouseMove / MouseUp イベントで、それぞれ本モジュールの
'      ScrollListBoxByMouse_MouseDown / ScrollListBoxByMouse_MouseMove / ScrollListBoxByMouse_MouseUp

YujiFukami

Public Sub MakeCommandBtns(ByRef TargetForm As UserForm, _
                             ByRef RowCount As Long, _
                             ByRef ColCount As Long, _
                               ByRef Height As Double, _
                                ByRef Width As Double, _
                     Optional ByRef HeadStr As String = "Btn", _
                    Optional ByRef StartTop As Double = 10, _
                   Optional ByRef StartLeft As Double = 10, _
                   Optional ByRef GapHeight As Double = 3, _
                    Optional ByRef GapWidth As Double = 3)

YujiFukami

Option Explicit

'S_りゅうりゅうさん課題     ・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用2  ・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用1  ・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用3  ・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用4  ・・・元場所：VBAProject.Module1
'ConvStrArray1DLong         ・・・元場所：VBAProject.Module1
'ShowValueArray1D           ・・・元場所：VBAProject.Module1
'ClipText                   ・・・元場所：IkiAddin.ModClipboard

YujiFukami

Option Explicit

'S_りゅうりゅうさん課題用1・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用2・・・元場所：VBAProject.Module1
'S_りゅうりゅうさん課題用3・・・元場所：VBAProject.Module1
'ConvStrArray1DLong       ・・・元場所：VBAProject.Module1
'ShowValurArray1D         ・・・元場所：VBAProject.Module1
'ClipText                 ・・・元場所：IkiAddin.ModClipboard
'AddArray1DValue          ・・・元場所：VBAProject.Module1
'SubtractionArray1DValue  ・・・元場所：VBAProject.Module1

YujiFukami

'ShowMessageMacroRegistShapes・・・元場所：IkiAddin.ModOther
'ExtractArray2D              ・・・元場所：IkiAddin.ModArray
'IsArray2D                   ・・・元場所：IkiAddin.ModArray
'IsArray2DStart1             ・・・元場所：IkiAddin.ModArray
'DPA                         ・・・元場所：IkiAddin.ModImmediate
'GetDimensionArray           ・・・元場所：IkiAddin.ModArray
'DebugPrintArray1D           ・・・元場所：IkiAddin.ModImmediate
'DebugPrintArray             ・・・元場所：IkiAddin.ModImmediate
'Make__ArrayWithNum          ・・・元場所：IkiAddin.ModImmediate

YujiFukami

'SSA              ・・・元場所：IkiAddin.ModArray
'GetDimensionArray・・・元場所：IkiAddin.ModArray
'ShowSheetArray1D ・・・元場所：IkiAddin.ModArray
'ShowSheetArray2D ・・・元場所：IkiAddin.ModArray

Public Sub SSA(Array_ As Variant)
'配列の中身をシート上に表示して確認する
'表示するシートは新規ブックとして作成する
'20250106

YujiFukami

'SortArray2D_WS   ・・・元場所：VBAProject.Mod99_アドインから
'IsArray2D        ・・・元場所：VBAProject.Mod99_アドインから
'IsArray2DStart1  ・・・元場所：VBAProject.Mod99_アドインから
'Judge__CanUseSort・・・元場所：VBAProject.Mod99_アドインから
'SortArray2D      ・・・元場所：VBAProject.Mod99_アドインから
'ExtractColArray2D・・・元場所：VBAProject.Mod99_アドインから
'SortArray2Dby1D  ・・・元場所：VBAProject.Mod99_アドインから
'ConvStrToISO     ・・・元場所：VBAProject.Mod99_アドインから
'DimArray1DNumbers・・・元場所：VBAProject.Mod99_アドインから
'SortArrayQuick   ・・・元場所：VBAProject.Mod99_アドインから