- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 5# emma
¸Õ¸Õ¬Ý- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Target_Row As String
- If Target.Address(0, 0) = "D1" Then
- Range("C3").AutoFilter Field:=3, Criteria1:="*" & Target & "*"
- ElseIf Target.Address(0, 0) = "B1" Then
- Range("A3").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
- End If
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim Target_Row As String, xi As Integer, xi_Row As String
- If Not Application.Intersect(Range("A4", Range("A4").End(xlDown)), Target) Is Nothing Then
- 'Intersectª«¥ó
- Target_Row = Join(Application.Transpose(Application.Transpose(Target.Resize(, 5))), ",")
- 'Join ¨ç¼Æ:¶Ç¦^¤@Ó¦r¦ê¡A¸Ó¦r¦ê¬O³z¹L³sµ²¬YÓ°}¦C¤¤ªº¦hÓ¤l¦r¦ê¦Ó«Ø¥ßªº¡C
- xi = 7
- Do While Sheets("sheet2").Cells(xi, 1) <> ""
- xi_Row = Join(Application.Transpose(Application.Transpose(Sheets("sheet2").Cells(xi, 1).Resize(, 5))), ",")
- If xi_Row = Target_Row Then Exit Sub
- xi = xi + 1
- Loop
- Sheets("sheet2").Cells(xi, 1).Resize(, 5) = Split(Target_Row, ",")
- 'Split ¨ç¼Æ: ¶Ç¦^¤@Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
- End If
- End Sub
½Æ»s¥N½X |
|