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

¥i¤£¥i¥H¿é¤J»Ý­nªº¼Æ¦r½d³ò¦Û°Ê²£¥X

¥i¤£¥i¥H¿é¤J»Ý­nªº¼Æ¦r½d³ò¦Û°Ê²£¥X

¨Ò¦p»Ý­n59~101¼Æ¦r²£¥Í©órangs("c2")
¥i¥H¥ô·N¿é¤J¼Æ¦r½d³ò,¦ý¼Æ¦r¥²¶·¦brangs("c2") ¥Ñ¤p¨ì¤j±Æ§Ç,¸Ó¦p¦ó³B²z??

C2 ¨ìC101
1000 ¥H¤º¼Æ¦r
  1.     Randomize
  2.     lngNum = 100
  3.     lngNumRangeTo = 1000
  4.     For i = 0 To lngNum
  5.         Range("C2").Offset(i).Value = Int(Rnd * lngNumRangeTo)
  6.     Next
  7.     Range(Range("C2"), Range("C65536").End(xlUp)).Select
  8.     Selection.Sort Key1:=Range("C2"), Order1:=xlAscending
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

°õ¦æµ²ªGc2=2,10,28,28,36,39,39,47,50,54,64,69....994(¶Ã¸õ)
¥i¥H§ï¦¨¥i§ó§ï°Ï¶¡ªº¸¹½X?¨ÃÅã¥Ü¦brangs("c2")¥Ñ¤p¨ì¤j
¨Ò¦p¼Æ¤J59~101
°õ¦æµ²ªGc2=59,60,61,62,63...101
¨Ò¦p¿é¤J20~50
°õ¦æµ²ªGc2=20,21,22,23,24...50

TOP

¦^´_ 3# yueh0720
  1. Sub Ex()
  2.     Dim A1, A2
  3.     A1 = 51
  4.     A2 = 101
  5.     With Range("C2")
  6.         .Resize(Rows.Count - .Row) = ""
  7.         .Value = A1
  8.         .Offset(1).Resize(A2 - A1) = "=R[-1]C+1"
  9.         .Offset(1).Resize(A2 - A1) = .Offset(1).Resize(A2 - A1).Value
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# yueh0720
  1. Sub Ex()
  2. Dim t&
  3. [C2:C65536] = ""
  4. [C2] = InputBox("°_©l½X")
  5. t = InputBox("µ²§ô­È")
  6. [C2].Resize(t - [C2] + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
  7.         Step:=1, Trend:=False
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD