自作関数

Excelファイルをcsvデータとして保存する 前提条件 現在開いているExcelファイル、シートが対象 同フォルダに保存 Excelファイルとcsvデータのファイル名は同一（拡張子のみ異なる） 問題点 csvに保存した瞬間、開いていたExcelファイルがcsvファイルにすり替わってしまうので、その後Excelファイル形式で保存できない（⇒データ損失に繋がる） 以上の点を踏まえた仕様 関数はPERSONAL.XLSB上に作成し、どのExcelファイルからも汎用的に呼び出せるようにする 元のExcelファイルとは別領域に保存用ファイルを作成し、そのファイルをcsvファイルとして保存することで、元…

AccessのデータをExcelに貼り付ける際、 ↓ 貼り付け ↓ このままでは見栄えが悪いので、以下の処理を行う ①セルの書式設定で「折り返して全体を表示する」のチェックを外す ②列幅を自動調整 この①、②を実行する関数 Sub AccessToExcelFormat() '「折り返して全体を表示する」を解除する Selection.WrapText = False '列幅を自動調整する '---EntireColumn => 対象セルが含まれる列を指す Selection.EntireColumn.AutoFit End Sub ※Selection = 選択中のセル。Range型 実行後

'------------------------------------------------------'セルの書式設定を書き出し'' 戻値：なし'' 引数：コピー元セル（範囲指定は不可）' ：コピー先セル（範囲指定可）'' 注意：コピー元セルが複数指定されている場合エラーとする'-------------------------------------------------------Sub WriteRangeFormat(rngMoto As Range, rngSaki As Range) If rngMoto.Count > 1 Then 'エラー処理を行う（ログを出す、セル…

この表の各セルの書式を赤い罫線内に書き出す A列：文字列（A4のみ標準）、B列：数値、C列：通貨 1行目はタイトルなので値をコピー Dim lngMaxRow As Long Dim lngMaxCol As Long Dim i As Integer Dim j As Integer '表内最大行を取得 lngMaxRow = lngGetMaxRow(ActiveSheet) '表内最大列を取得 lngMaxCol = lngGetMaxCol(ActiveSheet) For i = 1 To lngMaxRow '最大行まで繰り返す For j = 1 To lngMaxCol '最大…