­ã´£³¡ªL

ÁÙ¤£²M·¡©Ò¨D, ¤j¬ù­×§ï¦p¤U, ½Ð¦Û¦æ¥h®M~~

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWindow.ScrollRow = 3
With Target
¡@¡@If .Address = "$B$1" Then
¡@¡@¡@¡@If .Value = "" Then [B4].AutoFilter Field:=2: Exit Sub ¡@'¢Ð¢°ªÅ¥Õ¡AÅã¥Ü¥þ³¡¤£¿z¿ï¡@
¡@¡@¡@¡@[B4].AutoFilter Field:=2, Criteria1:="*" & .Value & "*"
¡@¡@ElseIf Target.Address = "$B$2" Then
¡@¡@¡@¡@If .Value = "" Then [A4].AutoFilter Field:=1: Exit Sub
¡@¡@¡@¡@[A4].AutoFilter Field:=1, Criteria1:="*" & .Value & "*"
¡@¡@End If
End With
End Sub
¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim j&, Jm&, xE As Range
With Target
¡@¡@If .Count > 1 Or .Column > 1 Or .Row < 5 Or .Item(1) = "" Then Exit Sub
¡@¡@For j = 3 To 13¡@'Àˬd¿é¤J°Ï¦³µL¸ê®Æ¡@
¡@¡@¡@¡@If j < 7 Or j > 8 Then If .Cells(1, j) <> "" Then Jm = 1: Exit For
¡@¡@Next j
¡@¡@If Jm = 0 Then MsgBox "¥»µ§¥¼¿é¤J¸ê®Æ¡I": Exit Sub
¡@¡@Set xE = [¸ê®Æ¬d®Ö°Ï!A65536].End(xlUp)(2)
¡@¡@If xE.Row < 4 Then Set xE = [¸ê®Æ¬d®Ö°Ï!A4]
¡@¡@xE = [J1]
¡@¡@For j = 1 To 13¡@'±a¤J¸ê®Æ¡]§t¢Õ¢ÖÄ椽¦¡¡^¡@
¡@¡@¡@¡@xE(1, j + 1) = .Cells(1, j).FormulaR1C1
¡@¡@Next j
¡@¡@Beep
End With
End Sub
¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub ²M°£¿z¿ï_Click()
Dim R&
With ActiveSheet
¡@¡@If .FilterMode Then .ShowAllData
¡@¡@R = .UsedRange.Rows.Count
¡@¡@[B1:B2,J2:K2].ClearContents
¡@¡@.Range("C5:F" & R).ClearContents
¡@¡@.Range("I5:M" & R).ClearContents
End With
End Sub

­ã´£³¡ªL

¦^´_ 3# emma

ªþ¥ó¤U¸ü¡G
104­q³æ½d¨Ò2.rar (19.84 KB)

¤U¸ü¦¸¼Æ: 9

2015-10-31 13:06

­Y¦³¤£¦P³¡¥÷¡A¬Ý¯à§_¦Û¦æ½Õ¾ã¡I