[發問] 從Textbox到儲存格的格式

lifedidi

請問大大：

我在Userform裡的TextBox輸入資料後，
再將資料貼到儲存格裡，
我希望它能夠置中儲存格及字體大小改為"8"，

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

請問如何更改呢？

謝謝。

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

lifedidi

謝謝大大的指導！

另外，

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 '加鎖

我在sheet1裡有保護工作頁，主要是不希望別人編輯，只能用userform來增加(如上程式碼，先解鎖執行完再保護)

請問這樣的程式碼OK嗎？執行起來螢幕都會一閃一閃的，感覺很不順。

感謝~

kimbal

回復 3# lifedidi


    在所有代碼前加上
application.ScreenUpdating=False
最後加上
application.ScreenUpdating=True

這樣不會閃之餘運行也會快多點