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

¦³Ãö°j°é¼gªk

¦³Ãö°j°é¼gªk

¦U¦ì°ª¤â¦n¡G
¤p§Ì¬OEXCELªì¾ÇªÌ¡A¤½¥q¦³¤@­Ó³]­p¸ê®Æ­pºâ¦¡·|¥ÎFOR...... NEXT¤è¦¡¡A±ø¥ó¦p¤U¡G
Tank ¤º·Å«×(T1)¡G                30                                               
Åx¤ô·Å«×(TW)¡G                10                                               
Åx¤ô¶q(W)(L/SEC)¡G                12                                               
for T=T1-2 to T1 Step 0.01                                                               
        X1=0.02273-(0.2275*10^-2)*T1+1,352*10^-4*T1^2-2.607*10^-6*T1^3+2.642*10^-8*T1^4                                                       
        IS1=0.24*T1+X1*(597.3+0.44*T1)                                                       
        X=0.02273-(0.2275*10^-2)*T+1,352*10^-4*T^2-2.607*10^-6*T^3+2.642*10^-8*T^4                                                       
        I=0.24*T+X*(597.3+0.44*T)                                                       
        VS1=0.632+1.55*10^-2*T1-3.385*10^-4*T1^2+3.85*10^-6*T1^3                                                       
        Y=V1/VS1*(IS1-I)-W*(T-TW)                                                       
        IF ABS(Y)<5 Then "Åã¥Ü­pºâ­È"                                                       
NEXT T                                                               
­pºâ­È¡G        XXXXX
½Ð±Ð¸g¹LFOR NEXT«á¦p¦óÅã¥Ü­È
§Ú¦b¦¹ºô¯¸·j¯Á¹L¡A¦ý¬Oªì¾ÇªÌ¬Ý¤£¤ÓÀ´¬O§_¥i¥H¨Ì·Ó¤W­z±ø¥ó¡AÀ°¦£¸Ñ¨M
·PÁÂ

V1¬O¦p¦ó¨D±o?
Åã¥Ü¤è¦¡¬O¦p¦ó?¥Î¹ï¸Ü¤è¶ô?©Î¬O¼g¤J¤u§@ªí?
­pºâ­È¤S¬O¬Æ»ò?
µ{¦¡³]­p¥²¶·±q¾ãÅé¬[ºc¨Ó«ä¦Ò
¨Ò¦p:¨º¨Ç±`¼Æ­n¦p¦ó³]­p¿é¤J?(«Ç·Å¡BÅx¤ô·Å¡BÅx¤ô¶q)
­pºâ¹Lµ{¤¤©Ò¦³ÅܼƪºÅܤƬO¸g¥Ñ«ç¼Ë­pºâ¨D±o?
­nªºµª®×¦³­þ¨Ç?Åã¥Üªº¤è¦¡¬°¦ó?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

±í¼ÑÅé¿n(V1)¡G                450        (¨Ï¥ÎªÌ¿é¤J­È)
Tank ¤º·Å«×(T1)¡G                30        (¨Ï¥ÎªÌ¿é¤J­È)
Åx¤ô·Å«×(TW)¡G                5        (¨Ï¥ÎªÌ¿é¤J­È)
Åx¤ô¶q(W)(L/SEC)¡G                8.33        (¨Ï¥ÎªÌ¿é¤J­È)
­pºâ­È(Y)¡G                XXXXX        (¸g¹L¤U¦C­pºâ«á§â¼Æ­ÈÅã¥Ü¦¹Äæ¦ì)
                       
for T=T1-2 to T1 Step 0.01                       
        X1=0.02273-(0.2275*10^-2)*T1+1,352*10^-4*T1^2-2.607*10^-6*T1^3+2.642*10^-8*T1^4               
        IS1=0.24*T1+X1*(597.3+0.44*T1)               
        X=0.02273-(0.2275*10^-2)*T+1,352*10^-4*T^2-2.607*10^-6*T^3+2.642*10^-8*T^4               
        I=0.24*T+X*(597.3+0.44*T)               
        VS1=0.632+1.55*10^-2*T1-3.385*10^-4*T1^2+3.85*10^-6*T1^3               
        Y=V1/VS1*(IS1-I)-W*(T-TW)               
        IF ABS(Y)<5 Then "­pºâ­È"               
NEXT T                       
«Ü©êºpÁ¦Ѯv¥i¯à¥¼¼g²M·¡¡A¥D­n¬O¨Ï¥ÎªÌ¿é¤J¤W¤èªº¼Æ¾Ú¡A¸g¥ÑFOR...NEXT°j°é«á§â­pºâ«áªº­ÈÅã¥Ü¦b¸ÓÄæ¦ì¤W(XXXXX)
ÁÂÁÂ

TOP

¦^´_ 3# hero_lin
  1. Sub ex()
  2. V1 = InputBox("±í¼ÑÅé¿n(V1)¡G ", , 450)           '        (¨Ï¥ÎªÌ¿é¤J­È)
  3. T1 = InputBox("Tank ¤º·Å«×(T1)¡G", , 30)            '        (¨Ï¥ÎªÌ¿é¤J­È)
  4. TW = InputBox("Åx¤ô·Å«×(TW)¡G ", , 5)           '        (¨Ï¥ÎªÌ¿é¤J­È)
  5. W = InputBox("Åx¤ô¶q(W)(L/SEC)¡G ", , 8.33)           '        (¨Ï¥ÎªÌ¿é¤J­È)
  6. '­pºâ­È (y):                XXXXX (¸g¹L¤U¦C­pºâ«á§â¼Æ­ÈÅã¥Ü¦¹Äæ¦ì)
  7.                         
  8. For T = T1 - 2 To T1 Step 0.01
  9.         X1 = 0.02273 - (0.2275 * 10 ^ -2) * T1 + 1352 * 10 ^ -4 * T1 ^ 2 - 2.607 * 10 ^ -6 * T1 ^ 3 + 2.642 * 10 ^ -8 * T1 ^ 4
  10.         IS1 = 0.24 * T1 + X1 * (597.3 + 0.44 * T1)
  11.         X = 0.02273 - (0.2275 * 10 ^ -2) * T + 1352 * 10 ^ -4 * T ^ 2 - 2.607 * 10 ^ -6 * T ^ 3 + 2.642 * 10 ^ -8 * T ^ 4
  12.         I = 0.24 * T + X * (597.3 + 0.44 * T)
  13.         VS1 = 0.632 + 1.55 * 10 ^ -2 * T1 - 3.385 * 10 ^ -4 * T1 ^ 2 + 3.85 * 10 ^ -6 * T1 ^ 3
  14.         y = V1 / VS1 * (IS1 - I) - W * (T - TW)
  15.         n = n + 1
  16.         Cells(n, 1) = y
  17. Next T

  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¼Ó¥D~±zªºµ{¦¡½X¤¤¦³¤@¦æ~ ı±oÆZ©_©Çªº~
IF ABS(Y)<5 Then "­pºâ­È" <===¬O«ü³Ì«áY­È¸g¹Lµ´¹ï­ÈªºÂà´«­n<5,´N¨q¥X­pºâ­È,¨º¦pªG>5¬O¤£¬O¤£­n¨q¥X­pºâ­È©O???
¥B¬Ý¼Ó¥Dªº´y­z³Ì«áªº­pºâ­È¬O¤£¬O¥u¦³¤@­Ó­È??
Hsieh¤j¤jªº­pºâ­È¬O·|±N°j°é¤¤©Ò¦³ªº­pºâµ²ªG³£±a¥X¨Ó­ò~ ·|¦³¨â¦Êµ§¼Æ¾Ú~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¬Oªº¡AÁ¦Ѯv¤Ö¤@¦æ§PÂ_¦¡IF ABS(Y)<5 Then "­pºâ­È¡A§_«h·|¦³¦n´Xµ§¸ê®Æ¡A§Ú­Ì¤H¤uºâ¹L¥u·|¦³¤@µ§¸ê®Æ¥X²{¡C
¥t¥~¿é¤J¼Æ¾Úªº¼Æ¾Ú¥i¥H¦bEXCELªí®æ¤ºÅý¦P¨Æ¶ñ¤J¡C«ö¤@Áä«á¤~­pºâÅã¥Ü¼Æ¾Ú
¤p§Ìªì¾Ç½ÐÀ°¦£·PÁÂ

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-6-8 13:57 ½s¿è

¼Ó¥D~ §Aµ¹ªº¼Æ¾Ú­Y°õ¦æHsieh¤j¤jªºµ{¦¡½X+§PÂ_¦¡IF ABS(Y)<5 Then "­pºâ­È~
À³¸Ó¤£·|¦³­È¶]¥X¨Ó~ ¦]¬°¹Bºâ¥X¨Óªº­È³£¤j©ó5
¨ÌHsieh¤j¤jªºµ{¦¡½X­×§ï¦¨±z»Ý­nªº~

Private Sub CommandButton1_Click()

V1 = Range("B1")          '        (¨Ï¥ÎªÌ¿é¤J­È)
T1 = Range("B2")          '        (¨Ï¥ÎªÌ¿é¤J­È)
TW = Range("B3")          '        (¨Ï¥ÎªÌ¿é¤J­È)
W = Range("B4")           '        (¨Ï¥ÎªÌ¿é¤J­È)

'­pºâ­È (y):                XXXXX (¸g¹L¤U¦C­pºâ«á§â¼Æ­ÈÅã¥Ü¦¹Äæ¦ì)
                        
For T = T1 - 2 To T1 Step 0.01
        X1 = 0.02273 - (0.2275 * 10 ^ -2) * T1 + 1352 * 10 ^ -4 * T1 ^ 2 - 2.607 * 10 ^ -6 * T1 ^ 3 + 2.642 * 10 ^ -8 * T1 ^ 4
        IS1 = 0.24 * T1 + X1 * (597.3 + 0.44 * T1)
        X = 0.02273 - (0.2275 * 10 ^ -2) * T + 1352 * 10 ^ -4 * T ^ 2 - 2.607 * 10 ^ -6 * T ^ 3 + 2.642 * 10 ^ -8 * T ^ 4
        I = 0.24 * T + X * (597.3 + 0.44 * T)
        VS1 = 0.632 + 1.55 * 10 ^ -2 * T1 - 3.385 * 10 ^ -4 * T1 ^ 2 + 3.85 * 10 ^ -6 * T1 ^ 3
        Y = V1 / VS1 * (IS1 - I) - W * (T - TW)
        If VBA.Abs(Y) < 5 Then   '<--±N¨C¦¸¹Bºâªºy­È¶i¦æ§PÂ_,­Y²Å¦X«á±N­È±a¥X,¨ÃÂ÷¶}µ{¦¡
            Range("B5")  = Y
            Exit Sub
        End If

Next T
End Sub

cs.JPG
2011-6-8 13:56
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

·PÁ¡iHubg0620¡j¥SÀ°¦£¡A¦]¬°§ÚÅv­­¤£°÷µLªk¤U¸ü¬O§_¥i¥HMAILµ¹§Ú¡C
¶l¥ó¦a§}¡G[email protected]
·PÁÂ

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD