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

[µo°Ý] ­YÀx¦s®æ¤º®e¬°0´N¾ã¦C¤£Åã¥Ü

[µo°Ý] ­YÀx¦s®æ¤º®e¬°0´N¾ã¦C¤£Åã¥Ü

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2010-9-6 21:17 ½s¿è

¦pªþ¥ó
¦b¤u§@ªí1¤§[c10:m83]¿é¤J¸ê®Æ
·Q±o¨ì¦p¤u§@ªí2-1¤§µ²ªG
¤]´N¬O»¡·í¤u§@ªí2-1ªºjÄ椺®e¸g­pºâ¬°0®É´N¤£±N¸Ó¦CÅã¥Ü©ó¤u§@ªí2-1
µù
¬°¤è«K»¡©ú
ªþ¥ó¤¤¤u§@ªí2¤£½×jÄ椺®e¬O§_¬°0±N¥þ³¡Åã¥Ü¥X¨Ó¤§±¡§Î
¦Óªþ¥ó¤¤¤u§@ªí2-1¬O±NjÄ椺®e¬°0¤£Åã¥Ü¤§±¡§Î

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2010-9-6 22:29 ½s¿è

¦^´_ 6# oobird


    ³á
©êºp¥i¯à¤p§Ì¼g¨S²M·¡
·N«ä´N¬O»¡
­Y¤u§@ªí1¸ÌªºM10+L10=0
¦b¤u§@ªí2´N¤£Åã¥Ü¸Ó¦C(²Ä10¦C)
¤w­×¥¿¦pªþ¥ó~~~

990906-1.rar (29.81 KB)

TOP

¦^´_ 7# oobird


    ½Ð°Ý
¤§«e´£¨ì
°ÊºA°}¦C¦³­Ó³W«h¡A´N¬O¥u¯à§ïÅܲĤGºûªº¤j¤p
http://forum.twbts.com/viewthread.php?tid=1282
³o¸Ì«oarr(1 To UBound(rng), 1 To 10)
ÅܼƳ]¦b²Ä¤@ºû
¤]´N¬O¦C¦ì¬°ÅܼÆ
³o~~~¨ì©³¬O¦ì¤°»ò?

TOP

¦^´_ 9# oobird


    §¹¤F~~~
§Ú¤S¬Ý¤£À´¤F
§Ú¶Rªº®Ñ¤W´£¨ì
©T©w°}¦C¬O¥Hdim«Å§i
ÅÜ°Ê°}¦C¬O¥HRerdim«Å§i
¦¹³B¤Îhttp://forum.twbts.com/viewthread.php?tid=1282
³o2­Ó°ÝÃD¤£¬O³£¥Îredim«Å§i¶Ü?

TOP

¦^´_ 11# oobird


°}¦C1>
a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
°}¦C2>
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
¤p§Ì¤ñ¸û¤F³o2­Ó°}¦C
µo²{¦b°}¦C2ªºrngÅܼƪº©w¸q
rng = .Range(.[c10], .[m83].End(3))
µ¥©ó³]©w¤Frngªº°_©l»P²×¤î½d³ò
¦Ó¦b°}¦C1ªºrÅܼÆ
¬O¨ü¨î©óÅܼÆa¦Ó²×¤î
ÅܼÆaªº©w¸q¬°
a = Sheets("1").[c10].CurrentRegion
³oµ¥©ó¨S¦³³]©wÅܼÆaªº²×¤î½d³ò
©Ò¥H¤j¤j§A¤~±N°}¦C1ºÙ¤§¬°ÅÜ°Ê°}¦C
°}¦C2ºÙ¤§¬°©T©w°}¦C
¦Ó«D³æ¯Â¥Hdim©Îredim§@§P§O°ò·Ç°Ï¤À©T©w©ÎÅÜ°Ê°}¦C?
¤p§Ì³o¼Ë²z¸Ñ¥¿½T¶Ü?

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD