vb 中如何将数据保留一位小数,如何表示成科学计数法?用什么语言?format 不行.因为我的不是直接的数字,是这样的:Dim aa,ab,ac,ad,ba,bb,bc,bd As DoubleFor i = 1 To intLastRowNumaa = objImportSheet.Cells(i,2)ab = ob
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/27 10:23:07
vb 中如何将数据保留一位小数,如何表示成科学计数法?用什么语言?format 不行.因为我的不是直接的数字,是这样的:Dim aa,ab,ac,ad,ba,bb,bc,bd As DoubleFor i = 1 To intLastRowNumaa = objImportSheet.Cells(i,2)ab = ob
vb 中如何将数据保留一位小数,如何表示成科学计数法?用什么语言?
format 不行.因为我的不是直接的数字,是这样的:
Dim aa,ab,ac,ad,ba,bb,bc,bd As Double
For i = 1 To intLastRowNum
aa = objImportSheet.Cells(i,2)
ab = objImportSheet.Cells(i,3)
ac = objImportSheet.Cells(i,4)
ad = objImportSheet.Cells(i,1)
ba = Format(aa,".#")
bb = -(ab / 1000)
bc = ac * 10
bd = ad
objImportSheet.Cells(i,1) = ba
objImportSheet.Cells(i,2) = bb
objImportSheet.Cells(i,3) = bc
objImportSheet.Cells(i,4) = bd
objImportSheet.Cells(i,5) = 0
objImportSheet.Cells(i,6) = 3.4
要求:
objImportSheet.Cells(i,1) 保留一位小数例如117885.0
objImportSheet.Cells(i,2)科学计数 例如-5.400E-03
objImportSheet.Cells(i,3)科学计数例如 3.252E-02
objImportSheet.Cells(i,4) 科学计数例如 1.000E+00
objImportSheet.Cells(i,5) 例如0.000E+00
objImportSheet.Cells(i,6) 例如3.400E+00
vb 中如何将数据保留一位小数,如何表示成科学计数法?用什么语言?format 不行.因为我的不是直接的数字,是这样的:Dim aa,ab,ac,ad,ba,bb,bc,bd As DoubleFor i = 1 To intLastRowNumaa = objImportSheet.Cells(i,2)ab = ob
设置单元格的格式:
objImportSheet.Cells(i,1) .NumberFormatLocal = "0.0"
objImportSheet.Cells(i,2).NumberFormatLocal = "0.000E+00"
下面的都一样.