ªð¦^¦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¤£Åã¥Ü¤§±¡§Î

½Ð¥J²ÓÀˬdªþ¥ó¤¤³Ì«á3Äæµ²ªG»P»¡©ú¤Wªººâªk¨Ã¤£¬Û²Å¡C

TOP

¬°¦ó«e´XÄæ¨ú¦Ûªí1²Ä10¦C¡A¦Ó«á­±ªº¨ú²Ä13¦C¡H

TOP

jÄ椽¦¡¬°='1'!M10+'1'!L10¡A»¡©ú¬°''¦¹Äæ¼Æ­È¬°¤u§@ªí1(²ÄmÄæ´î²ÄlÄæ)¡K¦pÀx¦s®æ¤º¦¡¤l¦ý·í¦¹Äæ¼Æ­È¬°¹s®É´N¾ã¦C¤£Åã¥Ü''
³o¤S¬O«ç»ò¦^¨Æ¡H

TOP

¥»©«³Ì«á¥Ñ 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

Sub yy()
Dim rng, arr, i%, j%, k%
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
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
End Sub

TOP

If rng(i, 11) - rng(i, 10) <> 0 Then
³o¤@¦æµø§A­n¥[©Î´î

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

³o­Ó¤£¬O°ÊºA°}¦C¡AÅܼƥi³]¦b¥ô¦ó¤@ºû¡C
¦]¬°§A¤£²ßºDtranspose,©Ò¥H©ñ±ó°ÊºA°}¦C¡A³o¼Ë§A¥i¯à¸û®e©ö§l¦¬¡I

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

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD