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

[µo°Ý] ¦p¦ó¨Ï¥ÎVBA­pºâ¨â²Õ¼Æªº¥­§¡

[µo°Ý] ¦p¦ó¨Ï¥ÎVBA­pºâ¨â²Õ¼Æªº¥­§¡

¥»©«³Ì«á¥Ñ linlin00 ©ó 2015-7-23 17:59 ½s¿è

¦U¦ì¤j¤j¦n¡A§Ú³Ìªñ¶}©l½m²ßVBA¡A
ªþ¥ó¬O§Ú­ì¥ý­pºâªº¡A°²³]¦³6µ§¸ê®Æ­n¨â¨â­pºâ¥¦ªº¥­§¡¡A
¹³¬O²Ä¤@µ§¸ê®Æ¤À§O¬°5,5¡A²Ä¤Gµ§¤À§O¬°6,6
¥i¨D±o²Ä¤@µ§»P²Ä¤Gµ§ªº¥­§¡¤À§O¬°(5+6)/2=5.5,(5+6)/2=5.5
·Q½Ð°Ý¦pªG­n¥HVBA¨Ó¾Þ§@¸Ó¦p¦óªí¥Ü©O?

½m²ß.rar (7.69 KB)

¦^´_ 1# linlin00
  1. Public Sub Ex()
  2. s = 2
  3. For i = 2 To 6
  4.     x = i + 1
  5.     For J = x To 7
  6.         Cells(s, "G") = (Cells(i, 2) + Cells(J, 2)) / 2
  7.         Cells(s, "H") = (Cells(i, 3) + Cells(J, 3)) / 2
  8.         s = s + 1
  9.     Next
  10. Next
  11. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂlpk187¤j!!
¥t¥~·Q½Ð°Ý¤@¤U¡A¦pªG·Q¦b¨C¤@¦æ¥­§¡«e­±¦Û°Ê²£¥Í¬O½Ö»P½Öªº¥­§¡¦³¿ìªk°µ¨ì¶Ü?
¤ñ¦p»¡²Ä¤@¦æ¬O1¸ò2ªº¥­§¡¡A´N¦b¨º¤@¦æ«e­±¼g¤W"1+2ªº¥­§¡"Ãþ¦ü³o¼Ë

TOP

¦^´_ 3# linlin00
  1. Public Sub Ex()
  2. s = 2
  3. For I = 2 To 6
  4.     x = I + 1
  5.     For J = x To 7
  6.         Cells(s, "F") = Cells(I, 1) & "," & Cells(J, 1)
  7.         Cells(s, "G") = (Cells(I, 2) + Cells(J, 2)) / 2
  8.         Cells(s, "H") = (Cells(I, 3) + Cells(J, 3)) / 2
  9.         s = s + 1
  10.     Next
  11. Next
  12. End Sub
½Æ»s¥N½X

TOP

«D±`·PÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD