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

½Ð±ÐÀx¦s®æ¤º®e¤ñ¸û»P¹Bºâ°ÝÃD(¤w¸Ñ¨M)

½Ð±ÐÀx¦s®æ¤º®e¤ñ¸û»P¹Bºâ°ÝÃD(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-8-23 17:54 ½s¿è

§Ú¦³¤­­ÓÀx¦s®æ¤À§O¬OA1,B1,C1,D1,E1,F1,G1¡C¦pªGA1¤p©ó©Îµ¥©óB1«h±NC1ªº¤º®e»PD1ªº¤º®e¬Û¥[©ñ¤JD1¡A§_«h«K±NC1ªº¤º®e»PE1ªº¤º®e¬Û¥[©ñ¤JE1¡C
§Ú¼gªºµ{¦¡½X¦p¤U¡A¥i¬O¨S¦³§@¥Î¡A½Ð¤j¤j­ÌÀ°§Ú¬Ý¬Ý­þ¸Ì¿ù¤F¡IÁÂÁ¡I
     
        X = Sheets(1).Cells(1, 1)   'A1¤º®e
        Y = Sheets(1).Cells(1, 2)   'B1¤º®e
        Z = Sheets(1).Cells(1, 3)   'C1¤º®e
        

        If X <= Y Then Sheets(1).Cells(1, 4) = Z Else Sheets(1).Cells(1, 5) = Z    '¦pªGA1<=B1«hD1=C1 §_«h E1=C1
        
        Sheets(1).Cells(1, 6) = bid_t1    'bid_t1=D1
        Sheets(1).Cells(1, 7) = ask_t1    'ask_t1=E1
        
       If X <= Y Then bid_t1 = bid_t1 + Z Else ask_t1 = ask_t1 + Z   '¦pªGA1<=B1«hC1 +D1©ñ¤JD1§_«h C1+E1©ñ¤JE1
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

©êºp¡I³¯­z¦³©Ò¿ù»~¡A­«·s³¯­z¡G
§Ú¦³¤C­ÓÀx¦s®æ¤À§O¬OA1,B1,C1,D1,E1,F1,G1¡C¦pªGA1¤p©ó©Îµ¥©óB1«h±NC1ªº¤º®e©ñ¤JD1¡A¦P®É±NC1ªº¤º®e»PD1ªº¤º®e¬Û¥[©ñ¤JF1¡A§_«h«K±NC1ªº¤º®e»PE1ªº¤º®e¬Û¥[©ñ©ñ¤JG1¡C
§Ú¼gªºµ{¦¡½X¦p¤U¡A¥i¬O¨S¦³§@¥Î¡A½Ð¤j¤j­ÌÀ°§Ú¬Ý¬Ý­þ¸Ì¿ù¤F¡IÁÂÁ¡I
     
        X = Sheets(1).Cells(1, 1)   'A1¤º®e
        Y = Sheets(1).Cells(1, 2)   'B1¤º®e
        Z = Sheets(1).Cells(1, 3)   'C1¤º®e
        

        If X <= Y Then Sheets(1).Cells(1, 4) = Z Else Sheets(1).Cells(1, 5) = Z    '¦pªGA1<=B1«hD1=C1 §_«h E1=C1
        
        Sheets(1).Cells(1, 6) = bid_t1    'bid_t1=F1
        Sheets(1).Cells(1, 7) = ask_t1    'ask_t1=G1
        
       If X <= Y Then bid_t1 = bid_t1 + Z Else ask_t1 = ask_t1 + Z   '¦pªGA1<=B1«hC1 +D1©ñ¤JF1§_«h C1+E1©ñ¤JG1
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

if [A1]<=[B1] then
[D1]=[C1].value:[F1]=[C1]+[D1]
else
[G1]=[C1]+[E1]
end if
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú§âµ{¦¡¿é¤J¡A¦P®É¿é¤JA1,B1,C1¤T­ÓÀx¦s®æ¼Æ­È¡A°õ¦æ«á¨S¦³§i¶D§Ú¥ô¦ó¿ù»~..¦³°õ¦æ If ...Then...Elseªº§PÂ_¦¡..¦ý¬OD1,E1,F1,G1³£¨S¦³¥ô¦ó°Ê§@¡A.·Q½Ð±Ð­n¦p¦ó­×§ï?ÁÂÁ¡I

Private Sub Worksheet_Calculate()
On Error Resume Next
        
        C1 = Sheets(1).Cells(1, 1) 'A1
        B1 = Sheets(1).Cells(1, 2) 'B1
        S1 = Sheets(1).Cells(1, 3) 'C1
        
        bid_s1 = Sheets(1).Cells(1, 4) 'D1
        bid_t1 = Sheets(1).Cells(1, 5) 'F1
        
        ask_s1 = Sheets(1).Cells(1, 6)  'E1
        ask_t1 = Sheets(1).Cells(1, 7)  'G!
        
              
        
        If [C1] <= [B1] Then [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1] Else [ask_s1] = [S1].Value: [ask_t1] = [ask_t1] + [S1]
        
        
        
        
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Úµo²{¦Û¤v¤Ö¥´¤Fend if¡A¥[¤J«á¡Aµ{¦¡¦p¤U¡G

Private Sub Worksheet_Calculate()
On Error Resume Next
        
        C1 = Sheets(1).Cells(1, 1) 'A1
        B1 = Sheets(1).Cells(1, 2) 'B1
        S1 = Sheets(1).Cells(1, 3) 'C1
        
        bid_s1 = Sheets(1).Cells(1, 4) 'D1
        bid_t1 = Sheets(1).Cells(1, 5) 'F1
        
        ask_s1 = Sheets(1).Cells(1, 6)  'E1
        ask_t1 = Sheets(1).Cells(1, 7)  'G!
        
               
        
        If [C1] <= [B1] Then
                        [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1]
                        Else
                        [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1]
        
        
        End If
        
        
        
End Sub

¦ý¬Oµ²ªG¤´¬O¤@¼Ë...D1,E1,F1,G1³£¨S¦³¼Æ¦r¥X²{....
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

1.Worksheet_Calculate¬O¥Ñ¤½¦¡­«ºâIJµo¡A¿é¤J¼Æ­È¬OIJµoChange¨Æ¥ó
2.ÅܼƻPÀx¦s®æ¼Ð¥ÜÆ[©À²V²c
[bid_t1]§A¨S¦³³o¼Ëªº¦WºÙ
bid_t1¬OÅܼƤ£¯à¥Î¤¤¨í©·¥]¸Ë
­YÅܼƭn«ü©w¬°Àx¦s®æª«¥ó¥²¶·¨Ï¥ÎSet³¯­z¦¡
¨Ì·Ó§Aªº±Ô­z¡AA1¸òB1À³¸Ó¬O¥Î¤½¦¡¨ú±o¤~¯à¨Ï¥ÎCalculate¨Æ¥ó
µ{¦¡½X:
  1. Private Sub Worksheet_Calculate()
  2. If [A1] <= [B1] Then
  3. [D1] = [C1].Value: [F1] = [C1] + [D1]
  4. Else
  5. [G1] = [C1] + [E1]
  6. End If
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤j¶O¤ß¸Ñµª¡I³o­Ó¸Ñµª¹ï§Ú¦³¨ÇÃø¥H²z¸Ñ¡C§Ú¥ý¬ã¨sWorksheet_Calculate©MChange¨Æ¥ó¡Aµ¥¦³©Ò¤F¸Ñ¦A¨Ó½Ð±Ð...ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD