[已解决]VB代码输入。。。。。

W0898

下面的代码怎么样输入，ThisWorkbook对象在哪

'把下面的代码写入ThisWorkbook对象里
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-26 15:41

按Alt+F11出现如下界面

VB代码输入。。。。。

跳转到最佳答案楼层

爱疯

代码的主要意图是修改选定列宽为20，并在离开此列后恢复原来的列宽。

楼主加上with语句后，并修改了事件，是希望做什么？

W0898

代码是别人写的,可以帮我改上面的代码不,主要意图是修改选定列宽为20,并在离开此列后恢复原来的列宽。上面的代码在哪里输入,怎么样输入.谢谢

amulee

按Alt+F11出现如下界面

VB代码输入。。。。。