未分類 20210820_02
Option Explicit Public Sub GetData() Application.ScreenUpdating = False Application.DisplayAlerts = False c = 0 'セル番地を格納...
2021-08
未分類 未分類 20210820_01
'現在開いているブックの全シートを対象に文字列検索をおこなう。'検索結果はシート「検索結果+検索文字列」に出力'流用元： ブック全体のセル内文字列検索() Dim kwd kwd = Application.InputBox("検索文字列を...
未分類 2021081903
Option Explicit Sub 複数ブック1ブック化()Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 my...
未分類 2021081902
Option Explicit 'エクスポートSQLPrivate Sub Command_Click() Dim Dbs As DAO.Database Dim Qdf As DAO.QueryDef Dim FileName As St...
未分類 20210819
Option Explicit 'エクスポートSQLPrivate Sub Command_Click() Dim Dbs As DAO.Database Dim Qdf As DAO.QueryDef Dim FileName As St...