Thụt đầu dòng trong Excel (indentation)

[tedaynui]

Mình muốn trong Cell khi nhập text vào và khi xuống dòng (Alt+Enter). Đồng thời dòng dưới này thụt vào 1 khoảng (giống như trong Word nhấn Tab hoặc Indentation).
Ví dụ : Hình thức trong 1 Cell thế này

1. Khoảng 1 :

- Nội dung 1
- Nội dung 2
​

Hiện nay mình dùng phím Spacebar. Vậy có cách nào khác Spacebar không, tương tự như phím Tab vậy. Có thể dùng VBA cũng được. Mình có dùng thử hàm CHR() nhưng không tìm được kí tự Tab.

Xin cám ơn !

DTN

 

[BNTT]

Có cái này: CHAR(32), nhưng nó có chút xíu à.
Nếu Tedaynui muốn cho nó thụt nhiều nhiều tí thì phải dùng thêm REPT: =REPT(CHAR(32),5) chẳng hạn.

 

[ptm0412]

Trong VBA, tab có ký hiệu là vbTab, asc(vbTab) = 9 hay chr(9) = vbTab. Nhưng khi thử không có tác dụng trong cell.
Còn char(32) của BNTT là khoảng trắng (space), vậy gõ space lẹ hơn.

 

[PhanTuHuong]

Bác thử dùng định dạng kiểu Indent này xem sao?

 

[ptm0412]

Format Indent mình cũng có nghĩ đến, nhưng nó có tác dụng cho toàn cell, không thực hiện được cho riêng 1 dòng trong cell.

 

[ThuNghi]

Mình muốn trong Cell khi nhập text vào và khi xuống dòng (Alt+Enter). Đồng thời dòng dưới này thụt vào 1 khoảng (giống như trong Word nhấn Tab hoặc Indentation).
Ví dụ : Hình thức trong 1 Cell thế này

1. Khoảng 1 :

- Nội dung 1
- Nội dung 2
​

Hiện nay mình dùng phím Spacebar. Vậy có cách nào khác Spacebar không, tương tự như phím Tab vậy. Có thể dùng VBA cũng được. Mình có dùng thử hàm CHR() nhưng không tìm được kí tự Tab.

Xin cám ơn !

DTN

Sub ThayThe()
Dim NewText As String, OldText As String
OldText = Chr(10)
NewText = Chr(10) & WorksheetFunction.Rept(" ", 5)
Range("A1") = "AAAS" & Chr(10) & "DF" & Chr(10) & "GSD" & Chr(10) & "FGSAFG" & Chr(10) & "AEFRadf"
Range("B1") = Replace(Range("A1"), OldText, NewText)
Columns("B:B").EntireColumn.AutoFit
End Sub

Function ThutVao(Rng As Range, sokytu As Byte)
Dim NewText As String, OldText As String, TextKQ As String
OldText = Chr(10)
NewText = Chr(10) & WorksheetFunction.Rept(" ", sokytu)
TextKQ = Replace(Rng, OldText, NewText)
ThutVao = TextKQ
'Columns("B:B").EntireColumn.AutoFit
End Function

Đây là code củ chuối, nhưng muốn thấy thụt vào thì phải format Wrap Text, làm sub thì dễ hơn, còn function thì chưa cách nào format, có thể triển khai, nếy chr(10) thứ mấy thì thut vào = for i to len.

 

[tedaynui]

Cám ơn các anh đã nhiệt tình hướng dẫn !
Nhưng những cách trên em đã thử qua và thấy cũng chưa thoả mãn lắm, hi hi
Hiện em đang dùng cách sau : Nhập dữ liệu vào và dòng nào muốn thụt vào thì nhập đầu dòng [] hoặc ++ hoặc -- ; ... và sau đó chạy đoạn code sau để tìm và thay thế

With Sheet1.Cells
        .Replace What:="[]", Replacement:=Chr(9) & " "
        .Replace What:="--", Replacement:="         - "
        .Replace What:="++", Replacement:="                  + "
        .Replace What:=". .", Replacement:="                           "
        .Replace What:=".o.", Replacement:="                                  " & Chr(186) & " "
    End With

TDN

 

[ptm0412]

Vậy thì xài auto replace as you type sướng hơn (trừ phím tab)

 

[voda]

Nguyên văn bởi [B]tedaynui[/B]
        .Replace What:="[]", Replacement:=Chr(9) & " "
        .Replace What:="--", Replacement:="         - "
        .Replace What:="++", Replacement:="                  + "
        .Replace What:=". .", Replacement:="                           "
        .Replace What:=".o.", Replacement:="                        " & Chr(186) & " "

Sao không dùng Space(i) thay thế những khoảng trắng trong code để dễ điều khiển hơn?

 

[danhminh959]

Cảm ơn bạn đã giúp mình tìm hiểu đúng chổ cần tìm.

 

[maiban116]

MÌNH CUNG ĐANG CẦN CÁI NÀY BẠN NÀO BIẾT XIN HƯỚNG DẪN MÌNH VỚI

 

[befaint]

MÌNH CUNG ĐANG CẦN CÁI NÀY BẠN NÀO BIẾT XIN HƯỚNG DẪN MÌNH VỚI

Có biết việc viết chữ IN HOA hết như thế là khiếm nhã với người đọc không?

 

[maiban116]

Có biết việc viết chữ IN HOA hết như thế là khiếm nhã với người đọc không?

bạn khó tính quá chữ in hoa với chữ thường đều là tiếng việt mà

 

[befaint]

bạn khó tính quá chữ in hoa với chữ thường đều là tiếng việt mà

Tôi khó tính thì cũng không làm sao cả.
Nhưng bạn viết sai chính tả thì có sao đó.
- Đầu câu không viết hoa: chữ "bạn".
- Không viết hoa danh từ riêng: "tiếng việt". Viết đúng: "tiếng Việt".
- Cuối câu không có dấu câu.
---------------
Nó (những thứ trên) tốt cho bạn, chứ tôi chỉ tốn sức.

 

[maiban116]

Tôi khó tính thì cũng không làm sao cả.
Nhưng bạn viết sai chính tả thì có sao đó.
- Đầu câu không viết hoa: chữ "bạn".
- Không viết hoa danh từ riêng: "tiếng việt". Viết đúng: "tiếng Việt".
- Cuối câu không có dấu câu.
---------------
Nó (những thứ trên) tốt cho bạn, chứ tôi chỉ tốn sức.

Như thế này Bạn chắc gia trưởng lắm gặp những ông anh như thế này chắc chết mất. là một con Người thì hãy rộng lượng với nhau bạn nhé. đừng cân đo đong đếm làm gì.

 

[befaint]

Như thế này Bạn chắc gia trưởng lắm gặp những ông anh như thế này chắc chết mất. là một con Người thì hãy rộng lượng với nhau bạn nhé. đừng cân đo đong đếm làm gì.

Đây gọi là tự ái hay là tác dụng phụ sau khi tiêm thuốc?
----------
Vừa mới chỉ dẫn cụ thể ở trên rồi mà vẫn còn viết sai chính tả. Hỏng! Cần rèn giũa nhiều.