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

[µo°Ý] ¦p¦ó±NA,BÄæÂà´«¦¨¨S¦³ªÅ®æ¤Î­n¯S©w±Æ¦C¤§C,DÄæ

[µo°Ý] ¦p¦ó±NA,BÄæÂà´«¦¨¨S¦³ªÅ®æ¤Î­n¯S©w±Æ¦C¤§C,DÄæ

¦p¹Ï¤Îªþ¥ó ¦p¦ó±NA,BÄæÂà´«¦¨¨S¦³ªÅ®æ¤Î­n¯S©w±Æ¦C¤§C,DÄæ

1. ¥h°£A,BÄ椺ªÅ¥Õ¤§®æ
2. CÄ椧­È¬O¥Ñ¤j¦Ü¤p DÄ椧­È¬O¦P¨B©óCÄæ(¸òµÛCÄæ²¾¦ì)
3. A,BÄ椧­È¬O­ÓÅÜ¼Æ ·|¨Ì¾Ú³]©w¤è¦¡¦Ó§ïÅÜ ¬GC,DÄ椧Á`®æ¼Æ¤]·|¸òµÛÅÜ
4. A,BÄ椧Á`®æ¼Æ ­Y¬OÅÜ¼Æ ·|³y¦¨¤£©ö¼gµ{¦¡ ¨º§Ú¥i¥H©T©w ¦ý³Ì¦n¤]¤¹³\A,BÄ椧Á`®æ¼Æ¥i¥H¬OÅܼÆ
5. ¦b¦¹¥ý·PÁ¤j®a¿ãÅDªº´£¨Ñ¤èªk À°¤p§Ì§Ú§¹¦¨¤£¥i¯àªº¥ô°È (§Ú¤wªá¶O¼Æ¤Ñªººë¯«»P®É¶¡ ¦ýÁÙ¬OµLªk§¹¦¨)


¹ïÀ³¤§¥i§ë¤Jª÷ÃB.jpg
2015-8-16 18:33



¹ïÀ³¤§¥i§ë¤Jª÷ÃB.zip (17.8 KB)

§Ú§Ë¤F´X¤ÑÁÙ¬O¥d¦b³oùØ ¤@ª½¨S¦³¶i®i ¥i§_½Ð°ª¤â½ç±Ð


¹ïÀ³¤§¥i§ë¤Jª÷ÃB.jpg
2015-8-16 21:33



¹ïÀ³¤§¥i§ë¤Jª÷ÃB.zip (31.5 KB)

TOP

¦^´_ 2# lcctno

§Aªº¼Æ¾Ú¥Î¤@¯ë±Æ§Ç´N¥i¥H°µ¨ì¤F°Ú¡I¤£À´¬°¤°»ò­n¼g¦¨µ{¦¡¡H
  1. Option Base 1
  2. Public Sub Ex()
  3. Set d = CreateObject("scripting.dictionary")
  4. aa = Cells(Rows.Count, 1).End(xlUp).Row
  5. bb = Cells(Rows.Count, 2).End(xlUp).Row
  6. Dim ar1()
  7. If aa < 2 Or bb < 2 Then Exit Sub
  8. If aa > bb Then
  9.     arr = Range("A3:B" & aa)
  10. Else
  11.     arr = Range("A3:B" & bb)
  12. End If

  13. For i = 1 To UBound(arr) - 1
  14.     For j = i + 1 To UBound(arr)
  15.         If arr(i, 2) > arr(j, 2) Then
  16.             r1 = arr(i, 1)
  17.             r2 = arr(i, 2)
  18.             arr(i, 1) = arr(j, 1)
  19.             arr(i, 2) = arr(j, 2)
  20.             arr(j, 1) = r1
  21.             arr(j, 2) = r2
  22.             
  23.         End If
  24.     Next
  25. Next

  26. For i = 1 To UBound(arr)
  27.     If arr(i, 1) <> "" And arr(i, 2) <> "" Then
  28.         n = n + 1
  29.         ReDim Preserve ar1(1 To 2, n)
  30.         ar1(1, n) = arr(i, 1)
  31.         ar1(2, n) = arr(i, 2)
  32.     End If
  33. Next
  34. [e3].Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1)
  35. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# lpk187
§Úª¾¹D"¥Î¤H¤u¬O«Ü®e©ö¹F¦¨ªº" ¦ý¥u­n°Ñ¼Æ¤@§ï´N±o­«·s¨Ó¹L ¥B¹ï«D¼gµ{¦¡¤§¤H ¸ò¥»«ÜÃø¨Ï¥Î ¬Æ¦Ü¤£·|¥¿½T¨Ï¥Î

«D±`·PÁ±zªº·N¨£¤Î¤½¦¡ §Ú¥ý¦¬¤U«Ý´ú¸Õ ­Y¦³°ÝÃD §Ú·|¦A¸ß°Ý±z ÁÂÁ±zªºÀ°§U

TOP

¦^´_ 4# lcctno


    §Ú¤W­±µ{¦¡¦h¤F¤@¦æSet d = CreateObject("scripting.dictionary")½Ð¦Û¦æ§R°£¡I         

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-8-16 23:39 ½s¿è

¦^´_ 5# lpk187
"§Ú¤W­±µ{¦¡¦h¤F¤@¦æSet d = CreateObject("scripting.dictionary")½Ð¦Û¦æ§R°£¡I"

§R¤£§Rµ²ªG¬O¤@¼Ë  ¦Ñ¹ê»¡§Ú´X¥G¬Ý¤£À´±z´£¨Ñ¤§µ{¦¡¤º®eªº§t·N ¦ý§ÚÁÙª¾¹D±N "[e3].Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1)" §ï¦¨[c3].Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1) ¤~¯à¹ï¸¹¤J®y

·PÁ±z ¥i¹F¨ì§Ú­nªº¤º®e¤F
¦ý¦³¤@­Ó°ÝÃD ½Ð°Ý¯uªº¨S¿ìªk¤£¥ÎVBA¨Ó°õ¦æ¶Ü? ¦]¬°°Ñ¼Æ¤@§ïÅÜ ¼Æ­È¤£·|ª½±µ¸òµÛÅÜ ÁÙ±o¥²¶·­n¥[¤WÂI¤@­Ó«ö¶s ¤~¯à±o¨ì¥¿½T­È ½Ð°Ý¥i¦³¤èªk¥Î¤@¯ë¨ç¼Æ¨Ó¹F¦¨
³Ì«á°£¤FÁÂÁ±z ÁÙ¬O­n·PÁ±zªº¼ö¤ßÀ°§U
ps. §Ú¥Ø«e¦b¹Á¸Õ±N§Ú³o´X¦~¨Ó°µªº²Î­p¤ÀªR©Ò±oªºµ²ªG Âà´«¦¨¸êª÷°t¸mªºªí®æ ¥u­n²³æªº¿é¤J¥i§ë¸êªºÁ`ª÷ÃB ¤Î°t¦X²Ö¿nµo¥Í²vªº°Ñ»P®É¾÷ ¨ºªí®æ´N·|¦Û°Ê§i¶D±z¶Rªº°t¸m¤è¦¡
§Ú¤w¦Ñ¤F ³o¬O¬°§Úªº¨à¤l¼gªº ©È¥L¤£·|¥¿½Tªº¨Ï¥Î ©Ò¥H§Æ±æ¯àÅý¨S°ò¥»ª¾ÃѪº¥L¤]¯à®e©ö¨Ï¥Î
§Ú¤£¤Ó·|¼gµ{¦¡ ¦]¬°¾Ç®Õ§¹¥þ¨S¾Ç¹LExcell ¦ý§Úª¾¹D«ç»ò©óªÑ¥«ÁÈ¿ú(¬O¤@©wÁÈ) ©Ò¥H........

TOP

¦^´_ 3# lpk187

§Ú¹J¨ì°ÝÃD¤F ­ìªþ¥ó¤WªºA,B,C,DÄæ ¦b§Ú¯u¹êªº¦ì¸m¬OT,U,V,W ­×§ï¤F¼Æ¤p®É «oµLªk­×§ï¦¨¥\  ¦A¦¸ªº³Â·Ð±z¤F
¥t¥~½Ð¦h¥[¤W¤@«ü¥O ©ó¾ã²z«á­n¶K¤W¤§«e ½Ð¥ý²MªÅ¸ÓÄæ¦ì¤§¥þ³¡¼Æ­È(­ì¤§C,DÄæ ²{¦bªºV,WÄæ) ÁÂÁ±z¤F



¹ïÀ³¤§¥i§ë¤Jª÷ÃB.jpg
2015-8-17 08:53




¹ïÀ³¤§¥i§ë¤Jª÷ÃB1.zip (22.64 KB)

TOP

¦^´_ 7# lcctno


         ¥i¥H¥ý½Ð±Ð§A¶Ü¡H¡A¦]¬°§A»¡"¦]¬°°Ñ¼Æ¤@§ïÅÜ ¼Æ­È¤£·|ª½±µ¸òµÛÅÜ"
¥i¥H§i¶D§Ú¦b­þ¸Ì·|§ïÅÜ¡H¤°»ò±¡ªp¤U§ïÅÜ¡H
VBA¨ä¹ê³£¥i¥H°µªº¥X¨Óªº¡I¨S¦³"¦]¬°°Ñ¼Æ¤@§ïÅÜ ¼Æ­È¤£·|ª½±µ¸òµÛÅÜ"ªº
¤]¤£¤@©w­n«ö¶sªº¡I
¥H¤U¦CÀɮפ¤ªºµ{¦¡¨Ó»¡¡A¥u­n§A§ïÅÜTÄ椤°£¤FT1©MT2¥~ªº¥ô¦óÀx¦s®æUÄæ©MVÄæ¤]·|¸òµÛ§ïÅܪº¡I
¦Ó¥B¤£¥Î«ö¶s¡A¥u­­Äæ§ïÅÜ®@¡I­Y§AªºSÄæ¤]·|Åܧ󪺸ܡA¤]¥i¥H¥[¤Jªº¡I

¹ïÀ³¤§¥i§ë¤Jª÷ÃB1.zip (27.29 KB)

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-8-17 12:36 ½s¿è

¦^´_ 8# lpk187
¦pªþ¥ó ¥u¥Î¿ï¾Ü©Ê¶K¤W­È¤Î®æ¦¡¤Îµù¸Ñ
-½Ð¬ÝSheet2¥ª¤W¤è ¶À®æ¤º¤§­È¬Ò¥i¯à§ó§ï

  ÁÂÁ±z  ³Â·Ð±z¤F

¦³¨Ç¤p°ÝÃD
1.Sheet1¤º u3¤Îv3 ¬°¦ó·|ªÅ¥Õ
2. ªÑ»ù2.99          §ë¤Jª÷ÃB999 ,477
¨Ã¥¼³Q¥N¤Ju¤Îv¤º


        00631L©Î0050¤§¸êª÷°t¸m.zip (81.92 KB)
                 




   



TOP

¦^´_ 9# lcctno


    00631L©Î0050¤§¸êª÷°t¸m (1).zip (86.6 KB)

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD