可以对列宽按某行的单位格的数长进行自动调整吗？

ak144

我想对第60行的数据的列宽进行调整,用vba调整时,用xj = Worksheets(1).Cells(3, 60).Value 进行取数,但总是为零.请教大侠位为什么....  还有其他错误吗？

应如何处理.....

Sub Macro3()

'

' Macro3 Macro

' 宏由 useruser 录制，时间: 2005-7-3

'

'

    Dim xj As Integer

    Dim s As Integer

    Dim l As Integer

   

   xj = Worksheets(1).Cells(3, 60).Value                      '取单位格数值

   

    s = CStr(xj)                '测试数值的长度

   

    Select Case Len(s)

        Case 1

            l = 3.75                  '个位时

        Case Is > 1

            l = s * 0.5 + 3.75  '两位数以上时

        Case Else

            l = 15

    End Select

   

    Columns(3).ColumnWidth = l

End Sub

[此贴子已经被作者于2005-7-4 14:41:07编辑过]

晓月清风

将 xj = Worksheets(1).Cells(3, 60).Value 改为： xj = Worksheets(1).[c60]另外，看了你的附件，S=12345，数值太大了，运行到下面的代码时，L的值也超大，会出现代码出错

7777777

ddddddd