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

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

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD