Excel Excel標準関数でシート名を取得し、日付に変換
=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1),...
VBA侍-SAMURAI
Excel 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...
Excel フルパスからフォルダパスとファイル名を分割出力
Sub prcSplitFilePath() Dim wst As Worksheet Dim lngLastRow As Long Dim lngRow As Long Dim strFullPath As String Dim strF...
Excel フォルダ内に存在する全てのファイルのフルパスを取得（サブフォルダも含む）
Sub prcListFilesInFolderWithSubfolders() Dim fso As FileSystemObject ' FileSystemObjectのインスタンス Dim fld As Folder ' 処理中のフ...
Excel ダブルクリックで任意のwebサイトを起動
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' セルA1をダブルクリックした時に指定のURLを開く Dim strURL...