エクセルで新規シートが作成された場合はNewSheetイベントで取得できますが、シートコピーまたはシート削除はイベントが用意されていません。 そのため、Workbook_SheetActivateイベントでシート数が増減したかを判定して処理を記述します。 【ソース】 各シ…

VBA標準のメッセージボックスは、利用者が[OK]ボタンを押すまで表示されます。 任意時間経過後に自動で閉じることができるメッセージボックスを表示します。 また、メッセージボックスをカスタマイズすることも可能です。 Dim WSH As Object Set WSH = Creat…

全てのシートをループして検索します。 シートの存在確認の例「シート０１」の存在確認 Dim ws As Worksheet Dim existST As Boolean For Each ws In Worksheets If ws.Name = "シート０１" Then existST = True Next ws 【22インチ液晶セット】 DELL デル …

現在開いているエクセルはWorkbooksで取得することが可能です。 開かれているブックを全て表示 Dim wb As Workbook For Each wb In Workbooks Debug.Print(wb.Name) Next wb 中古パソコン デスクトップ Windows10 64Bit搭載 ハイスペック！第3世代Core i5搭…

セルに入力されている値（文字）を取得するのは簡単ですね。 セルの値取得（例） プロパティ 取得値 xsSht.Range(“A1”).Value 値そのもの xsSht.Range(“A1”).Text 表示値(フォーマットなど見たまま) xsSht.Range(“A1”).Value2 シリアル値(日付など) xsSht.Ra…

構文 InStrRev(“検索対象文字”,”検索文字”[,start[,compare]]) 引数1：string1には、検索の対象となる文字列を指定 引数2：string2には、引数string1の中から検索する文字列を指定 引数3：startは省略可能です。検索を始める位置を指定 引数4：compareは省略…