linlin00

§Úªº¸ê®Æ¦hªº®É­Ô¦h¥b·|¶W¹L1000µ§¡A½Ð°Ý¦³¿ìªkÅý³o­Óµ{¦¡°õ¦æ±o§ó§Ö¶Ü?

linlin00

¦^´_ 4# lpk187
«Ü®e©ö©ú¥Õªº¸ÑÄÀ¡A«D±`·PÁÂ!!
¦A½Ð±Ð¤@¤U¡A§Ú¿é¤J«áKªº¦ì¸m·|µo¥Í½sĶ¿ù»~¡A³o­Ó°ÝÃD¸Ó¦p¦ó±Æ°£?

lpk187

¦^´_ 3# linlin00

K­È¬°¤°»ò­n11¦p¤U¹Ï
K­È¬°Column¼Æ¡A±qKÄæ¶}©l­p¼Æ©Ò¥H¬°11¡ALÄ欰12¡A¨Ì¦¹Ãþ±À¡I
   

¤U¸ü (4.41 KB)

2015-7-29 01:07

¥H¦¹¨ÒÃD¡A¨ä¹ê¦³«Ü¦h¤è¦¡¥i¥H°µ¡A¦ý§Ú¿ï¾Ü³Ì°ò¦ªº¤@ºØ¤è¦¡¡AÅý§A®e©ö²z¸Ñ¡A³o¤è¦¡¦pªG¸ê®Æ«Ü¦hªº®É­Ô¡A¨ä¹ê³t«×·|¦³¨ÇºCªº¡I

linlin00

¦^´_ 2# lpk187
ÁÂÁÂlpk187¤jªº¦^µª¡A¦³´X­Ó¦a¤è·Q¦b½Ð°Ý¤@¤U
³o¸Ì¬°¬Æ»ò»Ý­n¥Î¤@­Ók?¬°¤°»òk»Ý­n¥ý³]¬°11?

lpk187

¦^´_ 1# linlin00

§Ú§Q¥Î¤W¦¸ªºµ{¦¡¨Ó§¹¦¨¥¦¡I
¤]´N¬O­ì¨ÓªºA¡BB¡BC 3Ä檺­ì¦³¸ê®Æ¨Ó§¹¦¨

1. Public Sub Ex()
   
2. s = 2
   
3. k = 11
   
4. For i = 2 To 6
   
5.     X = i + 1
   
6.     For j = X To 7
   
7.         Cells(s, "F") = Cells(i, 1) & "," & Cells(j, 1)
   
8.         Cells(s, "G") = (Cells(i, 2) + Cells(j, 2)) / 2
   
9.         Cells(s, "H") = (Cells(i, 3) + Cells(j, 3)) / 2
   
10.         Cells(j, k) = (Cells(i, 2) - Cells(s, "G")) ^ 2 _
    
11.                          + (Cells(j, 2) - Cells(s, "G")) ^ 2 _
    
12.                          + (Cells(i, 3) - Cells(s, "h")) ^ 2 _
    
13.                          + (Cells(j, 3) - Cells(s, "h")) ^ 2
    
14.         s = s + 1
    
15.     Next
    
16.     k = k + 1
    
17. Next
    
18. End Sub

½Æ»s¥N½X