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

[µo°Ý] EXCEL®Ú¾Ú±ø¥ó¿z¿ï

[µo°Ý] EXCEL®Ú¾Ú±ø¥ó¿z¿ï

¦U¦ì¤j¤j, ¦³¤u§@ªº­û¤u¯à¥Î¨ç¼Æ«ö­^¤å¾¦ì¦WºÙ±Æ§Ç¶Ü?
¨D¦U¦ì«ü±Ð¡AÁÂÁ¡I

book.zip (7.29 KB)

¦^´_ 1# ffff56666


    ¨ç¼Æ§Ú·Q¤£¨ì...
¤£¹L¥i¥H¥Î²³æªº¥¨¶°¸Ñ¨M§Aªº°ÝÃD¡C
  1. Private Sub CommandButton1_Click()
  2. [G2:I1000] = ""
  3. [L2:N1000] = ""
  4. For Each aa In Range([A2], [A2].End(xlDown))
  5. Select Case aa.Offset(, 3)
  6.     Case "Yes"
  7.         nextrow = Sheets("Sheet1").Cells(Rows.Count, 7).End(xlUp).Row + 1
  8.         form = 7
  9.     Case "No"
  10.         nextrow = Sheets("Sheet1").Cells(Rows.Count, 12).End(xlUp).Row + 1
  11.         form = 12
  12. End Select
  13. Cells(nextrow, form) = nextrow - 1
  14. Cells(nextrow, form + 1) = aa.Offset(, 1)
  15. Cells(nextrow, form + 2) = aa.Offset(, 2)
  16. Next
  17. End Sub
½Æ»s¥N½X

book.rar (22.99 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

(¥ý)H2:I2{=IFERROR(INDEX(B:B,RIGHT(SMALL(IF($D$2:$D$9="Yes",CODE($B$2:$B$9)/1%+ROW(B$2:B$9)),ROW(A1)),2)),"")

G2=IF(H2="","",COUNTIF(H$2:H2,"<>"))
ÀH·NºÛ "EXCEL°g"  blog  ©Î http://blog.xuite.net/hcm19522/twblog
¤w¦¬¶°5000½g EXCEL¨ç¼Æ

TOP

ÁÂÁ¦U¦ì¸Ñµª, °ÝÃD¸Ñ¨M¤F

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD