[已解决]解释VB代码。。。。。。

W0898

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
            End If
            w = Target.ColumnWidth
            c = Target.Column
            Target.ColumnWidth = 20    '20表示扩大的宽度，自行修改
        End If
    End With
End Sub
上面的代码是什么意思。谢谢

最佳答案

月排行榜 / 总排行榜

amulee

2010-9-27 09:47

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

跳转到最佳答案楼层

amulee

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

W0898

和以设置鼠标离开就恢复原来的列宽不