以下是引用好为人师在2006-11-2 21:06:41的发言:我已经修改好了,可以在实现我上面(8楼)的功能,现共享 Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Dim objDraw As Object
With Target If .Columns.Count > 1 Then Exit Sub If .Column = 1 Or .Column = 3 Then Set Rng = Columns(8).Find(.Value, lookat:=xlWhole, MatchCase:=True) If Not Rng Is Nothing Then For Each objDraw In ActiveSheet.DrawingObjects If .Offset(0, 1).Address = objDraw.TopLeftCell.Address Then objDraw.Delete End If Next Rng.Offset(0, 1).Copy .Offset(0, 1) If .RowHeight < Rng.RowHeight Or .ColumnWidth < Rng.ColumnWidth Then .RowHeight = Rng.RowHeight .Offset(0, 1).ColumnWidth = Rng.ColumnWidth End If End If End If End With End Sub 不错!学习……收藏! |