Public c As Integer '上次列号 Public w As Single '上次列宽 '当工作表中单元格选择发生变化时就执行下列程序 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Sh If Target.Count = 1 Then '如果仅选择一个单元格 If c > 0 Then .Columns(c).ColumnWidth = w '有上次列号,就将上次的列设为W列宽,即恢复其原先列宽 End If w = Target.ColumnWidth '记录本次选择的单元格的列宽 c = Target.Column '记录本次选择的单元格的列号 Target.ColumnWidth = 20 '20表示扩大的宽度,自行修改 End If End With End Sub |