h99949

¦^´_ 10# GBKEE


    Dim Rng As Range, Text_Ar(), AR(), Rng_Text As String¦³³o­Ó

h99949

¦^´_ 10# GBKEE

GBKEE

¦^´_ 12# h99949
cell §ï¦¨ Rng

h99949

¦^´_ 13# GBKEE


    ok¤F,ÁÂÁª©¥D

h99949

¦^´_ 13# GBKEE


ª©¥D,¦b½Ð°Ý¤@¤U,¦bÅã¥Ü®æ¥X²{ªº¼Æ¦rªº®æ¦¡­nÅã¥Ü¦¨¦³¤d¤À¦ì(,)ÂIªº®æ¬O­n¦b­þ¸Ì°µ­×§ï
¦C¦p20000Åܦ¨20,000

GBKEE

¦^´_ 15# h99949

1. Private Sub CommandButton1_Click()
   
2.     Dim s As String, i As Integer
   
3.     If Rng Is Nothing Then
   
4.         s = "³f¸¹¤¤¨S¦³ " & TextBox1
   
5.     ElseIf Rng_Text = Join(Text_Ar, "") Then
   
6.         s = "³f¸¹" & TextBox1 & "¸ê®Æ¨S¦³­×§ï !!"
   
7.     End If
   
8.     If s = "" Then
   
9.         If MsgBox(TextBox1 & "­×§ï¸ê®Æ !!", 32 + vbYesNo) = vbYes Then
   
10.             For i = 1 To UBound(AR)
    
11.                 With Rng.Offset(, AR(i))
    
12.                     .Value = Text_Ar(i) '¾É¤JTextBox?¼Æ¦r(¤å¦r«¬ºA)¨ìRng
    
13.                     .Value = .Value
    
14.                     .NumberFormatLocal = "#,##0.00_ "
    
15.                 End With
    
16.             Next
    
17.         End If
    
18.     End If
    
19. End Sub

½Æ»s¥N½X

h99949

¦^´_ 16# GBKEE


    ¥i¥H¤F,ÁÂÁÂ

h99949

¦^´_ 16# GBKEE


ª©¥D,½Ð°Ý§Ú¦bªí³æ¤W­×§ï«áª½±µÀx¦s¨ì¬Û¹ïÀ³ªºÀx¦s®æ®É,¦pªG­n¦b¤£¼vÅT¨ìFOB-¬üª÷,FOB-¼Ú¤¸,Á`»ù,20§`Âd,40§`Âd¤º­ì¥»ªººâ­p¤½¦¡®É,¨Ã¯à§Y®ÉÅã¥Ü­×§ï«á­pºâªºµ²ªG®É
µ{¦¡¸Ó¦p¦ó­×§ï

GBKEE

¦^´_ 18# h99949
§¹¾ãª©ªº¸ê®Æ [·s¼W],[­×¥¿],[§R°£] «öÁä
§ä¤£¸ô®|®É­×§ï  Const ¹w³]·Ó¤ù = "D:\«È¤á³ø»ù³æ\catalogue\GEIST.gif"


Ex.rar (22.53 KB)

¤U¸ü¦¸¼Æ: 9

2014-2-26 14:43

h99949

¦^´_ 19# GBKEE


ª©¥D¤£¦n·N«ä,Á`»ùÀ³¸Ó=(J:AA)ªº¥[Á`
                               °l¥[Äæ¦ì¤u®É=30000*10/20/1000*D/C
µ{¦¡½XÀ³¸Ó¦b­þùحקï
¸Õ¥Î«á¦pªG³f¸¹±q11­Ó§R¨ì²Ä2­Ó®É·|¥X²{µLªk³]©wListÄݩʸӦp¦ó­×§ï