½Ð°Ý«ç¼Ë°µ¥X¨Ó

cdkee

¥H¥t¤@¤è­±·Q¡A¥ÎEXCEL «ç¼Ë¥i¥H­pºâ¥X¨C¹ï¶R½æÁÈ»k¼Æ¥Ø¡A©ñ¤JC¨º¦æ?( )¤ºªº¼Æ­È¬O§Ú¦Û¤v­pºâ¥X¨Ó¡CÁÂÁ¤j¤j!
¨C­Ó¶R½æ¼Æ¶q=1
¶R=¶R¤J, ½æ=ªfªÅ(§Y¥­¤F¶R¤J¡AµL³f®É¡AªfªÅ´N¬O¬Ý¶^)

A  B=¶R½æ»ù C
¶R 8
¶R 6
½æ 6       (-2)
½æ 3       (-3)
½æ 4
½æ 8
¶R 1       (3)
¶R 8       (0)
¶R 9
½æ 8       (-1)
¶R 1
¶R 5
½æ 9      (8)
¶R 8
½æ 4      (-1)
½æ 10     (2)
¶R 9
½æ 1      (-8)

cdkee

¦^´_ 2# Hsieh


    ÁÂÁª©¤j±Ð¾É!
1)¸òª©¤jªºµ{¦¡¡Aµ²ªG¦p¤U¡A¦ý­pºâªºµ²ªG¥u¦³8­Ó¡AÀ³¸Ó¦³9­Ó(¬A©·ªº¬O·Q­nªºµ²ªG¡A¬O¥Hfirst in first out¤è¦¡­pºâ)
2)¦p¦ó¤~°µ¨ì¦b¿é¤J¶R½æ®É¡A§Y®É­pºâµ²ªG¡C

¶R        8       
¶R        6       
½æ        6        0(-2)
½æ        3                 (-3)       
½æ        4       
½æ        8       
¶R        1        2(3)
¶R        8        -4(0)
¶R        9        -1
½æ        8                  (-1)       
¶R        1        7
¶R        5       
½æ        9        4(8)
¶R        8       
½æ        4        -4(-1)
½æ        10            (2)
¶R        9        1
½æ        1             (-8)

cdkee

¦^´_ 2# Hsieh


    ¦A½Ð±Ðª©¤j¡A¥H¤U¬O¤p½úªºµ{¦¡¡A«ç¼Ë¥[¤Jª©¤jªºµ{¦¡¦b¦Û¤vªºµ{¦¡¤¤¤~¹ï?ÁÂÁÂ!
Public i As Integer
Public m As Integer
Public n As Integer
Public B As Integer
Public S As Integer
Public check As Integer
Dim buyArray(99) As Single
Dim sellArray(99) As Single
Private Sub CommandButton1_Click()

B = 1
i = i + 1
        Sheets("sheet1").Cells(i, 1) = "¶R"
        Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
        
m = m + 1
buyArray(m) = Sheets("sheet1").Cells(i, 2)


End Sub
Private Sub CommandButton2_Click()

S = 1
i = i + 1
        Sheets("sheet1").Cells(i, 1) = "½æ"
        Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
        
n = n + 1
sellArray(n) = Sheets("sheet1").Cells(i, 2)


End Sub

cdkee

¦^´_ 5# Hsieh


    ²\¦p«B¤U ¡A¤p½ú·P¿EµL¨¥!¦A²Ó¨ýª©¤j¬ü·N!