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

[µo°Ý] ½Ð°Ý¡G¦p¦ó±N§PÂ_¥X¨Óªº¼Æ­È¨Ì§Ç½Æ»s¤J¤À­¶ªº«ü©w®æ¤¤

[µo°Ý] ½Ð°Ý¡G¦p¦ó±N§PÂ_¥X¨Óªº¼Æ­È¨Ì§Ç½Æ»s¤J¤À­¶ªº«ü©w®æ¤¤

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2017/5/2 09:57): ªþø¬»¡©ú¬Ý¬Ý

¤p§Ì¬Oªì¤ßªÌ¡A¦Û¾ÇVBA·Q¥Î¨Ó¤ÀªR¦Û¤vªº§ë¸ê¸ê®Æ¡Aªþ¥ó¬°§ÚExcelªºªí®æ¤Îµ{¦¡ºI¹Ï¡A¥Ø«eºc·Q¬O¡G

«O¥»(EÄæ)¡BM­È(KÄæ)¡A§Ú¥ý¥Îµ{¦¡¤U¥h¶]³o¨â­ÓÄæ¦ìªº¼Æ­È¡AµM«áDÄ楻¨­´N¦³¤½¦¡¡A·|¦]¬°«O¥»¸òMªº¼Æ­È²Õ¦X¡A¶i¦æ­pºâ¡A¥u­nD2¦ÜD245¥þ³¡³£¬O¥¿¼Æ¡A´N±N¥i¥H­pºâ¥X¥¿¼Æªº«O¥»©MM­È²¾°Ê¨ì¤À­¶

¨Ò¦p¡G«O¥» = 1 ¡B M­È = 1¡B(D2:D245) ¨ä¤¤¦³Äæ¦ì¬O­t­È¡A
            «O¥» = 1¡B M­È =  2¡B(D2:D245) ¥þ³¡Äæ¦ì¬O¥¿¼Æ¡A±N«O¥»1¤ÎM­È2¡A½Æ»s¨ì¤À­¶Àx¦s°_¨Ó¡C

¥Ø«e¬°¤î¡A¤W­z¥\¯à¬Ò¤j¦h¤w¦Û¦æ§¹¦¨¡C

¦ý¥d¦b¹Ï3ªº³¡¤À¡A¦]¬°°j°éªºÃö«Y¡A½Æ»s¨ì¤À­¶ªº¼Æ­È¡A³£·|­«½ÆªºÂл\¦b¦P¤@­ÓÄæ¦ì¸Ì­±¡A¨S¿ìªk±N¥¿½Tªº¸ê®Æ¨Ì§Ç¶ñ¤J¡C



³o¬O°j°éµ{¦¡ªº³¡¤À
  1. '¼Æ­È¤ÀªR°j°é

  2. For i = 1 To 10 '¶i¤J«O¥»°j°é
  3. Range("E2:E245") = i & "%"
  4.    
  5.     For a = 1 To 5  '¶i¤JM­È°j°é
  6.     Range("K2:K245") = a
  7.    
  8.         
  9.         For s = 1 To 245 '¶i¤J§PÂ_¦¡°j°é
  10.         If Cells(s + 1, 4) > 1 Then '¶i¤JIf§PÂ_¦¡
  11.         s = s + 1
  12.         ElseIf s = 245 Then

  13.         Sheets("·JÁ`ªí").Cells(2, 1) = Sheets("´ú¸Õ¥Î¬¡­¶").Cells(2, 5)
  14.         Sheets("·JÁ`ªí").Cells(2, 2) = Sheets("´ú¸Õ¥Î¬¡­¶").Cells(2, 11)

  15.         ElseIf Cells(s + 1, 4) < 1 Then
  16.         Exit For  ' ¤¤Â_°j°é
  17.         End If
  18.         
  19.         Next s

  20.     Next a

  21. Next i
½Æ»s¥N½X

001.png (171.07 KB)

001.png

¤@­Ó§âµ{§Ç·í¥Í¬¡ªººA«×

°ÝÃD¦Û¦æ¸Ñ¨M¡A·PÁª©¥DÃö¤ß¡G¡^¡A²{¦b·s°ÝÃD¬O¡A°õ¦æ¤Ó¦h°j°é©M§PÂ_¡A°õ¦æ³t«×¹LºC¡A¥¿¹Á¸Õ¥Î°}¦Cµ²ºc¨Ó¸Ñ¨M¡C
¤@­Ó§âµ{§Ç·í¥Í¬¡ªººA«×

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD