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

·¸¦ì°ÝÃD ¨Ï¥Î CLbg ¤]¬O

·¸¦ì°ÝÃD ¨Ï¥Î CLbg ¤]¬O

For k = 1 To 24
For i = 1 To 113
ells(CLng((i - 1) * 462) + CLng(k - 1) * CLng(52319) + i + 1, 1).Select
²{¦b k=1 i=72 ´N·|·¸¦ì¤F

§Ú¬Ý°ê¥~ºô¯¸¦³»¡©ú ¦UºØªºªø«×
¤£¹L§Ú¤£ª¾¹D¸Ó«ç»ò³]
dim cells
©ÎªÌ§â CLng §ï¦¨¤ñ¦p»¡ double or string
¥L³£¶]¥X¿ù»~°T®§....   


Byte -- 1 byte -- 0 to 255

Boolean -- 2 bytes -- True or False

Integer -- 2 bytes -- -32,768 to 32,767

Long (long integer) -- 4 bytes -- -2,147,483,648 to 2,147,483,647

Single(single-precision floating-point) -- 4 bytes -- -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive values

Double(double-precision floating-point) -- 8 bytes -- -1.79769313486231E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values

Currency(scaled integer) -- 8 bytes -- -922,337,203,685,477.5808 to 922,337,203,685,477.5807

Decimal -- 14 bytes -- +/-79,228,162,514,264,337,593,543,950,335 with no decimal point; +/-7.9228162514264337593543950335 with 28 places to the right of the decimal; smallest non-zero number is
+/-0.0000000000000000000000000001

Date -- 8 bytes -- January 1, 100 to December 31, 9999

Object -- 4 bytes -- Any Object reference

String (variable-length) -- 10 bytes + string length -- 0 to approximately 2 billion

String(fixed-length) -- Length of string 1 to approximately 65,400

Variant(with numbers) -- 16 bytes -- Any numeric value up to the range of a Double

Variant(with characters) -- 22 bytes + string length -- Same range as for variable-length String

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-2 10:50 ½s¿è

¦^´_ 1# ag324
  1. Sub Ex()
  2.     Dim i As Long, k As Long
  3.     For k = 1 To 24
  4.         For i = 1 To 113
  5.             Cells(CLng((i - 1) * 462) + CLng(k - 1) * CLng(52319) + i + 1, 1).Select
  6.         Next
  7.     Next
  8. End Sub
½Æ»s¥N½X
Åܼƪº½d³ò»Ý°t¦X¤½¦¡­¼ÁZ­È
  1. Sub Ex·¸¦ì¥Ü½d()
  2. Dim i As Integer, k As Integer
  3. For k = 1 To 24
  4.     For i = 1 To 113
  5.      Debug.Print k & " : " & i
  6.      Debug.Print (i - 1) * 462 + (k - 1) * 52319 + i + 1   '§Y®É¹Bºâµøµ¡¤¤¦L¦C ¤½¦¡ªº­¼ÁZ
  7.      '¦]¬° k=1 i=72¤½¦¡ªº­¼ÁZ> Integerªº½d³ò 32,767 ´N·|·¸¦ì¤F
  8.    
  9.     Next
  10. Next

  11. End Sub
½Æ»s¥N½X

TOP

·PÁ Åܼƪº¦a¤è ³Q·í§@¬Ointeger ©Ò¥H§Ú±ø¤U­±ªº CLeng ¤~·|¨S¥Î
²{¦b¥i¥H¤F

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD