miya159

'パブリック変数を設定します（モジュールの一番上に設定します）Public Datai As VariantPublic myFolder As StringPublic myFolderlen As Long 'サブフォルダを含むフォルダ...

Option Explicit Public Sub GetData() Application.ScreenUpdating = False Application.DisplayAlerts = False c = 0 'セル番地を格納...

'現在開いているブックの全シートを対象に文字列検索をおこなう。'検索結果はシート「検索結果+検索文字列」に出力'流用元： ブック全体のセル内文字列検索() Dim kwd kwd = Application.InputBox("検索文字列を...

Option Explicit Sub 複数ブック1ブック化()Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 my...

Option Explicit 'エクスポートSQLPrivate Sub Command_Click() Dim Dbs As DAO.Database Dim Qdf As DAO.QueryDef Dim FileName As St...

Option Explicit 'エクスポートSQLPrivate Sub Command_Click() Dim Dbs As DAO.Database Dim Qdf As DAO.QueryDef Dim FileName As St...

テストだよ