GBKEE

¦^´_ 1# yoya

¦ý¬O·í§Ú§â¥¦§ï¬°ÅܼƤ§«á¡A¨t²Î´NŪ¤£¨ì§Úªº¤U³æ¦r¦ê¡C

¥i¥H°Ú,

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A As String, B As Boolean
   
4.     'µ{¦¡¤¤¨Ï¥Î¨ç¼Æ ¦³°Ñ¼Æµ¹°Ñ¼Æ,¨S°Ñ¼Æ¤£¥Îµ¹
   
5.      Sheet1.Cells(1, 2) = "S"
   
6.     A = GetOrderText("²Ä¤@­Ó°Ñ¼ÆOrderStockªº¦r¦ê", "²Ä¤G­Ó°Ñ¼ÆOrderPriceªº¦r¦ê")
   
7.     B = Test_Function
   
8.     MsgBox A
   
9.     MsgBox B
   
10.     Sheet1.Cells(1, 2) = "s"
    
11.     MsgBox GetOrderText("²Ä¤@­Ó°Ñ¼ÆOrderStockªº¦r¦ê", "²Ä¤G­Ó°Ñ¼ÆOrderPriceªº¦r¦ê")
    
12.     MsgBox Test_Function
    
13. End Sub
    
14. Function Test_Function() As Boolean
    
15.     If Sheet1.Cells(1, 2) = "S" Then Test_Function = True
    
16. End Function
    
17. 
    
18. Public Function GetOrderText(OrderStock As String, OrderPrice As String)
    
19.     GetOrderText = "GetOrderText ???"
    
20.     If Sheet1.Cells(1, 2) = "S" Then
    
21.         GetOrderText = "Account=" & Sheet1.Cells(3, 2) & ",ProductID=" & OrderStock & ",TradeType=" & Sheet1.Cells(6, 2) & ", TradeKind=" & Sheet1.Cells(7, 2) & ", OrderType=" & Sheet1.Cells(8, 2) & ", BuySell=" & Sheet1.Cells(9, 2) & ", Qty=" & Sheet1.Cells(10, 2) & ", Price=" & OrderPrice & ", OrderNo=" & Sheet1.Cells(12, 2) & ", TradeDate=" & Sheet1.Cells(13, 2) & ", BasketNo=" & Sheet1.Cells(14, 2)
    
22.     End If
    
23. End Function

½Æ»s¥N½X