Chèn ngắt dòng trong ô được bao bọc qua mã

Question

Có thể chèn ngắt dòng trong ô được bao bọc qua mã VBA không? (Tương tự như làm Alt - Nhập khi nhập dữ liệu bằng tay)

tôi đã thiết lập thuộc tính văn bản bọc của tế bào là True qua mã VBA, và tôi đang chèn dữ liệu vào nó cũng qua mã VBA.

Answer 1

Có. Các VBA tương đương với AltNhập là sử dụng một nhân vật linebreak:

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

Lưu ý rằng điều này tự động cài đặt WrapText True.

Proof:

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 

Answer 2

Bạn cũng có thể sử dụng vbCrLf tương ứng với Chr(13) & Chr(10).

Answer 3

Có có hai cách để thêm một cấp dữ liệu dòng:

1. Sử dụng chức năng hiện tại từ VBA vbCrLf trong chuỗi bạn muốn thêm một thức ăn đường, như vậy:

   Dim text Như Chuỗi

   văn bản = "Xin chào" & vbCrLf & "Thế giới!"

   Worksheets (1) .Cells (1, 1) = text

2. Sử dụng Chr() chức năng và thông qua các ký tự ASCII 13 và 10 để thêm một thức ăn đường, như thể hiện dưới đây:

   Văn bản mờ dưới dạng chuỗi

   văn bản = "Xin chào" & Chr (13) & Chr (10) & "Thế giới!"

   Worksheets (1) .Cells (1, 1) = text

Trong cả hai trường hợp, bạn sẽ có kết quả như nhau trong tế bào (1,1) hoặc A1.

Answer 4

Chỉ cần làm Ctrl +Nhập bên trong hộp văn bản