Excel 各セルの値を改行区切りで連結して返す関数
' fncJoinCellValues' 各セルの値を改行区切りで連結して返す関数' 引数:' rngTarget: Range 対象のセル範囲' 戻り値:' 各セルの値を改行で連結した文字列Function fncJoinCellValu...
VBA侍-SAMURAI
Excel Excel win11
Excel 任意のフォルダ内の「サブフォルダとその中のフィアル名リスト」を作成（サブフォルダが1階層の場合）
Sub prcListFilesInSimpleOrder() ' 変数の宣言 Dim objFSO As FileSystemObject ' ファイルシステム操作オブジェクト Dim fldMain As Folder ' メインフォル...
Excel Excel標準関数でシート名を取得し、日付に変換
=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1),...
Excel フォルダに含まれるサブフォルダのリストを作成
Sub prcListSubfolders() Dim dlgFolder As FileDialog ' フォルダ選択用のダイアログ Dim strFolderPath As String ' 選択されたフォルダのパス Dim fsoFi...
Access MSysIMEXColumns テーブルのインポート定義
MSysIMEXColumns テーブルのインポート定義■DataType（データ型）1: Yes/No型2: バイト型3: 整数型4: 長整数型5: 通貨型6: 単精度浮動小数点型7: 倍精度浮動小数点型8: 日付/時刻型10: テキスト...
Excel フォルダのリネーム
Sub prcRenameFolders() Dim lngRowStart As Long ' 処理開始行 Dim lngRowEnd As Long ' 処理終了行 Dim lngRow As Long ' 現在処理中の行 Dim st...
Excel フォルダパスから親フォルダとフォルダ名を分割
Sub prcSplitPath() Dim rngCell As Range ' 各セルをイテレートするための変数 Dim strPath As String ' 入力されたフルパス Dim fso As FileSystemObject...
Access フォーム上でアクティブなレコードを新規レコードとして追加（一部のフィールドは値を変更）
Sub prcCopyActiveRecordWithValuesDefinedInCase() Dim rst As DAO.Recordset Dim fld As DAO.Field ' 現在のフォームのRecordsetCloneを...
Excel 末尾が連番になるファイル名を生成
Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...