Nhờ các bạn hướng dẫn mình cách viết 1 hàng 1 chữ trong excel. thx các bạn nhiều! (1 người xem)

  • Thread starter Thread starter Asimet01
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Em cố ý nói đánh dấu dùng cho trường hợp phần cách dạng: A " " B " " # C ""# A " " B " "A " " B " "A " " B " "#......v.v Còn nếu chỉ tách space thì làm theo cách nào đó tiện nhất cho bạn. Còn Alt + Enter nhanh hơn thì bạn cứ làm thôi. Cách lấy code ở đâu em cũng chỉ vào bài chèn ký tự La Mã lấy rồi. Còn việc bạn code sao, hay dùng cách nào em chả quan tâm.
thx bạn nhiều. Chúc bạn sức khỏe !
 
Chả biết tác giả bài đămg muốn được gì khi làm như vậy!

Những mong là bạn í không điền khùng cho đến sau Tết!
Xã hội giờ nhiều nghề nghiệp lắm, nên tính chất yêu cầu thành ra mới nghe nói thấy kỳ lạ, n khi tưởng điên ấy chứ :D
Cách này ví dụ thôi nha ban. Kiểu viết chữ Hán hay chữ Nôm đó, gõ cái để nó xêp từ trên xuống dưới đúng kiểu Hán Nôm chẳng hạn đó bạn
 
thx bạn rất nhiều. Tại mình ăn sẵn quá thành k nghĩ sang hướng khác, ăn nhờ nên cứ nhờ luôn :)
Bạn thử file này xem sao.
Mở file này lên để tắt, mở nhập tắt (chỉ cần làm 1 lần).
Nhập dấu phẩy (,) để xuống dòng.
 

File đính kèm

Như tiêu đề, nhờ các bạn chỉ mình cách viết 1 hàng 1 chữ. Ví dụ khi mình nhập dữ liều vào là "Bùi Quang Dũng" thì nó hiển thị 1 hàng 1 chữ kiểu:
Bùi
Quang
Dũng
Nói chung là nhập dữ liều vào kiểu 1 câu dài thì nó tự ngắt 1 hàng 1 chữ kiểu như trên. Mình thử dùng "Wrap Text" nhưng nó chỉ xuống dòng khi hết chiều rộng cột, có nghĩa là khi mình nhập chiều rộng cột hoặc chiều rộng auto thì có những chữ ngắn ví dụ 1 âm tiết. Thành thử nó có khi thành 2, 3 chữ trên 1 dòng.
Cảm ơn các bạn rất nhiều!
Bạn thử code sau, chọn vùng muốn xuống hàng (trong 1 Cell) rồi chạy code:

Mã:
Sub XuongHang_TrongCell()
    Dim XuongHang As Range
    Dim TrongCell As Range
    Dim Tieude
    On Error Resume Next
    Tieude = "be09"
    Set TrongCell = Application.Selection
    For Each XuongHang In TrongCell
        XuongHang.Value = Replace(XuongHang.Value, " ", Chr(10))
    Next
End Sub
 
Web KT

Bài viết mới nhất

Back
Top Bottom