VBA中設(shè)置文本框可直接使用回車鍵換行

稱設(shè)置文本框 的屬性 Scrollbars為 vertical為垂直。然后允許多行，并設(shè)置Enter回車鍵的行為（Access設(shè)置為文本中新行即可）


1，設(shè)置文本框Multiline = true


2，設(shè)置文本框Wordwarp = true


2，設(shè)置文本框Enterkeybehavior= true

讀取每行的值

只有在MuiltLine屬性為True的前提下TextBox才有多行，由于在這個(gè)控件中輸入文本時(shí)換行是Ctrl+Enter實(shí)現(xiàn)的，所以用Split(TestBox.Value,Chr(10))就可以分割文本并保存在數(shù)組中：


Private Sub TextBox1_LostFocus()

If Len(TextBox1.Value) > 0 Then

arr = Split(TextBox1.Value, Chr(10))

'激活下面的語(yǔ)句可以在A列顯示數(shù)組arr

'Range("a1").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)

End If

End Sub

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

友情鏈接更多精彩內(nèi)容