[µo°Ý] ±qTextbox¨ìÀx¦s®æªº®æ¦¡

lifedidi

½Ð°Ý¤j¤j¡G

§Ú¦bUserform¸ÌªºTextBox¿é¤J¸ê®Æ«á¡A
¦A±N¸ê®Æ¶K¨ìÀx¦s®æ¸Ì¡A
§Ú§Æ±æ¥¦¯à°÷¸m¤¤Àx¦s®æ¤Î¦rÅé¤j¤p§ï¬°"8"¡A

With Sheet1
Set a = .[B65536].End(xlUp).Offset(1, 0)
a.Resize(, 2) = Array(TextBox1, TextBox2)
End with

½Ð°Ý¦p¦ó§ó§ï©O¡H

ÁÂÁ¡C

kimbal

¦^´_ 3# lifedidi


    ¦b©Ò¦³¥N½X«e¥[¤W
application.ScreenUpdating=False
³Ì«á¥[¤W
application.ScreenUpdating=True

³o¼Ë¤£·|°{¤§¾l¹B¦æ¤]·|§Ö¦hÂI

lifedidi

ÁÂÁ¤j¤jªº«ü¾É¡I

¥t¥~¡A

With Sheet1
ActiveSheet.Unprotect "123" '¸ÑÂê
Set a = .[B65536].End(xlUp).Offset(1, 0)
   With a.Resize(, 2)
     .Value = Array(TextBox1, TextBox2)
     .HorizontalAlignment = xlCenter
     .Font.Size = 8
   End With
    [A7] = 1
    [A7].DataSeries Rowcol:=xlColumns, Step:=1, Stop:=[B65536].End(3).Row - 1
ActiveSheet.Protect Password:=123 '¥[Âê

§Ú¦bsheet1¸Ì¦³«OÅ@¤u§@­¶¡A¥D­n¬O¤£§Æ±æ§O¤H½s¿è¡A¥u¯à¥Îuserform¨Ó¼W¥[(¦p¤Wµ{¦¡½X¡A¥ý¸ÑÂê°õ¦æ§¹¦A«OÅ@)

½Ð°Ý³o¼Ëªºµ{¦¡½XOK¶Ü¡H°õ¦æ°_¨Ó¿Ã¹õ³£·|¤@°{¤@°{ªº¡A·Pı«Ü¤£¶¶¡C

·PÁÂ~

Hsieh

¦^´_ 1# lifedidi

With Sheet1
Set A = .[B65536].End(xlUp).Offset(1, 0)
   With A.Resize(, 2)
     .Value = Array(TextBox1, TextBox2)
     .HorizontalAlignment = xlCenter
     .Font.Size = 8
   End With
End With