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

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

¦^´_ 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¦ó
    ¥Îªí³æ  
    ¿é¤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

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD