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

[µo°Ý] ½Ð°Ý¦p¦ó±N¤£³sÄòªºÀx¦s®æ³]©w¬°°}¦C

[µo°Ý] ½Ð°Ý¦p¦ó±N¤£³sÄòªºÀx¦s®æ³]©w¬°°}¦C

¤p§Ì¦b§Æ±æ¦P®É¹ï¼Æ­ÓÀx¦s®æ§@¦P¼Ëªº°Ê§@¡A¦ý³o¨ÇÀx¦s®æ¤À¥¬¦b¤£¦P¤u§@ªí¤¤
°²³]¦³sheet2.cells(2,"A") sheet4.cells(3,"B)...µ¥
¦³¨S¦³¿ìªk¥Î¤@­Ó°}¦C¡A·f°t°j°é§@¦s¨ú°Ê§@¡H
Ä´¦p
x(1)=sheet2.cells(2,"A")
x(2)=sheet4.cells(3,"B")
for i=1 to 2
¡@£A(i)=......
next i
·PÁÂ
¤£¶i«h°h

Dim arrCell(1) As Object
Set arrCell(0) = Worksheets("Sheet1").Cells(1, 1)
Set arrCell(1) = Worksheets("Sheet2").Cells(1, 1)

·f°tUBound¤ÎLBound¥h¶]¦^°é...
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

¨Ò¦p¡G
a = Array(Sheet1.[a1], Sheet1.[b10], Sheet2.[a1], Sheet2.[c10], Sheet3.[b2])
For i = 0 To UBound(a)
a(i).Value = i
Next

TOP

·PÁ¨â¦ì¤j¤jªº«ü¾É¡A§Ú¦A¸Õ¸Õ¬Ý
¤£¶i«h°h

TOP

¦^´_ 5# yagami12th
'UBound ¨ç¼Æ    ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
LBound ¨ç¼Æ    ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤p¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
  1. Sub Ex
  2. Dim AR(5 To 10, 7 To 9)  '¤Gºû°}¦C
  3. MsgBox UBound(AR)        '²Ä¤@ºû
  4. MsgBox LBound(AR)
  5. MsgBox UBound(AR, 2)     '²Ä¤Gºû
  6. MsgBox LBound(AR, 2)
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD