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

YujiFukami

'MakeCodeProtectSheetFromActiveSheet・・・元場所：IkiAddin.ModRibbonGeneral
'ClipText                           ・・・元場所：IkiAddin.ModClipboard



Public Sub MakeCodeProtectSheetFromActiveSheet()
'ActiveSheetの保護状態から、そのシートの保護を設定するコードを自動生成する
'20241205

YujiFukami

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
    Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
    Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hMem As LongPtr) As LongPtr
    Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long

    Private Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As LongPtr) As LongPtr
    Private Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr