07/08/13 14:12:30
>>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