標題: [發問] 從Textbox到儲存格的格式 [打印本頁]

---

作者: lifedidi    時間: 2013-4-2 16:58     標題: 從Textbox到儲存格的格式

請問大大：

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

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

請問如何更改呢？

謝謝。

---

作者: Hsieh    時間: 2013-4-2 17:34

回復 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    時間: 2013-4-2 18:04

本帖最後由 lifedidi 於 2013-4-2 18:07 編輯

謝謝大大的指導！

另外，

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    時間: 2013-4-2 23:50

回復 3# lifedidi


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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)