GetChild

Option Explicit Sub GetFileList() Dim MyPath '自分のパスDim TargetPath '検索パスDim FolderDepth '検索深度 MyPath = ThisWorkbook.Path '検索パスのチェックTargetPath = Sheet1.Cells(1, 2)If Dir(TargetPath, vbDirectory) = "" Then '処理終了 Debu…

keybd_event

Public Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) 'bVk： Keycode'bScan： Scancode、常に0'dwFlags： 0：キーを押す / 1：0xE0を追加 / 2:キーを放す'd…

■

Public Function SendKeys(InpKeys As String)'CreateObject("WScript.Shell").SendKeys InpKeys Dim o As ObjectSet o = CreateObject("WScript.Shell") ' インスタンス化o.SendKeys InpKeys ' オブジェクトを使った処理Set o = Nothing ' 最後に必ず Nothi…

セルコピー3

実行対象 転記設定 転記先=保存先？ 実行ログ "実行する" 行のみ実行 転記元 転記先 保存先 貼付形式 （リストから選択） （参考）保存先ハイパーリンク （参考） 転記元Fパス 作成 （参考） 転記先Fパス 作成 （参考） 保存先Fパス 作成 フォルダパス ファ…

セルのコピー2

【概要】転記元のセルを、転記先に転記して、保存先に保存します。 ※このシートの21行目を開始行とし、「実行対象」と「転記設定」が全て空欄の行を最終行とします。（最大100行目まで。）※転記先ファイルと保存先ファイルが同じ場合は、転記先の上書保存に…

セルコピー

Option Explicit '========================================'自動セル転記'========================================Sub CopyCellAuto() Dim setsheetDim cntrowDim rowchk As Range Dim fromsheetDim fromrangeDim fromfilepathDim tofilepathDim tofilen…