Office中国论坛/Access中国论坛

标题: 可以对列宽按某行的单位格的数长进行自动调整吗？ [打印本页]

作者: ak144 时间: 2005-7-4 22:41
标题: 可以对列宽按某行的单位格的数长进行自动调整吗？
我想对第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[attach]11673[/attach]

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

作者: 晓月清风 时间: 2005-7-5 17:04
将 xj = Worksheets(1).Cells(3, 60).Value 改为： xj = Worksheets(1).[c60]另外，看了你的附件，S=12345，数值太大了，运行到下面的代码时，L的值也超大，会出现代码出错

作者: 7777777 时间: 2009-1-5 10:40
ddddddd

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)