＜分類：ワークシート操作＞ ＜使用例：ワークシートを追加して名前を設定する＞＜プログラム例＞ Sub 使用例() Call 部品_ワークシート追加("新しいワークシート名") End Sub Sub 部品_ワークシート追加(p1) Dim ws_maxsu As Long Dim i As Long Dim flg As…

＜分類：ワークシート操作＞ ＜使用例：特定のワークシート以外を削除する＞＜プログラム例＞ Sub 使用例() Dim sname As Variant '下記に削除したくないワークシート名を指定 sname = Array("Sheet1", "Sheet2") Call 特定のワークシート以外を削除(sname) …