返回列表 上一主題 發帖

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

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

請問如何更改呢？

謝謝。
收藏 分享

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
2#
發表於 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嗎？執行起來螢幕都會一閃一閃的，感覺很不順。

感謝~

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題