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

²£¥ÍÀɮפΤu§@ªíªº»yªk

²£¥ÍÀɮפΤu§@ªíªº»yªk

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2016-2-9 21:16 ½s¿è

·Ð½Ð¦U¦ì°ª¤â«ü±Ð!ÁÂÁÂ!
®Ú¾Ú¦UInputBox¶ñ¤Jªº¼Æ¦r¡A²£¥Í¦UÀɮפΤu§@ªí
ÀɮצWºÙ= FTC_" & UpRng & "_"& StrRng & "-" & mthcount & "´Á.xls"

¦UÀɮפºªº¤u§@ªí
¤u§@ªí¦WºÙ= mthcount & "-" & mthcount - i
(For i = 1 To UpRng¡J Next)

³Ì«á¦b¥kÃä¦AÄò¼W¥[¤@­Ó¦WºÙ="¾÷²vªí"ªº¤u§@ªí

¤u§@ªíªº¤º®e¡J
A1¡JH1=DATA!¼ÐÃD(´Á¼Æ ¤@ ¤G ¤T ¥| ¤­ ¤» ¯S)¡FI1¡JP1= DATA!¼ÐÃD
I2¡JP& mthcount- StrRng +2= DATA!A&StrRng+1¡JDATA!H& mthcount +1

"¾÷²vªí"¤u§@ªí¤º®e
A1¡JF1=
¹w´ú¸¹½X        ¥X²{´Á¼Æ        ¥X²{¦¸¼Æ        ¹w´ú¸¹½X­Ó¼Æ        ¤¤¼ú¸¹½X        ¤¤¼ú¤ñ²v

EX¡J
    StrRng = "2,10"
    Nrange = "100,200"
    UpRng = "4,8"

²£¥Í¦pªþ¥ó
»s§@.rar (72.27 KB)

¸É¥R:
­ì3¬qInputBoxµ{¦¡½X¥Ü§Ú¦bºô¸ô¤WÂ^¨úªº¡A
¦ý¤£ª¾­n¦p¦ó®M¥Î©M¥[¼g¤~¯à§¹¦¨¦p½d¨Òªºµ²ªG?
¦³½Ð¦U¦ì°ª¤âÀ°¦£!ÁÂÁÂ!

µù:¦]©Èªþ¥ó¤Ó¦h¡A©Ò¥H200´Áªº®ÄªGÀɬٲ¤¥¼ªþ¡C

TOP

¶X¦~°²¦bºô¸ô¤W·j´M¦h¤Ñ¡A¤w¦Û¦æ°Â´ê§¹¦¨¡CÁÂÁÂ!

TOP

¦^´_ 3# ziv976688

½Ð°Ý¥i¤À¨É§¹¦¨ªº½d¨Ò°µ°Ñ¦Ò¶Ü?

Thanks

TOP

¦^´_ 3# ziv976688
¤£¦n·N«ä¡A¦]¥»ÃDªº»Ý¨D¥u¬O§¹¦¨J:PÄ檺¥b¦¨«~¡AÁٽͤ£¤W¦³¤°»ò°Ñ¦Òªº»ù­È
µ¥§Ú§¹¦¨A:PÄ檺¥þ³¡°ò¥»¬[ºc«á¡A¦A¶K¥X¤À¨É¬°¦ó^^

TOP

¦^´_ 4# starry1314
FTC_1-Ans.rar (49.74 KB)

²Ê­F¤w§¹¦¨¡A¨ä¾lÀx¦s®æ®æ¦¡,Äæ¼eµ¥²Ó³¡µ{¦¡½X¡A½Ð¦Û¦æ·r²K¡C

TOP

¦^´_ 6# ziv976688
·PÁ¤À¨ÉÅo¡ã

TOP

¦^´_ 6# ziv976688
¦^´_ 7# starry1314
E.png
2016-2-18 09:32

Dic.rar (71.65 KB)
E.png

Dic.rar (71.65 KB)

TOP

¦^´_ 8# c_c_lai
c_c_lai¤j¤j:±z¦n!
ÁöµMµLªk¤U¸ü±z¤W¶Çªº½d¨ÒÀɮסAµLªk¾Ç²ß±zªº¸ÑÃD¤½¦¡¡F¦ýÁÙ¬OÁÂÁ±zªº¦^À³

TOP

¦^´_ 9# ziv976688
  1. Sub Ex()
  2.     Dim dic As Object, rng As Range, fld As Range, txt As String
  3.    
  4.     Set rng = Range("B2:H" & [H65536].End(xlUp).Row)
  5.     Set dic = CreateObject("scripting.dictionary")
  6.    
  7.     [K:O].Clear
  8.     For Each fld In rng
  9.         txt = fld.Value
  10.         If dic.exists(txt) = False Then
  11.             dic(txt) = 1
  12.         Else
  13.             dic(txt) = dic(txt) + 1
  14.         End If
  15.     Next
  16.    
  17.     [K1] = "  ¥Ñ¤p¦Ó¤j¨Ì§Ç±Æ¦C"
  18.     [K2].Resize(UBound(dic.KEYS) + 1) = Application.Transpose(dic.KEYS)                '  ¯Á¤Þ­È´N¬O Keys
  19.     [L2].Resize(UBound(dic.KEYS) + 1) = Application.Transpose(dic.Items)               '  ¸ê®Æ¤º®e´N¬O Items

  20.     With [K2].Resize(UBound(dic.KEYS) + 1, 2)        '  Range("K2:L" & [L2].End(xlDown).Row)
  21.         .Cells.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo     ' xlDescending
  22.     End With
  23.    
  24.     Range("K2:L" & [L65536].End(xlUp).Row).Copy [N2]
  25.    
  26.     [N1] = "¨Ì¥X²{¾÷²v¼Æ¾Ú±Æ¦C"
  27.     With [N2].Resize(UBound(dic.KEYS) + 1, 2)        '  Range("N2:O" & [O2].End(xlDown).Row)
  28.         .Cells.Sort Key1:=.Cells(2), Order1:=xlDescending, Header:=xlNo     ' xlAscending
  29.     End With
  30. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD