Office中国论坛/Access中国论坛

标题: [求助] [打印本页]

作者: langtl 时间: 2007-4-6 18:50
标题: [求助]
请教各位高手：能否在excel中让行高（或列宽)，分别对应等于一列（或一行）单元格中的数值？谢谢！

作者: pureshadow 时间: 2007-4-9 03:41

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aa As Integer
aa = Range("a1").CurrentRegion.Rows.Count
For i = 1 To aa

If ("a" & i) = "" Then
Range("a" & i).ColumnWidth = 8
Else: Range("a" & i).ColumnWidth = Range("a" & i)
End If
Next

End Sub

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