投稿日 | : 2003/07/28(Mon) 11:54 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: オーバーフルローの回避 |
> d(0) = TRUNC((Sheets("S1").Cells(4, 48)),0)
TRUNCは、たとえば
Sheets("S1").Cells(1, 1) = 123.456
Sheets("S1").Cells(2, 1) = "= TRUNC(A1, 0)"
のような使い方をします。
小数部切捨ては
セル内が負の数にならないなら
d(0) = Int(Sheets("S1").Cells(4, 48).Value)
銀行丸めでよければ
d(0) = Clng(Sheets("S1").Cells(4, 48).Value)
ひねくれた方法としては、(VB6限定)
d(0) = Clng(Split(CStr(objBook.Worksheets("S1").Cells(4, 48).Value), ".")(0))