' ' フォルダ検索を行います。指定の文字が入った一番初めのフォルダ名を戻します。(サブフォルダは一段目まで) ' 'フォルダが見つからない場合は、空の文字列 ' '引数 ' pbln部分一致 TRUE pstr検索フォルダ名とフォルダ名が部分一致(INSTRで含む) ' FALSE …

EXCELで時間の足し算をしていると、妙に少ない時間になることがあります。 おかしいこれは、通常の時間表示では、24時間を超えると、2日目の何時という形をとるからです。解決するには 正しく表示したい場所を右クリックして、キーボードのFを押してください…

'EXCEL VBA Target位置を予め特定しておく ' '使うデータ ' lngTargetRow As Long シートをダブルクリックした行番号 ' intTargetCol As Integer シートをダブルクリックした列番号 ' strTarget As String シートをダブルクリックしたセルの文字列 ' Dim sht…

サンプルプログラム Sub Sample() Debug.Print nlngエクスプローラでフォルダを開く("C:\nai\") '0 Debug.Print nlngエクスプローラでフォルダを開く("C:\") ' pid End Sub こちらのソースコードもコピーしてください。 EXCEL VBA フォルダの存在確認 - pgbi…

' ' クリップボードへ貼り付ける。 ' Public Function subToClipbord(pstr文字列 As String) With CreateObject("Forms.TextBox.1") .MultiLine = True .Text = temp .SelStart = 0 .SelLength = .TextLength .Copy End With End Function

サンプル Public Sub sample() Debug.Print pniblnIsExsistWorksheet("Sheet1") 'TRUE Debug.Print pniblnIsExsistWorksheet("BOOK1") 'FALSE Debug.Print pniblnIsExsistWorksheet("Sheet2",True) 'TRUE(Sheet2は非表示のシート) Debug.Print pniblnIsExsis…