Kết quả 1 đến 3 của 3

Chủ đề: Làm ngắn lại một dòng text mà không sợ bị ngắt giữa chữ.

  1. #1
    hongnga1706 Guest

    Làm ngắn lại một dòng text mà không sợ bị ngắt giữa chữ.

    Trong một số trường hợp, đọc số tiền bằng chữ, hoặc in tên hoặc địa địa chỉ quá dài lên Hóa đơn hoặc Phiếu thu phiếu chi.
    Làm cách nào để cắt bớt dòng và xuống dòng in phần còn lại.

    Mình xin đưa ra một giải pháp nhỏ để các bạn xem.

    VBA
    Public Function Gonlai(Sometext, Criteria)
    If Len(Sometext) <= Criteria Then
    mytext = Sometext
    Else
    mytext = Sometext
    VT = InStr(Criteria - 5, mytext, Space(1))
    mytext = Left(mytext, VT)
    End If
    Gonlai = mytext
    End Function

    Sau khi tạo macro nay xong ta có thể làm ngắn câu văn bất kỳ bằng cách
    + Dong thu 1
    =gonlai(dia chi cau van, chieu dai muon giu lai)
    + Dong thu 2
    =right(dia chi cau van,len(dong thu 1))

    Chúc các bạn thành công

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    7
    To Luckyboy
    Sao bạn không dùng thử chức năng của Excel : Format cells / Alignment / Wrap text

    TDN

  3. #3
    phunudep123 Guest
    Và nếu như hông thích wrap text thì cũng dùng hàm đơn giản là left(), right(), hoặc mid() cũng xong mà. Dù gì thì cũng phải hai dòng. Đúng không bạn.

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •