c_c_lai

¦^´_ 1# caichen3
For i = 3 To k                        
½Ð°Ý k ¬°¦h¤Ö¡H

c_c_lai

¦^´_ 1# caichen3

1. Sub ex()
   
2.     Dim a As Single, b As Single, c As Single, d As Double
   
3.     Dim kkk As String
   
4.     Dim k As Integer
   
5.    
   
6.     k = 3
   
7.     ccc = Chr(67)
   
8.     ddd = Chr(68)
   
9.     ggg = Chr(71)
   
10. 
    
11.     For i = 1 To k
    
12.         a = Range(ccc & i).Value
    
13.         b = Range(ddd & i).Value
    
14.         c = a + (a - b)
    
15.         d = c / a
    
16.         Range(ggg & i).Value = Format(d, "00.00")
    
17.     Next
    
18. 
    
19. End Sub

½Æ»s¥N½X

¤U¸ü (16.69 KB)

2012-4-18 17:05

c_c_lai

¦^´_ 5# Hsieh
­ì¨Ó¯u¥¿°ÝÃD¬O¥X¦bÄæ¦ìÀx¦s­Èªººë·Ç«×ªº®e³\½d³ò¡C

3)a,b«Å§i¬°³æºë·Ç¼Æ¡A­YÀx¦s®æ¼Æ­È¶W¥X³æºë·Ç¼Æ½d³ò(¥¦ªº½d³ò¦b­t¼Æªº®É­Ô¬O±q -3.402823E38 ¨ì -1.401298E-45¡A¦Ó¦b¥¿¼Æªº®É­Ô¬O±q 1.401298E-45 ¨ì 3.402823E38¡C)´N·|³y¦¨·¸¦ì
a = CSng(Range(ccc & xxx).Value)
b = CSng(Range(ddd & xxx).Value)

ÁÂÁ¡I