>>626
おまえ
スレタイ
読めてない
　＼（^o^）／

Public Sub hoge()
Dim HDD As Variant
Dim ImgFile As Variant
Dim cnt As Long

HDD = CDec(200) * CDec(1024) * CDec(1024) * CDec(1024)
ImgFile = CDec(2.5) * CDec(1024) * CDec(1024)
Do While True
If HDD < ImgFile Then
Debug.Print cnt; "枚入ります"
Exit Sub
End If
HDD = HDD - ImgFile
cnt = cnt + 1
Loop
End Sub