[µo°Ý] ½Ð°Ý¡AFunction¤¤¡A¥Ñ©T©wÀx¦s®æ§ï¬°ÅܼÆÀx¦s®æ°ÝÃD?

yoya

1. Public Function GetOrderText()
   
2.   If Sheet1.Cells(1, 2) = "S" Then
   
3.      GetOrderText = "Account=" & Sheet1.Cells(3, 2) & ",ProductID=" & Sheet1.Cells(5, 2) & ",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=" & Sheet1.Cells(11, 2) & ", OrderNo=" & Sheet1.Cells(12, 2) & ", TradeDate=" & Sheet1.Cells(13, 2) & ", BasketNo=" & Sheet1.Cells(14, 2)
   
4. End If
   
5. End Function

½Æ»s¥N½X

¥H¤W¬O­ìµ{¦¡½s½X¡A¦Ó§Ú·Q§â¨ä¤¤´X¶µ§ï¬°ÅܼơA¨Ì³yÀx¦s®æ¤£¦P¦Ó¶]¤£¦Pªº¥N¸¹

¥H¤U¬O§Ú§ï¼gªº³¡¤À

1. Public Function GetOrderText(OrderStock As String,OrderPrice As String)
   
2.   If Sheet1.Cells(1, 2) = "S" Then
   
3.      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)
   
4. End If
   
5. End Function

½Æ»s¥N½X

¦pªG¥Î­ì½d¥»¡A¹q¸£¿é¥X¨ìµ{¦¡«á¨t²Î¥i¥H§P§O³o­Ó¤U³æ¦r¦ê¡A
¦ý¬O·í§Ú§â¥¦§ï¬°ÅܼƤ§«á¡A¨t²Î´NŪ¤£¨ì§Úªº¤U³æ¦r¦ê¡C

½Ð°Ý¬O§Ú¦b§â¥L§ï¬°Åܼƪº¹Lµ{¤¤¡A¦³¿òº|¤°»ò¶Ü??¥ç©Î¬O³]©w¿ù»~??
¦]¬°§Ú±µÄ²VBA¤~¤@­Ó§«ô¡A³£¬O±q¿ù»~¤¤¾Ç²ß¡A§Æ±æ¦U¦ì¥ý¶i¯à¤£§[«ü¾É!!!
ÁÂÁ¦U¦ì¥ý¶i¤F!!!

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

yoya

¶â¶â~~~³o¼Ë¥i¯à¬O§Ú¦b³]­p¾ã­Óµ{¦¡ªº®É­Ô~~ÅÞ¿è¤W¥X¤F°ÝÃD~~
«D±`·PÁÂÁª©¥Dªº¦^ÂЭò!!!!!