[求助]spss的output里的数据的小数位数怎么改啊？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

能不能改成4位或5位小数？？

好像都是三位小数啊。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：output outpu SPSS put PSS 数据 SPSS output 位数 小数

都没有人知道吗？

请大大们指教~！

file->new->script->粘贴以下语法(其中的"SetDecimalDigits objPivot, 5"是定义小数位数的) -> 选中要编辑的pivot table后->运行该语法即可

Sub Main
 Dim objPivot As PivotTable
 Dim objItem As ISpssItem
 GetFirstSelectedPivot objPivot, objItem, True, True
 objPivot.UpdateScreen = False

 'set all cell formats to 5 decimal digits
 SetDecimalDigits objPivot, 5

 objPivot.UpdateScreen = True
 objItem.Deactivate
 objItem.ActivateTable
 objItem.Deactivate
End Sub

Sub SetDecimalDigits(objPivot As PivotTable, intDigits As Integer)
 Dim lngRow As Long, lngCol As Long
 Dim objDataCells As ISpssDataCells

 Set objDataCells = objPivot.DataCellArray

 With objDataCells
  For lngRow = 0 To .NumRows - 1
   For lngCol = 0 To .NumColumns - 1
       If Not IsNull (.ValueAt (lngRow, lngCol)) Then
         .HDecDigitsAt (lngRow, lngCol) = intDigits
       End If
      Next
    Next
 End With

 objPivot.Autofit
End Sub

[此贴子已经被作者于2007-10-19 11:40:26编辑过]

谢谢大大！严重感谢！！

膜拜~~

双击包含系数估计的output表格，然后选中需要修改的数字区域，右击--在下拉菜单中选择cell properties, 然后把decimals设置成自己要要的小数位即可