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

[µo°Ý] ¥H¥¨¶°§ì¨ú«ü©wÃC¦â¸ê®Æ

[µo°Ý] ¥H¥¨¶°§ì¨ú«ü©wÃC¦â¸ê®Æ


½Ð°Ý¦p¦ó¥H¥¨¶°¤è¦¡¡A«ö¤U¤W¤è¡i¶×¤J¡j§á¡A§Y¥i±N®w¦s¬¡­¶A:WÄæ©Ò¦³ªºÂŦâ¦rÅé»Pºñ¦â¦rÅ骺¡u«~µP¡v»P¡u®w¦s¡v
§ì¨ìA¡BBÄæ»PD¡BEÄæ¡A¨Ò¦p¥ª°¼¡A±ø¥ó¦p¤U¡G

1. ¥u­n§ìÂŦr»Pºñ¦rªº«~µP¸ê®Æ»P®w¦s¼Æ¡A¨ä¾lÃC¦â¸ê®Æ¤£»Ý­n¡C
2. ¦rÅé¡B²ÊÅé¡B¤j¤p³£¥i¯à¤£¤@¼Ë¡A©Ò¥H§Æ±æ¥HÃC¦â°Ï¤À§Y¥i¡C
3. ¨C¤Ñ®w¦s¸ê®Æ¼Æ·|¦³¦h¦³¤Ö¡A¤£¯à¥H¨CÄæ©T©w¦C¼Æ¨Ó§ì¡C
¨Ò¦p F:GÄ檺ÂŦr®w¦s¬°F23:G42¡A¦ý¤U¦¸¸ê®Æ¨Ó·½¥i¯à¤Ö¤@µ§·|Åܦ¨F23:G40¡A¦ý¦pªG¦h¤@µ§«hÅܦ¨F23:G44
4. ¤£¥Î±Æ§Ç¡A©Ò¥H¥u­n±N¸ê®Æ§ì¨ìA¡BBÄæ»PD¡BEÄæ´N¦n¡A±q«e©¹«á¡B±q«á©¹«e§ì¸ê®Æ³£¨S®t



´ú¸ÕÀÉ.rar (23.81 KB)
*¦v¤k¤@ªTµL»~*

¡e¶µ¦¸¡D«~µP¡D¼Æ¶q¡fªº¤å¦rÃC¦â¤£¤@­P¡A¥H¡e¼Æ¶q¡f¬°¥D¡G
  1. Sub ¶×¤J()
  2. Dim R&, xArea As Range, xR As Range, xE(1 To 2) As Range, i%, C%, N%
  3. With Sheets("¶×¾ã")
  4.     .UsedRange.Offset(1, 0).EntireRow.Delete
  5.      Set xE(1) = .[A2]: Set xE(2) = .[D2]
  6. End With

  7. With Sheets("®w¦s").UsedRange
  8.      R = .Rows.Count - 22: If R <= 0 Then Exit Sub
  9.      Set xArea = .Rows(23).Resize(R)
  10. End With

  11. For i = 3 To xArea.Columns.Count Step 4
  12.     For Each xR In xArea.Columns(i).Cells
  13.         N = 0: C = xR.Font.ColorIndex
  14.         If C = 5 Then N = 1
  15.         If C = 10 Then N = 2
  16.         If xR = "" Or N = 0 Then GoTo 101
  17.         R = xR.MergeArea.Rows.Count
  18.         xR(1, 0).Resize(R, 2).Copy xE(N)
  19.         Set xE(N) = xE(N)(R + 1)
  20. 101: Next
  21. Next i
  22. End Sub
½Æ»s¥N½X
¡@
Xl0000024.rar (17.08 KB)
¡@
¡@

TOP

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

   ­ã¤j~~~­º¥ý«D±`·PÁÂÀ°¦£³á!!¦ý¤p©f´ú¸Õ«áµo²{¹J¨ì°ÝÃD¤wµo°Ý¦bªþÀɤº¡A¥i¥H¦A³Â·Ð§AÀ°¦£¬Ý¤@¤U­ì¦]¶Ü??¯u¬O¤£¦n·N«ä­C~~~

Xl0000024.rar (20.79 KB)
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 3# msmplay


1. ®M¥Î¤W¤½¥q®w¦sªí®æ¦¡¡AµLªk§ì¨ú©Ò¦³ºñ¦r®w¦s
¡Ä§Ú³o¸Ì°õ¦æ¨S°ÝÃD¡A¬O§_officeª©¥»°ÝÃD¡]§Ú¬O¢±¢¯¢¯¢¯¡^¡A³o§ÚµLªk¸Ñ¨M
¡@
2. «D¦X¨ÖÀx¦s®æµLªk§ì¨ú¡A¨Ò¦p¡G¡u®w¦s¡vR37:S38«D¦X¨ÖÀx¦s®æ¡AR38´N¨S¦³§ì¨ì¡A¦]¬°¡u¶×¾ã¡vA76¥u§ì¨ì¤@­ÓTEST
¡Äªí®æ¦X¨Ö¤£³W«h¡A«ÜÃø§PÂ_¡A¥u¯à¥H¡e¼Æ¶q¡f¬°¥D¡A©Ò¥H¦P¤@¸s²Õªº¼Æ¶q¡A¥²¶·¥ý¡e¦X¨Ö¡f

3. ¬O§_¥i³]©w§ì¨ú¸ê®Æ½d³ò¡A¦]¬°¥u»Ý§ì¨ú¡u®w¦s¡vA23:W122½d³ò¸ê®Æ¡AA23¥H¤WÃC¦â¸ê®ÆµL»Ý§ì¨ú
¡Äµ{¦¡¤w­­¨î¥u¶×¤J²Ä¢±¢±¦C¥H¤Uªº¸ê®Æ

³Ì¦n¦³¨ä¥L¤j¤j¥Îoffice 2010§ï¤@¤Uµ{¦¡¡I¡I§Ú¶È¯à°µ¨ì³o¼Ë¡I

TOP

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

   ­ã¤j~~~~¥i¥H½Ð±Ð¤@¤U¦b¥H¤W¥¨¶°¤º¡A§Ú¸Ó«ç»ò­×§ï§Ú·Q«ü©wªºÃC¦â©O?¦]¬°§Úµo²{¦n¹³¬O¤½¥q®w¦sªí¥Î¦â¤£²Î¤@ªº°ÝÃD¡AÁÂÁ§A£¬~~~~
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 5# msmplay

¿ï©w¤@­ÓÀx¦s®æ, °õ¦æ¥H¤U¨ú±o¤å¦r¦â½X
Sub TEST()
MsgBox ActiveCell.Font.ColorIndex
End Sub

TOP

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


   ­ã¤j~~~~~ªGµM¬OÃC¦â¤£¤@¼Ëªº°ÝÃD¡A¨ú±o¤å¦r¦â½X«á¦A­×§ï¤@¤U¡A¤w¸g¦¨¥\¤F~~~~~~~~~~~~~~~~~~¶W·PÁ¶W·PÁ¶W·PÁ§Aªºyo
*¦v¤k¤@ªTµL»~*

TOP

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


   ­ã¤j~~¤£¦n·N«ä¤S¨Ó¥´ÂZ§A¤F¡A¥i¥H½Ð±Ð¤@¤U¦pªG¤p©f»Ý­n·s¼W§ì¨ú±ø¥ó¡A§A¥i¥HÀ°§Ú§ï¤@¤U¶Ü??





Xl0000024.rar (20.42 KB)
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 8# msmplay


¦h°µ¤@¦¸´N¥i¥H:
Xl0000024-V1.rar (21.87 KB)

TOP

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


   ­ã¤j~~~~«D±`·PÁ§Ayo
*¦v¤k¤@ªTµL»~*

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD