YujiFukami

Public Function ConvOneDrivePath_LocalPath(ByRef Path As String) As String
'OneDriveのhttp形式のパスをローカル上のパスに変換する
'20231218

'https://d.docs.live.net/********/作業フォルダ/2023年/12月/Book.xlsm
'↓
'C:/Users/[ユーザー名]/OneDrive/作業フォルダ/2023年/12月/Book.xlsm

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

YujiFukami

Public Sub StopWatch(Optional Reset As Boolean = False)
'時間を計測する
'1回目の実行で計測を開始し、以降の実行で計測開始からの経過時間と前回実行時からの経過時間をイミディエイトウィンドウに表示する
'20220927
'https://www.softex-celware.com/post/%E3%83%AC%E3%82%A4%E3%82%A2%E3%82%A6%E3%83%88
    
'引数
'Reset・・・計測をリセットするかどうか(省略ならリセットしない)
    
    '実行回数加算

YujiFukami

'Worksheet_SelectionChange         ・・・元場所：VBAProject.Sheet1
'S_シェイプをクリックしたら血が飛ぶ・・・元場所：VBAProject.Mod01_血
'GetXYDocumentFromCursor           ・・・元場所：VBAProject.Mod02_アドインから
'GetCellFromPoint                  ・・・元場所：VBAProject.Mod02_アドインから
'GetXYCellScreenRect               ・・・元場所：VBAProject.Mod02_アドインから
'GetPaneOfCell                     ・・・元場所：VBAProject.Mod02_アドインから
'GetCellDocumentRect               ・・・元場所：VBAProject.Mod02_アドインから
'Draw_血痕XY基準                   ・・・元場所：VBAProject.Mod01_血
'GetVisibleCell                    ・・・元場所：VBAProject.Mod01_血
'Draw__血痕                        ・・・元場所：VBAProject.Mod01_血

YujiFukami

'S_特殊並び替え                    ・・・元場所：VBAProject.Mod01_処理
'Get__並び替え対象1列              ・・・元場所：VBAProject.Mod01_処理
'GetCellArea                       ・・・元場所：IkiAddin.ModCell
'GetEndCol                         ・・・元場所：IkiAddin.ModCell
'GetEndCell                        ・・・元場所：IkiAddin.ModCell
'GetEndRow                         ・・・元場所：IkiAddin.ModCell
'GetArray2DFromCell                ・・・元場所：IkiAddin.ModCell
'TransposeN1toArray1D              ・・・元場所：IkiAddin.ModArray
'CheckArray2D                      ・・・元場所：IkiAddin.ModArray
'CheckArray2DStart1                ・・・元場所：IkiAddin.ModArray

YujiFukami

'SetNameCellSheetScope   ・・・元場所：IkiAddin.ModClipboard
'F_InputBox              ・・・元場所：IkiAddin.ModMessage
'Conv__使えない記号を置換・・・元場所：IkiAddin.ModClipboard

Public Sub SetNameCellSheetScope()
'選択セルに名前定義を設定する。使用範囲はワークブック内にする
'20230227
'20230315 A列や1行目にある場合の処理修正
'20230418 入力した内容を修正

YujiFukami

'ConvOneDrivePathWithoutHTTP・・・元場所：IkiAddin.ModFile
'Get__UserPathBeforeOneDrive・・・元場所：IkiAddin.ModFile
'IsMac                      ・・・元場所：IkiAddin.ModOther

Public Function ConvOneDrivePathWithoutHTTP(ByRef Path As String, _
                       Optional ByRef RegistFolderPath As String = "") _
                                                       As String
'OneDriveのhtt****のパスをDirで認識できるパスに変換する
'https://tsurutoro.com/vba-trouble2/
'20220713

YujiFukami

'S_図形にテキスト         ・・・元場所：VBAProject.Mod01_メイン処理
'SetShapeTextFromClipboard・・・元場所：VBAProject.Mod99_アドインから
'GetClipboardText         ・・・元場所：VBAProject.Mod99_アドインから



Public Sub S_図形にテキスト()
    Call SetShapeTextFromClipboard
End Sub

YujiFukami

'S_バーコード出力テスト      ・・・元場所：VBAProject.Mod01_
'Get__バーコード番号一覧     ・・・元場所：VBAProject.Mod01_
'GetCellArea                 ・・・元場所：IkiAddin.ModCell
'GetEndCol                   ・・・元場所：IkiAddin.ModCell
'GetEndCell                  ・・・元場所：IkiAddin.ModCell
'GetEndRow                   ・・・元場所：IkiAddin.ModCell
'GetArray2DFromCell          ・・・元場所：IkiAddin.ModCell
'TransposeN1toArray1D        ・・・元場所：IkiAddin.ModArray
'CheckArray2D                ・・・元場所：IkiAddin.ModArray

YujiFukami

'MakeCodeGetCellDirect・・・元場所：IkiAddin.ModClipboard
'ClipboardCopy        ・・・元場所：IkiAddin.ModClipboard

Public Sub MakeCodeGetCellDirect()
'選択セル範囲からセルオブジェクトを取得するコード
'直接設定するコードを作成する
'20220610
'20230224 選択したセルに名前定義がある場合はセルのアドレスは定義された名前にする

'例

YujiFukami

'MakeCodeEnum               ・・・元場所：IkiAddin.ModClipboard
'MsgYesNo                   ・・・元場所：IkiAddin.ModMessage
'GetArray2DFromCell         ・・・元場所：IkiAddin.ModCell
'FlattenArray2D             ・・・元場所：IkiAddin.ModArray
'CheckArray2D               ・・・元場所：IkiAddin.ModArray
'CheckArray2DStart1         ・・・元場所：IkiAddin.ModArray
'F_InputBox                 ・・・元場所：IkiAddin.ModMessage
'UniqueArray                ・・・元場所：IkiAddin.ModArray
'MakeDictFromArray1DForCount・・・元場所：IkiAddin.ModDictionary
'CheckArray1D               ・・・元場所：IkiAddin.ModArray