投稿日 | : 2006/03/22(Wed) 13:39 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4: 指数表示 |
> txtA=cells(x,y).text
> ではどうでしょう。
xlSheet.Columns(1).ColumnWidth = 8
xlSheet.Cells(1, 1).Value = "123456789"
xlSheet.Cells(2, 1).Value = "123456789"
xlSheet.Cells(3, 1).Formula = "=A1+A2"
Dim txtA As Double
Dim txtB As Single
txtA = xlSheet.Cells(3, 1).Value
txtB = xlSheet.Cells(3, 1).Value
Debug.Print txtA
Debug.Print txtB
Debug.Print xlSheet.Cells(3, 1).Text
Debug.Print xlSheet.Cells(3, 1).Value
結果
246913578
2.469136E+08
2.47E+08
246913578