返回列表下一主題上一主題發帖

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

lifedidi

中學生 Rank: 2

帖子: 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

請問如何更改呢？

謝謝。

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 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

學海無涯_不恥下問

TOP

lifedidi

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 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

kimbal