ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·Q³z¹L«ö¶s©Î¨ä¥L¤è¦¡±N¿z¿ï¥X«áªº¸Ó¦C¿é¤J¬ÛÃö¼Æ­È«áÂà¨ì²Ä¤G­Ó¤u§@ªí¸Ì

·Q³z¹L«ö¶s©Î¨ä¥L¤è¦¡±N¿z¿ï¥X«áªº¸Ó¦C¿é¤J¬ÛÃö¼Æ­È«áÂà¨ì²Ä¤G­Ó¤u§@ªí¸Ì

Dear ¦U¦ì¤j¤j¦n

¦]¬°¨Æ¹j¦h¦~¥¼¨Ï¥Î¡A©Ò¥H¦³¨Çµ{¦¡´N§ó¬°²¨»·¤F¡A¦³§ä¥X¥H«eªº¸ê®Æ¸ÕµÛ¥Î¥i¥Hªº¤è¦¡§â¡u¸ê®Æ¿é¤J°Ï¡v¸Ìªº¤½¥q¿z¿ï«á¡A
¦A¿é¤J«á­±¸Ó¦CªºÄæ¦ì¬ÛÃö­È¡AµL½×¿é¤Jªº¸ê®Æ¦³µL§¹¾ã¡A¥u­nC:M¬YÄ椺¦³¸ê®Æ¡A´N¥i¥HÂI¿ï¸Ó¦CªºAÄæ±N¸Ó¦C±a¤J¡u¸ê®Æ¬d®Ö°Ï¡v
ªº¬Û¹ïÀ³¦ì¸m¸Ì¡A¦ý¬OÁÙ¬O¦³«Ü¦h»Ý¨DµLªk³Qº¡¨¬¡A¥Ø«eªºª¬ªp¬OC:MÄæ¤j³£¬O¼Æ­ÈªºÄæ¦ì¡A¥i¥Ø«eªº¤è¦¡±a¤JÅã¥Üªº³£¬O¤å¦r­È¡A
¤@¥¹·s¼W§¹«á¥i¥H¦A¦^¨ì­ì¥ý¥¼¿é¤J«eªº³]¸m¡A¥Ø«e¤]¬O¨Ï¥Î¡y¸Ñ°£¿z¿ï¡z¨Ó¹ê¦æ¡A¦ýGÄæ¸òHÄæ¸Ì¦³³]¦³­ì¥»·Q­n¦³ªº¤½¦¡¦b¸Ì­±¡A
¦pªG³Q§ó§ï«á­n¤â°Ê¦A¦^´_¸Ó¤½¦¡¡A¤£¾å±o¦³¨S¦³¤è¦¡¥i¥Hª½±µ¦^½Æ¦^¨Ó¹w³]ªº¤½¦¡¡A
¡u¸ê®Æ¬d®Ö°Ï¡v³Q±a¤Jªº­È¤]«ÜÃøÅã¥Ü©ÎÅܧóÀx¦s®æªºÄݩʬ°¼Æ­È¨Ã¦³¤d¤À¦ìªºªí²{¡A§Æ±æ¯à¦³¨ä¥L¬ð¯}ªº¤è¦¡¡A¥ýÁÂÁ¤j¤j¤F^^

104­q³æ½d¨Ò.rar (252.46 KB)

ÁÙ¤£²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

TOP

¥»©«³Ì«á¥Ñ emma ©ó 2015-10-31 00:54 ½s¿è

¦^´_ 2# ­ã´£³¡ªL

Dear ­ã´£³¡ªL ª©¥D±z¦n

±zªºµ{¦¡½T¹ê¬O²Å¦X§Ú©Ò­n»Ý¨Dªº°µªk¡A¥u¬O§Ú¨S¦Ò¶q¨ì¡A¦pªG­n±a¶i¨ÓªºÄæ¦ì©Î³\¨S¦³³sÄò¡A¥u­n¬Y´XÄæ©Î¬OÄæ¦ì¦³§ó´«ªº¸Ü¡A§Ú´N¤£·|§ó§ï®M¥Î¤F¡A

µM«á¦b²Ä¤G­Ó¤u§@ªí¤¤ªº¡u¸ê®Æ¬d®Ö°Ï¡v¤¤ªº³Ì¤W¤è¦³¤@­Ó¡u·JÁ`«ö¶s¡v¡A§Æ±æ¥i¥H¥ý±N²Ä¤T­Ó¤u§@ªí¡u¸ê®Æ·JÁ`°Ï¡v¥ý²MªÅ«á¦A­«·s§â¡u¸ê®Æ¬d®Ö°Ï¡v
ªº¸ê®Æ±a¤J¡A·J¾ãªº±ø¥ó¬O¡u¤½¥q¦WºÙ¡v¬Û¦P¤Î¡u¤@¯ë­q³æ³æ»ù¡v¬Û¦P(³o¤G­Ó±ø¥ó¦P®É¦¨¥ß)´N§âÄæ¦ì¦WºÙ¦³¥]§t"¼Æ¶q"©Î"¥÷¼Æ"ªºÄæ¦ì¼Æ­È³£¥[¦b¤@°_¡A
¤£¾å±o³o¼Ëªº­n¨D¦³¨S¦³«Ü§xÃø¡A¬O§_¯à©ú¥Õ¡A¦]¬°·Q¤F«Ü¤[¤]¤£±o¨äªù¦Ó¤J¡A¦p¥i±o«ü¤Þªº¤è¦V±N¤£¬Æ·P¿E¡AÁÂÁ±z^^

ÁÙ¦³³o¤£¤@©w­n±j¨Dªº¤@ÂI¬O¡A¦b­ì¥ýªº½d¨Ò¤W¦bJÄæ»PMÄæ¥k°¼ªº½u¬O¦³¥[²Êªº¡A¥u¬O³Q§Ú§ó§ï¹L«áªºµ{¦¡³£¥þ³¡®M¥Î¦¨²Ó½u¤F¡A¤£¾å±o¯à¤£¯àºû«ù­ì¥ýªº³]©w¡C

104­q³æ½d¨Ò2.rar (402.92 KB)

TOP

¦^´_ 3# emma

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

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

TOP

¦^´_ 4# ­ã´£³¡ªL


    Dear ­ã´£³¡ªL ª©¥D

   ÁÂÁ±z­@¤ßªº¦^ÂСA²Ä¤G­Ó¤u§@ªí½T¹ê¦³²Å¦X»Ý¨D¡A¦ý²Ä¤T­Ó¤u§@ªí´N¤ñ¸ûµLªk§ó°Ê¦¨·Q­nªº®æ¦¡¡A¥[Á`ªº¤è¦¡¬O§Ú­nªº¡A
   ¦ý§ó§ï¤£¥X¨Ó·Q­n«ü©w©ñ¸mªºÄæ¦ì¦ì¸m¶¶§Ç¡A³s²Ä¤T­Ó¤u§@ªíªº²Ä¤@­Ó¤é´ÁÄæ¦ì¤]µLªk§ó§ï¦¨Åý¥¦¤£Åã¥Ü¥X¨Ó
   ¦]¬°²Ä¤T­Ó¡u¸ê®Æ·JÁ`°Ï¡v¦³¥i¯à·|¸õµÛ±a¤J²Ä¤G­Ó¤u§@ªí¡u¸ê®Æ¬d®Ö°Ï¡vªº¬Y´X­ÓÄæ¦ì¡A¤£¬O¥þ³¡«ö¶¶§Çªº±a¤J
   ¥B¦³ªº¤£³æ¬O±a¤JÄæ¦ì¡AÁٻݭn±N¬Y´X­ÓÄæ¦ì¦WºÙ¦³¥]§t¼Æ¶qªºÄæ¦ì­È¨Ó°µ¥[Á`¡A©Ò¥H¦n¹³¤£¬O§Ú­ì¥»ªº¤è¦¡©Î±zªº¤è¦¡´N¥i¥Hº¡¨¬ªº¡A
   §Ú·|¦A§V¤O¬ã¨s¬Ý¬Ý¡AÁÂÁ±z^^

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD