通過代碼在包裝單元格中插入換行符

是否可以通過VBA代碼在換行單元格中插入換行符？（類似於做Alt鍵 - 手動輸入數據時，輸入）通過代碼在包裝單元格中插入換行符

我已經通過VBA代碼單元格的包裹文本屬性設置爲True，而我也通過VBA代碼將數據插入到它。

2012-03-28 1355

內部也許是時候接受的答案很可能是否定的。 – mattboy 2012-03-28 06:43:32

@mattboy：我不明白... – 2012-03-28 07:32:52

如果我的回答沒有達到你的問題（通過VBA代碼在包裝單元格中插入換行符）？那麼我對你實際需要的東西感到困惑。你可以擴展嗎？ – brettdj 2012-03-28 22:40:33

是的。在VBA相當於Alt鍵的輸入是使用斷行字符：

ActiveCell.Value = "I am a " & Chr(10) & "test"

注意，這個自動設置WrapText爲True。

證明：

Sub test() 
Dim c As Range 
Set c = ActiveCell 
c.WrapText = False 
MsgBox "Activcell WrapText is " & c.WrapText 
c.Value = "I am a " & Chr(10) & "test" 
MsgBox "Activcell WrapText is " & c.WrapText 
End Sub

來源

2012-03-28 07:02:25 brettdj

+1。如果我會知道這個線程，那麼我會在我的另一個線程中包含這篇文章......大聲笑。我不得不從頭開始重寫所有內容。 – 2012-03-28 09:09:32

但問題是我無法編輯我的輸入字符串。 ;（ – 1355 2012-03-28 11:22:40

當一行結束時，它必須自動結束換行符:) – 1355 2012-03-28 11:23:27

你也可以使用vbCrLf相當於Chr(13) & Chr(10)。

來源

2012-03-28 09:07:47

這可以在Excel中放入兩個CR/LF組合（您不能看到它們，直到你嘗試將單元中的兩條線居中，然後你注意到第一條線偏離中心）。最好使用ControlChars.Lf。 – Andy 2013-07-19 18:39:44

-1

是有添加一個換行符雙向：

使用從VBA vbCrLf要添加一個換行符字符串中的現有功能，例如：

昏暗的文本字符串

文本= 「你好」 & vbCrLf & 「的世界！」

工作表（1）.Cells（1，1）=文本
使用Chr()函數並傳遞ASCII字符13和10，以便添加一個換行，如圖所示波紋管：

Dim text As String

text =「Hello」& Chr（13）& Chr（10）&「World！」

工作表（1）.Cells（1，1）=文本

在兩種情況下，你將不得不在細胞（1,1）或A1相同的輸出。

來源

2016-05-24 13:25:51 Origamer7

只是做按Ctrl +輸入的文本框中

來源

2017-11-09 07:10:47

通過代碼在包裝單元格中插入換行符

回答

相關問題