excelで250kb以上のファイルをリネームさせず、msgboxで連絡したい。

前提・実現したいこと

EXCEL 2013でマクロボタンで以下のことを実施したいと思います。
１「ファイルサイズを300kb未満であれば、２と３のマクロを実行」
２「名前を”yyymmdd-hhss_セルE1"にリネームする。」
３「マイドキュメントに保存する」
４「１で300kb以上ならmsgboxで「サイズが大きいので修正願います。」
としたいです。

２と３はさほど問題なくできました。
１ですが、調べても解決策が出てきません。
ご教示願います。

該当のソースコード

Option Explicit

Sub 日付と名前をつけて保存()

Dim Save_File, Save_Filename As String
Dim file As String

'----パスを含むファイル名---------
file = ActiveWorkbook.FullName

'----シート、プロパティを選択。---------
Sheets("プロパティ").Select
ActiveCell.Offset(1, 1).Range("A1").Select

'---------ファイルサイズ---------
 'ファイルサイズはLOF関数を使用
Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name For Input As #1
 Range("B5") = "ファイルサイズ(B)"
 Range("C5") = LOF(1) & "バイト"
 Range("B6") = "ファイルサイズ(KB)"
 Range("C6") = Format(LOF(1) / 1000, "おおよそ0.0KB")



    MsgBox file & vbCrLf & vbCrLf & "ファイルサイズは、" & Format(FileLen(file), "#,###") & " Byteです。", vbInformation, "FileLen"

'名前を付け保存するファイル名の初期設定
Save_Filename = Format(Now(), "yyyymmdd-hhmm") & Range("B3")

'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
     FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*")

End Sub

補足情報（FW/ツールのバージョンなど）

ここから300kb以上ならMSG BOXに「ファイルサイズを小さくしてください。」
300kb未満なら”名前を付けて保存”ダイアログに進むようにしたいです、
サンプルはここにあります。
https://www.axfc.net/u/3896161

行動規範の内容に同意します

回答2件

ベストアンサー

if 文を調べてください。

投稿2018/03/17 23:04

Zuishin

総合スコア28660

NestRaven

2018/03/18 13:35

Range("C6") = Format(LOF(1) / 1000, "おおよそ0.0KB") If Range("C5") <= 77000 Then MsgBox file & vbCrLf & vbCrLf & "ファイルサイズは、" & Format(FileLen(file), "#,###") & " Byteです。", vbInformation, "FileLen" Else MsgBox file & vbCrLf & vbCrLf & "ファイルサイズオーバー　" End If '名前を付け保存するファイル名の初期設定と追加したのですが、結果にかかわらず保存ダイアログが開きます。

Zuishin

2018/03/18 13:39

C5 は数値でない上に Range だからでは？

NestRaven

2018/03/18 13:55

If Range("C5") <= 77000 Thenから If Cells(5, 3) <= 70000 Thenに変更しても保存ダイアログが開いてしまいます。

Zuishin

2018/03/18 14:06

Value を使ってください。あと文字列は数値ではありません。

NestRaven

2018/03/18 14:36

ありがとうございます。 Range("B5") = "ファイルサイズ(B)" Range("C5").Value = LOF(1) & "バイト" Range("B6") = "ファイルサイズ(KB)" Range("C6") = Format(LOF(1) / 1000, "おおよそ0.0KB") If Cells(5, 3).Value <= 70000 Then これですと、ファイルサイズオーバーの窓がでても「OK」を押したら保存ダイアログが出てしまうので、「cancel」ボタンを出して、処理を中止するマクロを組んだ方がよいのですが、旻がわかりません。ご指導ご鞭撻のほどお願い申し上げます。

Zuishin

2018/03/18 21:09

本気で言っていますか？ if 文がどういう働きをしているかちゃんと調べて理解しましたか？

Zuishin

2018/03/18 23:25 編集

if 条件 then 処理1 処理2 処理3 処理n else 処理1 処理2 処理3 処理n end if

NestRaven

2018/03/19 13:38

ファイルサイズオーバー　"の後に End が抜けていました。ありがとうございました。

行動規範の内容に同意します