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

[µo°Ý] ¦h±i¤u§@ªí¬d¸ß¸ê®Æ

[µo°Ý] ¦h±i¤u§@ªí¬d¸ß¸ê®Æ

¥ÎEXCEL«Ø¤F¤@±i¾P°â¸ê®Æªí¡A¸Ì­±¬°«ö¤ë¥÷«Ø¥ß©ú²Ó¡A§Æ±æ¦b¬d¸ß¤u§@ªí¤ºªºB1Äæ¿é¤J±ý¬d¸ßªº«È¤á¦p"A"¡A¥i¦b¦U­Ó¤ë¥÷ªº¾P°âªí¸Ì±N¾P°â©ú²Ó½Æ»s¨ì¬d¸ßªí¸ÌA3Àx¦s®æ¡A¥Ø«eªº¯à¤O¥u·|§Q¥Î¶i¶¥¿z¿ï±N­n¬d¸ßªº¸ê®Æ¿z¿ï¨ì¦P¤@±i¤u§@ªí¡AµLªk¶i¦æ¦h±i¤u§@ªíªº¿z¿ï¤Î½Æ»s¨ì¨ä¥L¤u§@ªí¡A½d¨Ò¦pªþ¥ó¡AÁÂÁ¡C ¾P°âªí.rar (2.05 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-14 14:51 ½s¿è

¦^´_ 1# shootingstar
«Øij©Ò¦³¸ê®Æ¸m©ó¦P¤@¤u§@ªí  
¶i¶¥¿z¿ï ¾P°âªí.rar (9.29 KB)

TOP

ÁÂÁÂdonald¤ÎGBKEEªº«ü¾É¡A¤£¹L¦ÑÁó°í«ù«ö¤ë¥÷«ØÀÉ¡A©Ò¥HµLªk§â©Ò¦³¸ê®Æ«Ø¸m©ó¦P¤@¤u§@ªí¡A¦pªG¬O±N©Ò¥H¸ê®Æ«Ø©ó¦P¤@§@ªí¡A¨º¬O¤£¬O´N²³æ¦h¤F¡A¥u­n¥Î¦Û°Ê¿z¿ï´N¥i¥H±o¨ì·Q­nªºµª®×¡AÁÙ¬O¦³¨Sª`·N¨ìªº¦a¤è¡H
·Q½Ð±Ðdonald«e½ú¡A¦pªG§Ú¸ê®Æ¬O±qA¨ìLÄæ¡B¬d¸ß¥X¨Óªºµ²ªG­n±qA5Àx¦s®æ¶K°_¡A§Ú¬O¤£¬O±N²Ä16¦æªºµ{¦¡½X§ï¬°[a5:l1000] = ""¡A²Ä17¦æªºµ{¦¡½X§ï¬°[a5].Resize(j, 12) = Application.Transpose(Application.Transpose(dic.items))¡A¥i¬O¦b°õ¦æ«á´N¤@ª½¥X²{¿ù»~¡A°»¿ùµ²ªG¬O²Ä17¦æ¥X¤F°ÝÃD¡A½Ð±Ð¬O¨ºÃ䦳»~¡H¥t¥~¼Ï¯Ã¤ÀªRªí¤]¬O¦³¹F¨ì§Ú­nªºµ²ªG¡A¤£¹L§Ú±q¬Q¤Ñ¤@ª½¸Õ¨ì²{¦b¡AÃö©óVBA¸ò¼Ï¯Ã¤ÀªRªí§Ú³£°µ¤£¥X¨Ó¡A§Æ±æ¯à±o¨ì¶i¤@¨B¸Ñ»¡¡AÁÂÁ¡C

TOP

¦^´_ 5# shootingstar
½ÐªþÀɤW¨Ó. ¤~·|¬Ý²M·¡¿ù»~¦b­þ¸Ì.
1¼Óªº¥t¤@¸Ñªk
   
  1. Private Sub CommandButton1_Click()
  2.     Dim S As Worksheet, Rng As Range, R As Range
  3.     With Sheets("¬d¸ßªí")
  4.         .Range("a4").CurrentRegion.Offset(1).Clear
  5.         For Each S In Sheets
  6.             If S.Name Like "*¤ë" Then
  7.                 Set Rng = Nothing
  8.                 For Each R In S.UsedRange.Rows
  9.                     If R.Cells(1, 2) = .[b1] Then
  10.                         If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
  11.                     End If
  12.                 Next
  13.             End If
  14.             If Not Rng Is Nothing Then Rng.Copy .Range("A" & Rows.Count).End(xlUp).Offset(1)
  15.         Next
  16.     End With
  17. End Sub
½Æ»s¥N½X

TOP

±Nµ{¦¡½X½Æ»s¨Ï¥Î«á¡AÁYµu¤F¬d¸ß®É¶¡¡A¤£¹L¦ÑÁó¤S´£¥X¯à§_§ï¶i¬d¸ß¥\¯à³]©w¡A¨Ò¦p«È¤á¦WºÙ¬O"ABCD"¡A¨º¤£½×§Ú¿é¤J"ABCD"©Î¬O"abcd"©Î"AB"¤S©ÎµÛ"ab"¡A³£¯à¬d¸ß¨ì"ABCD³o®a«È¤á¡C´M¨D¸Ñµª¡AÁÂÁ¡C

TOP

¦^´_ 5# shootingstar
½Ð¤U¸ü2¼ÓÀÉ®× ±N¸ê®Æ®w«È¤á ­×§ï¬°§A©Ò§Æ±æªº , ¦A¨ì¬d¸ßªí   «È¤á ¿é¤J     *ABCD*    ©Î     *abcd*     ©Î         *AB*       ©Î        *ab*  
¸Õ¸Õ¬Ý

TOP

¦^´_ 5# shootingstar


    ¶i¶¥¿z¿ï
¾P°âªí.zip (11.21 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú­nµo´§"¾Ç®üµL²P_¤£®¢¤U°Ý"ªººë¯«¡AÃö©óHsiehª©¥Dªº¦^ÂСAµ{¦¡½X§Ú´X¥G³£¬Ý¤£À´¡C¦]¬°¤£À´µ{¦¡½Xªº·N¸q¡A§Ú¦Û¤v°µ¤F­×§ï½X®M¥Î¦b¦Û¤vªºÀɮ׸̡A¬O¤£¦¨¥\ªº¡A¥ý±N§Ú¨Ï¥ÎªºÀɮתþ¤W¡A´M¨D¸Ñµª¡A°ÝÃD¦P­ì©lµo°Ý¡A§Æ±æ¿é¤J"ABC"©Î"abc"³£¥i¥H§ä¨ì"ABC"³o­Ó«È¤á¡A©Î¬O¿é¤J"¥x¿n¹q"©Î"¥x¿n"³£¥i¥H§ä¨ì"¥x¿n¹q"³o®a«È¤á¡A¥H¤W¡A¦A¦¸ÁÂÁ«e½úªº¦^ÂСC

¼Ë«~´ú¸Õ.rar (14.78 KB)

TOP

  1. Sub Ex()
  2. Dim Ar()
  3. With Sheets("¬d¸ß")
  4. test = UCase(.[B1])
  5. For Each sh In Sheets
  6.    If sh.Name Like "*¤ë" Then
  7.       With sh.Range("A1").CurrentRegion
  8.          For i = 2 To .Rows.Count
  9.             If InStr(UCase(.Cells(i, 1)), test) > 0 Then
  10.                ReDim Preserve Ar(s)
  11.                Ar(s) = .Rows(i)
  12.                s = s + 1
  13.             End If
  14.          Next
  15.       End With
  16.     End If
  17. Next
  18. .[A5].CurrentRegion.Offset(1) = ""
  19. If s > 0 Then
  20.    .[A5].Resize(s, 9) = Application.Transpose(Application.Transpose(Ar))
  21.    Else
  22.    MsgBox "µL²Å¦X¸ê®Æ"
  23. End If
  24. End With
  25. End Sub
½Æ»s¥N½X
¦^´_ 8# shootingstar
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦n¦h¦n¥Îªºµ{¦¡¡A¤U¸ü¨Ó¬Ý¬Ý.............................................................................

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD