- 627 名前：デフォルトの名無しさん mailto:sage [2007/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
