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

[µo°Ý] ¿ï¶µ«ö¶s

[µo°Ý] ¿ï¶µ«ö¶s

¥Ø«e¤S¦³¥t¤@­Ó¤u§@¤Wªº»Ý¨D¡A»Ý­n½Ð¦U¦ì«e½ú¨ó§U«üÂI
¦Û°Ê¶ñº¡Àx¦s®æªº¤è¦¡¡A¦b¥ý«e¤å³¹¦³°Q½×¨ì
¦ý¤p©fÁٻݭn¼W¥[´X­Ó¥\¯à...
sheets("¿ï¶µ¹w¯d") ¤º¦³´X­Ó¿ï¶µ¡A«h¦bsheets("¿ï¾Ü")ªº©ïÀY¦CÅã¥Ü´X­Ó
¨Ã¥B¤U­±¶ñº¡¿ï¶µ«ö¶s(¯à§_°µ¨ì¥u¯d¤@­Ó¿ï¶µ¡A¤£­n«á­±ªºoptionªº¤å¦r?)
³Ì«á¦bsheets("²Î­p")ªº­¶­±¡A¥i¥H¶i¦æ¤ÀÃþ²Î­p¼Æ¶q?

¤£¦n·N«ä¡A³o¦¸°ÝÃD¦³ÂI¦h...QQ"

¿ï¶µ«ö¶s.rar (53.49 KB)

¦^´_ 25# Michelle-W


[²Î­p]ªíªº¨Ó·½¤£¬O±q[¿ï¾Ü]ªí¨Óªº¶Ü?
[·s¼W]ªí±q[¿ï¾Ü]ªí¥h¨ú, ¤S¦³¦ó¤£¦P?

[¤H­û]ªº®æ¦¡¤£¬Û¦P?
¤W¶Ç§ó§¹¾ãªº¸ê®Æ¤Î¥¿½T¤å¦rµ²ºc, ¤~¯à¬Ý«ç»ò³B²z!

¥tÀ³¥Hlpk¤j¤jªº¬°¥D­n¸Ñ, §Ú¸û¨S®É¶¡¸ò©«, ¥u¯à´¡ªá·í°Ñ¦Ò!

TOP

¦^´_ 23# Michelle-W


    Qestion(¤º§t¸ÑÄÀ).rar (29.85 KB)

TOP

¥»©«³Ì«á¥Ñ Michelle-W ©ó 2016-8-25 22:13 ½s¿è

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


ª©¤j~¥i¥H¦A½Ð±Ð±z¤@¤U¶Ü?
¦p¦P±z»¡ªº¡A§Ú°ÝÃD¯uªº¨S±Ô­z²M·¡ ¡A¯uªº«Ü©êºp
¦pªG¥u¬Ýsheet("²Î­p")¸òsheet("·s¼W")

sheet("·s¼W")ªº¤H­û¸òsheet("²Î­p")ªºName°µ¥]§t¤ñ¹ï
¦U¶µ¥Ø¤H¦W¦³¥X²{¹Lªº¤@¼Ë¬O¡´¡A¥B·Ó¶¶§Ç±Æ¦C...
³o¼Ëªº¸Üµ{¦¡½XÀ³¸Ó¦p¦ó¼¶¼g?><

(sheet("·s¼W")ªº¤H­û¸ò¿ï¾Üªº¤H­û¡A¨ä¹ê«á­±XXX¬O¤£¤@¼ËªºQQ"¡A¥HMatch¤ñ¹ï¤£¥X¨Ó)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-8-25 21:08 ½s¿è

¦^´_ 23# Michelle-W


¤j·§²q¡e·s¼W¡f¤u§@ªí¬O¤H­ûÁ`ªí¡A§t©Ò¦³·s¤H­û¡A
¦Ó¡e¿ï¾Ü¡f¤u§@ªíÀ³¬O¥Ø«e¦³¥Î¨ìªº¤H­û¡A
¡e§ó·s¡f¬O¨Ï¥Î¤½¦¡±N¡e¿ï¾Ü¡f¤u§@ªí¦³¶ñ¤J"¡´"ªº¬Û¹ïÀx¦s®æ¤]§ì¶i§¨¡A
¢Ñ¢±¡G=OFFSET(¿ï¾Ü!$A$1,MATCH($A2,¿ï¾Ü!$A:$A,)-1,MATCH(C$1,¿ï¾Ü!$1:$1,)-1)&""
¤½¦¡¥k©Ô¤U©Ô¡A´N¥i¥H¤F¸Ñ¤½¦¡¥Î·N¡A
µ{¦¡·|±N¤½¦¡¶K¦¨¡e­È¡f¡A¦A±N¿ù»~­È"#N/A"¡e¨ú¥N¡f¬°ªÅ¡A
³Ì«á¡e¨Ì¥ª¦Ó¥k¡f±N¦³"¡´"ªº¤H­û©¹¤W´£¡A¨S¦³ªºÂ\¤U­±¡A
¤£¹L­n¹F¨ì¡e¨Ì¥ª¦Ó¥k¡f©¹¤W´£¡A±Æ§Ç¶¶§Ç¤Ï¦Ó¬O¬Û¤Ïªº¡Ö¡Ö¥Ñ¥k¦Ó¥ª³v¤@±Æ§Ç¡A¤~¯à¹F¨ì³o®ÄªG¡A
³o¬O¿W¥ßªºµ{¦¡¡A¥u³B²z¡e·s¼W¡f¤u§@ªíªº³¡¥÷¡I

Xl0000099_µù¸Ñª©.rar (19.23 KB)
¡@
¡@

TOP

¥»©«³Ì«á¥Ñ Michelle-W ©ó 2016-8-25 19:58 ½s¿è

¦^´_ 20# GBKEE

ÁÂÁª©¥D¤j¤j¨ó§U¡A¬O¤@­Ó¥þ·sªº¼¶¼g¤è¦¡
§Ú¥i¯à­n¦bªáÂI®É¶¡­«·s²z¸Ñ¤@¤U¡A¹ïªì¾ÇªÌ¨Ó»¡¦³¤@ÂI²`¶ø^^¡¨


¦^´_ 21# lpk187

ÁÂÁÂL¤j¡A³o¼Ë´N¥i¥H¤F~~!!
¥u¬O...·s¼W¤u§@ªí¨ºÃä¬O«ç»ò¤ñ¹ï¡A¤~¯à¶]¥X¡´
¦pªG±zı±o¸ÑÄÀ³Â·Ð¤]¥i¥H¬Ù²¤¨SÃö«Y¡A§Ú¦AÄ~Äò¬ã¨s
¤£¦n·N«ä³Â·Ð±z³o»ò¤[...^^"


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

ÁÂÁ­ã¤j¥X¤â¨ó§U~~~!!
§Ú°Ýªº¤è¦¡½T¹ê¯uªº¨S¦³Á¿±o«Ü²M·¡¡A³y¦¨¦U¦ì«e½úªº§xÂZ¤F^^"
·Q­n½Ð±Ð±z¤@¤U
³o¬q§ó·sµ{¦¡½Xªº·N«ä¶Ü....QQ

TOP

µo°ÝÃD­n»¡±o²M·¡»Ý¨D, ¤£µM´N¬O¶Ã²q, «Ü¶O©¹ªð®É¶¡!
¥H¤U°µ­Ó¯ó¸Ñ, ³£¬O°ò¦µ{¦¡½X, ´N¤£°µ»¡©ú:
Xl0000099.rar (19.16 KB)

TOP

¦^´_ 19# Michelle-W


    §Úªº²z¸Ñ¬O³Ì«á°µ±Æ§Çªº°Ê§@¡A¬O³o¼Ë¶Ü¡HÁÙ¬O­n¦A°µ¥t¤@­Óµ{§Ç¡H
  1. Sub ²Î­p()
  2.     co = Sheets("²Î­p").Rows(1).SpecialCells(xlCellTypeConstants)
  3.     With Sheets("²Î­p")
  4.         For Each Rng In .Rows(1).SpecialCells(xlCellTypeConstants)
  5.             ro = .Cells(.Rows.Count, Rng.Column).End(xlUp).Row
  6.             If ro > 2 Then .Range(.Cells(3, Rng.Column), .Cells(ro, Rng.Offset(, 2).Column)).Clear
  7.             ro = 0
  8.         Next
  9.     End With
  10.     co = Cells(1, Columns.Count).End(xlToLeft).Column
  11.     ro = Cells(Rows.Count, 1).End(xlUp).Row
  12.     For Each Rng In Range("C2", Cells(ro, co)).SpecialCells(xlCellTypeConstants)
  13.         If Rng.Value Like "¡´" Then
  14.             With Sheets("²Î­p")
  15.                 Set c = .Rows(1).Find(Cells(1, Rng.Column))
  16.                  If Not c Is Nothing Then
  17.                     ro = .Cells(Rows.Count, c.Column).End(xlUp).Row + 1
  18.                     .Cells(ro, c.Column) = Cells(Rng.Row, 1)
  19.                     .Cells(ro, c.Offset(, 1).Column) = Cells(Rng.Row, 2)
  20.                     '''.Â^¨ú¤H¦W
  21.                     T = Split(Cells(Rng.Row, 1) & "//", "//")(1)
  22.                     T = Split(T & "/", "/")(0)
  23.                     If T <> "" Then .Cells(ro, c.Offset(, 2).Column) = T
  24.                     ''''¼g¤J·s¼W
  25.                     Set cr = Sheets("·s¼W").Columns(1).Find(Cells(Rng.Row, 1)) '¬d¸ß¦b­þ¤@¦C
  26.                     If Not cr Is Nothing Then
  27.                         Set cc = Sheets("·s¼W").Rows(1).Find(c.Value) '¬d¸ß¦b­þ¤@Äæ
  28.                         If Not cc Is Nothing Then
  29.                             Sheets("·s¼W").Cells(cr.Row, cc.Column) = Rng.Value 'µM«á©ñ¤J"¡´"
  30.                         End If
  31.                     End If
  32.                 End If
  33.                 Set c = Nothing
  34.                 Set sr = Nothing
  35.                 Set cc = Nothing
  36.             End With
  37.         End If
  38.     Next
  39.     ''''±Æ§Ç
  40.     Set Rng = Sheets("·s¼W").Range("a1").CurrentRegion
  41.     For i = Rng.Columns.Count To 3 Step -1
  42.          Rng.Sort Key1:=Rng(1, i), Order1:=xlAscending, Header:=xlYes
  43.     Next

  44. 'Module1.Â^¨ú¤H¦W<<<³o¸Ì¥i¥H¤£¥Î°Õ¡I
  45. End Sub
½Æ»s¥N½X

TOP

¦^´_ 20# Michelle-W
¸Õ¸Õ¬Ý
    Ex.zip (19.98 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 19# lpk187


§Ú¥¿­è¦b¬ã¨s¤F¸Ñ·N«ä~~^^
¶¶§Ç¬O·Q³o¼Ë±Æ¦C
picture.JPG
2016-8-24 23:16

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD