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

excel ³ø»ùªí³æ¤W¿é¤J¤£¦PªºItem¦p¦ó±a¤J¤£¦Pªº¹Ï¤ù

¦^´_ 10# GBKEE


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

TOP

¦^´_ 10# GBKEE

³ø»ù³æ.rar (28.09 KB)

TOP

¦^´_ 12# h99949
cell §ï¦¨ Rng
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE


    ok¤F,ÁÂÁª©¥D

TOP

¦^´_ 13# GBKEE


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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


    ¥i¥H¤F,ÁÂÁÂ

TOP

¦^´_ 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¦ó­×§ï

³ø»ù³æ.rar (28.89 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-26 14:43 ½s¿è

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


Ex.rar (22.53 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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¦ó­×§ï

­ì¥».JPG (210.98 KB)

­ì¥».JPG

§R°£.JPG (193.69 KB)

§R°£.JPG

¿ù»~.JPG (150.69 KB)

¿ù»~.JPG

³ø»ùªí³æ.rar (25.25 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD