F061 アクティブなファイルのファイルサイズを表示する関数

　アクティブなファイルのファイルサイズを取得する関数 です。シートにデータを張り付けた場合やCSVデータを取り込んだ場合などにどれぐらいファイルサイズが大きくなるか調べることができます。

VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法

登録されたら、シート上からユーザー関数「 FileSize 」が使用できます。
使い方は　
ワークシート上で = FileSize () の関数として使用することで、 アクティブなファイルのファイルサイズを取得できます。

【例】
FileSize ()　　⇒　19KB

Function FileSize()
’ アクティブなファイルのファイルサイズを表示する関数
’ FileSize()
Dim M As Double
M = 1048576
On Error GoTo EXITFUN
If Int(FileLen(ActiveWorkbook.FullName)) <= M Then
FileSize = Format(Int(FileLen(ActiveWorkbook.FullName) _
/ 1024), “#,##0”) & “KB”
Else
FileSize = Format(FileLen(ActiveWorkbook.FullName) / M, _
“#,##0.0”) & “MB”
End If
EXITFUN:
End Function

ここで紹介したコード使用による損害に対しては一切責任は負えません。