VBA侍-SAMURAI

Excel

文字列から空白行を削除

' 機能概要: 文字列から空白行を削除' 引数:' strText - 処理する文字列' 戻り値:' String - 空白行が削除された文字列Function RemoveBlankLines(strText As String) As ...
Excel

英語形式の日付文字列を日付型に変換

' 機能概要: 英語形式の日付文字列を日付型に変換' 引数:' strDateText - 変換する日付の文字列(例: "Wednesday, December 13, 2023 9:00 AM")' 戻り値:' Variant - 変換さ...
Excel

日付文字列から括弧(「(」と「)」)および括弧内の文字を除去するVBA関数

' 機能概要: 文字列から括弧と括弧内の文字を除去' 引数:' strText - 処理する文字列' 戻り値:' String - 括弧と括弧内の文字が除去された文字列Function RemoveParentheses(strText A...
Excel

指定された形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換する関数

' 機能概要: 「Wednesday, December 13, 2023 9:00」形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換' 引数:' strDate - 変換する日付文字列' 戻り値:' String - 変換...
Excel

特定のフォルダ(およびそのサブフォルダ)に存在する全てのファイル名とそのパスを取得し、テーブルAに格納する処理

Sub StoreFilesToTableA() Dim fso As FileSystemObject Dim folder As folder Dim file As file Dim db As DAO.Database Dim rs...
Excel

BookAのSheet1を新規ブックにコピー、フォントと配色を変更後に保存

' 機能概要: ワークブックAのSheet1を新規ブックにコピーし、フォントと配色を変更後、保存する' 引数: なし' 備考: 保存先のフォルダ、ワークブックAの名前、テーマファイルのパスは適宜変更Sub CopySheetAndForma...
Excel

ファイルコピー(リスト順に実行)

Sub CopyFilesToFolderB() ' 機能概要: Sheet1のA列にあるファイルのフルパスを読み取り、フォルダBにコピーする ' 引数: なし ' 備考: フォルダBのパスは適宜変更 Dim ws As Worksheet...
Excel

PDFファイル名取得-2

'--------------------------------------------------'機能概要:指定フォルダ(サブフォルダ含む)内の全PDFファイル名とフルパスを取得'---------------------------...
Excel

指定されたフォルダ内のPDFファイルの個数をカウントする(サブフォルダ含む)

Function CountPDFFiles(strFolderPath As String) As Long ' 機能概要: 指定されたフォルダ内のPDFファイルの個数をカウントする(サブフォルダ含む) ' 引数: strFolderPa...
Excel

オートフィルタを設定、特定キーワードで抽出

Sub prcFilterForContinuation() ' 機能概要: シートAのA列にオートフィルタを設定し、「●」という文字が含まれるセルを表示 ' 引数: なし ' 備考: フィルタの基準は「続」を含む Dim ws As Wo...