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

ªí³æ»s§@

ªí³æ»s§@

¦p¦ó»s§@¥ÑUSERFORM1ªí³æ¸õ¦C¿é¤J?
¥t¦bAÄæªÅ¥Õ³Bª½±µ¸õ¥Xªí³æ©O?¨Ò¦p¦bA4Äæ¦ì²{µL¸ê®Æ,ÂI¿ï¦¹¶µ§Y¥i¸õ¥Xªí³æ,µM«á©Ò¿é¤J¸ê®Æ¦b¦¹¦C..¥Ñ¦¹¦C±À

ªí³æ»s§@.rar (73.23 KB)

¦^´_ 1# sillykin


    ¹³³o¼Ë¶Ü¡H

ªí³æ»s§@.zip (84.88 KB)

TOP

¦^´_ 2# owen06


    ÁÂÁ¤j¤jªº¦^ÂÐ,·P®¦

TOP

¦^´_ 3# sillykin


    ·Q½Ð°Ý
.Row > 1 And .Column = 1 Then
       On Error GoTo 99

³o¤G¬qªº·N«ä¡A¤p§Ì¤£¤~¡A¯à§_¸Ñ»¡©O¡H¡H

TOP

¦^´_ 4# sillykin


    .Row > 1 And .Column = 1 Then  =====>  ¶ÈÅý²Ä¤@¦C¥H¤W¥H¤Î²Ä¤@Ä檺¥Ø¼Ð·|²£¥Í°Ê§@¡A¤]´N¬O³]©w¶ÈÅýaÄæ·|²£¥Í°Ê§@¡A¤£µM·|ÂI¨ä¥LÀx¦s®æªº®É­Ô¤]¸õ¥Xªí³æ¡C

    On Error GoTo 99  ===> ­Yµo¥Í¿ù»~®É¡Aª½±µ¸õ¦Ü99¡A¤£­n¥X²{¿ù»~°T®§¡C¦b®Ø¿ï¤j½d³ò¥Ø¼Ð®É¡A·|²£¥Í¿ù»~°T®§¡A¦]¦¹³]©w¦¹°Ê§@¡A¥iÁקK¸õ¥X¿ù»~°T®§¡C
    §A¥i¥H§âon error goto 99 ®³±¼¡A¦A¥h®Ø¿ï¤j½d³ò¡A´N·|¬Ý¨£µo¥Í¤°»ò¨Æ¤F¡C

TOP

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
¡@¡@If .Count > 1 Then Exit Sub¡@'¿ï¨ú°Ï«D³æ¤@®æ¡A¸õ¥X
¡@¡@If .Row > 1 And .Column = 1 And .Value = "" Then UserForm1.Show
End With
End Sub

TOP

¦^´_ 6# ­ã´£³¡ªL


    ÁÂÁ¦Ѯv«ü¾É,
  ¦ý¿é¤J§¹,¥i§_¸õ¤U¤@Àx®æ©O???

TOP

¦^´_ 7# sillykin


    ¦buserform1¿é¤J
  1. Private Sub CommandButton1_Click()
  2. Selection.Value = TextBox1.Text
  3. Selection.Offset(0, 1).Value = TextBox2.Text
  4. Selection.Offset(0, 2).Value = TextBox3.Text
  5. Selection.Offset(0, 4).Value = TextBox4.Text
  6. ActiveCell.Offset(1, 0).Select
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# sillykin


ªþ¥ó¤U¸ü¡G
ªí³æ»s§@v01.rar (18.66 KB)

¦b¢ÏÄæ±q²Ä¢±®æ¥H¤U¡eÂù«ö·Æ¹«¥ªÁä¡f¸õ¥X¿é¤Jªí³æ¡A
¥i¿ï¾Ü¸ê®Æ¶i¦æ§ó§ï¡A©ÎªÅ¥Õ®æ¿é¤J·s¸ê®Æ¡A
ªí³æ¦³¡e¤W¤@µ§¡D¤U¤@µ§¡f«ö¶s¡A¤£¥²Ãö³¬ªí³æ°µ¤W¤U²¾°Ê¡A
¦s¤J«á¦Û°Ê¸õ¤U¤@µ§¡I
¡@

TOP

¦^´_ 9# ­ã´£³¡ªL


     ÁÂÁ¦Ѯv«ü¾É,·P®¦

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD