2014-01-15 46 views
3

在我的用戶窗體中,我想爲我的TextBox設置一個默認值,該值在集中時突出顯示。VBA Userform文本框的默認值並突出顯示

Private Sub UserForm_Initialize() 

NameTextBox.Value = "Your Name Here" 

NameTextBox.SetFocus 

End Sub 

當這段代碼運行時,光標應該設置在默認文本的末尾,即在「...... Here」之後。我希望「您的姓名在這裏」突出顯示,以便在生成表單時用戶可以開始替換該默認/佔位符文本。

你能幫我寫代碼來設置可編輯的默認值嗎?

回答

7

這將選擇在文本框中的所有文本:

Private Sub UserForm_Initialize() 
With Me.NameTextBox 
    .Value = "Your Name Here" 
    .SetFocus 
    .SelStart = 0 
    .SelLength = Len(.Text) 
End With 
End Sub 
-3

當你的表單加載時,這行代碼如何?

NameTextBox.SelectAll() 
+0

當我將這段代碼作爲最後一行添加時,我得到一個「編譯錯誤:期望:=' – blahblahblah

+0

什麼是錯誤? – nabinchha

+0

bfs1990表示錯誤是什麼。更具體地說,Userform文本框沒有「SelectAll」方法。我低估了這個答案。 –

0

設置的EnterFieldBehavior屬性frmEnterFieldBehaviorSelectAll,這樣當焦點轉到那場,整個現場被選中。