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

[µo°Ý] ¨D§U ®w¦sªí ¾ã¦X»P¤ÀÃþ

[µo°Ý] ¨D§U ®w¦sªí ¾ã¦X»P¤ÀÃþ

¥»©«³Ì«á¥Ñ owen9399 ©ó 2014-2-18 23:14 ½s¿è

DEAR ¦U¦ì°ª¤â:
±ø¥ó¦¡:
¥x¥_¥X³f1 + ¥x¥_¥X³f2 + ¥x¥_¥X³f3 = ¾å¶§Á`¶i³f
¾å¶§¶i³f=  ¾å¶§Á`¶i³f - ¤T¥Á¶i³f - ³À´ä¶i³f

¾å¶§Á`®tÃB = ¾å¶§Á`¶i³f - ¾å¶§Á`¥æ³æ
¾å¶§®tÃB = ¾å¶§¶i³f - ¾å¶§¥æ³æ
¤T¥Á®tÃB = ¤T¥Á¶i³f - ¤T¥Á¥æ³æ
³À´ä®tÃB = ³À´ä¶i³f - ³À´ä¥æ³æ

®tÃB ³£¬O ¤½¦¡¦Û°Êºâ¥X¨Ó (·í¼Æ¦r¬° ¥¿­È ,ÃC¦â¬°ÂŦ⠠, ­Y·í¼Æ¦r¬° ­t­È ,ÃC¦â¬°¬õ¦â) ÃC¦â¦Û°ÊÅÜ¥X

¨Ã ¦Û°Ê²Î­p «ö §Ç¸¹¤ÀÃþ
µM«á
¦A¤ÀÃþ ¥X¦p  ªí¤T ªº ¦U§O®tÃB  ¨Ã¨D¥X °h¦^ ©Î À³¸É

¼Æ¦r ¥u¿é¤J ¥x¥_¥X³f 1 2 3 ,¤T¥Á¶i³f,¤T¥Á¥æ³f,³À´ä¶i³f,»P ¾å¶§Á`¶i³f, ¾å¶§Á`¥æ³æ
¦Ó  ¾å¶§Á`®tÃB ,¾å¶§¶i³f ,¾å¶§¥æ³æ ,   ¾å¶§®tÃB,¤T¥Á®tÃB ,³À´ä®tÃB ³£¬O ¦Û°Ê¨D¥X ©ÎªÌ ¤Ïºâ¥X¨Óªº ¼Æ¾Ú

ÁÂÁ¤j¤j«ü¾É

¦pªG¦³§ó¦nªº¿ìªk ¦p ¥Î VBA¿é¤J + ¤U©Ô¦¡ ¿ï¾Ü + «öªí³æ ¨q¥X ¦U³æ¦ìªº ²Î­p




2014®w¦sªí0218.rar (10.07 KB)
owen

¦^´_ 13# GBKEE


    Dear ¤j¤j :
   
   ¦pªG ·Q¥Î ¤U©Ô¦¡ ¿ï¾Ü  §Ç¸¹ ,µM«á  ¦Û°ÊÅã¥Ü ±a¥X ¤½¥q¦WºÙ »P ¬ö©À«~
    ¿é¤J§Ç¸¹    103001  
    Åܦ¨    103001    ¯EÄË     ¥þ®a50¤¸¨é   
     ¦A¿é¤J  ¶i³fªº ¼Æ¶q
    ¥Îªí³æ ¤è¦¡ ªº¤U©Ô¦¡  ¿é¤J

     ¨Ã¥B ²Î¦X Á`¼Æ¶q  «ö·Ó §Ç¸¹ ±Æ¦C
   
     ÁÂÁÂ
owen

TOP

¦^´_ 12# owen9399
  1. '¶i³f¿é¤J
  2. Option Explicit
  3. Dim Text_Ar(1 To 5)
  4. Private Sub UserForm_Initialize()
  5.     Dim I As Integer
  6.     For I = 1 To 5
  7.      Set Text_Ar(I) = Me.Controls("TEXTBOX" & I)
  8.     Next
  9. End Sub
  10. Private Sub CommandButton1_Click()  '¿é¤J
  11.     With ActiveSheet
  12.         With .Range("A" & .Rows.Count).End(xlUp).Offset(1)
  13.             .Resize(1, 5) = Text_Ar
  14.         End With
  15.     End With
  16. End Sub
  17. Private Sub CommandButton2_Click()  '²M°£
  18.     Dim I As Integer
  19.      For I = 1 To 5
  20.       Text_Ar(I).Text = ""
  21.     Next
  22. End Sub
  23. Private Sub CommandButton3_Click()
  24.     Unload Me    '°h¥X
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


    Dear ¤j¤j:
     §ó§ïª©

    ¦p¦ó
    ¥Îªí³æ  
    ¿é¤J  §Ç¸¹   ´N ¦Û°Ê±a¥X ¤½¥q¦WºÙ »P ¬ö©À«~
   
   ¨Ã±N  ¶i³f »P ¥æ±b ²Î­p°_¨Ó
   ¦s¦b  ²Î­pªí¤¤

  ÁÂÁÂ

103¶i¥X³fEXCEL0226.rar (20.22 KB)

owen

TOP

¦^´_ 10# owen9399
    dear ¤j¤j:

      §Ç¸¹         ¤½¥q¦WºÙ       ¬ö©À«~   
   103001        ¯EÄË           ¥þ®a50¤¸

  ¦p¦ó  ³s°Ê

   ¿é¤J  103001   ³s°Ê¦¨     
    103001        ¯EÄË           ¥þ®a50¤¸
   ¦ê³q¦A¤@°_

  ÁÂÁÂ
owen

TOP

¦^´_ 9# GBKEE

dear ¤j¤j :
¤À¶}ªí³æ
  ¦pªþ¥[

2014®w¦sªí0221§ó·sª©.rar (15.59 KB)

owen

TOP

¦^´_ 8# owen9399
ÁÙ¬O¤£¤F¸Ñ§Aªº¶D¨D.
¨D ¦U[§Ç¸¹,¤½¥q¦WºÙ,¬ö©À«~] ªº®w¦s??
¨D ¦U[§Ç¸¹,¤½¥q¦WºÙ,¬ö©À«~] ¾ÚÂI®tÃB ??
¨D ¦U¤u§@ªíªº­pºâ ??
¥ý«á¶¶§Ç(¤£ª¾¦p¦ó¤U¤â) ???
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦pªG ¥Î

¶i³fªí
¥æ³æªí
®w¦sªí
¤À¶}Åã¥Ü·|¤ñ¸û²³æ¶Ü
owen

TOP

¦^´_ 4# GBKEE


   Dear ¤j¤j
    ªí³æ¤è¦¡

2014®w¦sªí0221ªí³æ¤è¦¡.rar (10.83 KB)

owen

TOP

¦^´_ 4# GBKEE


    DEAR ¤j¤j
   
   ¦pªþ¥ó  ªþ¤W

1030221¶i¾P¦s¸Ñ»¡.rar (1.89 KB)

owen

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD