Thử thách tí: Hàm cắt tên (không dùng VBA)

[AGU]

Mong các pác giúp dùm em

Công việc của em nó như vầy mà làm hoài cũng không được
em có chuỗi họ và tên muốn cắt ra chữ đầu của tên, chữ đầu của tên điệm, và tên
ví dụ như sau:
Tran Van Teo ----> tvteo
Nguyen Van Be Ti ----> nvbti
Mong các pác có kinh nghiệm giúp dùm em pát em cam on nhùi

 

[anhtuan1066]

Nó đây! Bạn xem đúng ý ko nha
ANH TUẤN

 

[longnh]

Nhân tiện chuyện "cắt tên"
Cắt xong rồi thì đến sắp xếp tên theo "ABC" khổ nối tiếng việt còn rất nhiều ký tự khác như:
a
b
â
đ
à
...
Vậy làm sao sắp danh sách này theo đúng thứ tự dấu huyền sắc hỏi ngã nặng
a à â ă ẫ ẩ ậ b đ đ e ê ế ề ễ ể ệ

 

[dovankhoa]

cho mình hỏi cách để cắt chữ khi xuống dòng liên tục :
Cty có dùng hóa đơn tự in nhưng ở phần "số tiền thành chữ" thì tách ra thành 2 dòng.dòng thứ nhất thì mính dùng hàm Left tách ra được rồi nhưng ở dòng thứ 2 thì để đảm bảo số tiền thành chữ được liên tục thì ta dùng hàm nào vậy.
Ví dụ:Số tiền bằng chữ là : hai trăm ngàn đồng.
thì dòng thứ nhất dùng hàm Left ta tách ra được là :"Hai trăm"
-dòng thứ hai ta phải dùng hàm nào để được liên tục là :"ngàn đồng".Sẽ có trường hợp xảy ra khi thay đổi số tiền, thì xảy ra hiện tượng không đúng.ví dụ :dòng 1 là :"Hai tră" và dòng thứ 2 là :"m ngàn đồng".Anh chị chỉ dùm em nha.

 

[BNTT]

cho mình hỏi cách để cắt chữ khi xuống dòng liên tục :
Cty có dùng hóa đơn tự in nhưng ở phần "số tiền thành chữ" thì tách ra thành 2 dòng.dòng thứ nhất thì mính dùng hàm Left tách ra được rồi nhưng ở dòng thứ 2 thì để đảm bảo số tiền thành chữ được liên tục thì ta dùng hàm nào vậy.
Ví dụ:Số tiền bằng chữ là : hai trăm ngàn đồng.
thì dòng thứ nhất dùng hàm Left ta tách ra được là :"Hai trăm"
-dòng thứ hai ta phải dùng hàm nào để được liên tục là :"ngàn đồng".Sẽ có trường hợp xảy ra khi thay đổi số tiền, thì xảy ra hiện tượng không đúng.ví dụ :dòng 1 là :"Hai tră" và dòng thứ 2 là :"m ngàn đồng".Anh chị chỉ dùm em nha.

Tại sao lại dùng cái cách ngắt dòng như thế nhỉ? Tại sao không để trong một dòng?
Làm sao mà mình có thể lường trước được số tiền sẽ lớn hay nhỏ bao nhiêu để ngắt dòng?

Còn trong trường hợp số tiền bằng chữ dài quá, thì tôi sẽ để cho nó tự xuống dòng. Nghĩa là, tôi sẽ kéo cái chiều cao của ô sẽ chứa cái số tiền bằng chữ này rộng ra gấp đôi, và bật chức năng WrapText cho cái ô đó.

 

[dovankhoa]

Tại sao lại dùng cái cách ngắt dòng như thế nhỉ? Tại sao không để trong một dòng?
Làm sao mà mình có thể lường trước được số tiền sẽ lớn hay nhỏ bao nhiêu để ngắt dòng?

Còn trong trường hợp số tiền bằng chữ dài quá, thì tôi sẽ để cho nó tự xuống dòng. Nghĩa là, tôi sẽ kéo cái chiều cao của ô sẽ chứa cái số tiền bằng chữ này rộng ra gấp đôi, và bật chức năng WrapText cho cái ô đó.

nhưng mà khi mình xuống dòng thì dòng chữ thứ 2 phải lùi về đầu dòng bên trái(tức là sát viền của hóa đơn

 

[dovankhoa]

Các anh chị ơi cho em hỏi một chút.
Hiện tại em đang làm 1 File Excel co dung lượng 2M sử dụng cho phần mềm kế toán trên Excel.Nhưng khi mỗi lần em đánh số hay sửa bất cứ một dữ liệu nào trong ô Excel thì tại thanh Toobar phía dưới(ở gần chữ Start vào chương trình) nó hiện lên chữ Calculating Cell chạy từ 1% đến 100% thì em mới tiếp tục thực hiện những động tác khác, như vậy sẽ rất tốn thời gian cho việc làm của em.Các anh chị có cách nào để khắc phục việc chạy chậm như vậy không?

 

[ndu96081631]

Các anh chị ơi cho em hỏi một chút.
Hiện tại em đang làm 1 File Excel co dung lượng 2M sử dụng cho phần mềm kế toán trên Excel.Nhưng khi mỗi lần em đánh số hay sửa bất cứ một dữ liệu nào trong ô Excel thì tại thanh Toobar phía dưới(ở gần chữ Start vào chương trình) nó hiện lên chữ Calculating Cell chạy từ 1% đến 100% thì em mới tiếp tục thực hiện những động tác khác, như vậy sẽ rất tốn thời gian cho việc làm của em.Các anh chị có cách nào để khắc phục việc chạy chậm như vậy không?

Ít nhất bạn phải nén file lại rồi đưa lên đây mới có thể biết nguyên nhân là gì!
Mặc khác, bạn post bài tùm lum thế thì thật là khó khăn (mai này muốn tìm lại bài viết mới thấy phê)

 

[dovankhoa]

Các anh chị ơi cho em hỏi một chút.
Hiện tại em đang làm 1 File Excel co dung lượng 2M sử dụng cho phần mềm kế toán trên Excel.Nhưng khi mỗi lần em đánh số hay sửa bất cứ một dữ liệu nào trong ô Excel thì tại thanh Toobar phía dưới(ở gần chữ Start vào chương trình) nó hiện lên chữ Calculating Cell chạy từ 1% đến 100% thì em mới tiếp tục thực hiện những động tác khác, như vậy sẽ rất tốn thời gian cho việc làm của em.Các anh chị có cách nào để khắc phục việc chạy chậm như vậy không?
Mình kèm theo file này mong các anh chị giúp xem giup mình nha.

 

[ndu96081631]

Các anh chị ơi cho em hỏi một chút.
Hiện tại em đang làm 1 File Excel co dung lượng 2M sử dụng cho phần mềm kế toán trên Excel.Nhưng khi mỗi lần em đánh số hay sửa bất cứ một dữ liệu nào trong ô Excel thì tại thanh Toobar phía dưới(ở gần chữ Start vào chương trình) nó hiện lên chữ Calculating Cell chạy từ 1% đến 100% thì em mới tiếp tục thực hiện những động tác khác, như vậy sẽ rất tốn thời gian cho việc làm của em.Các anh chị có cách nào để khắc phục việc chạy chậm như vậy không?
Mình kèm theo file này mong các anh chị giúp xem giup mình nha.

Tôi mở file trên máy tôi thấy bình thường, không có chậm gì cả!
-----------------------
Các Mod nếu có ghé qua đây vui lòng chuyển bài sang box nào đó phù hợp! Để đây thấy.. kỳ quá

 

[dovankhoa]

Mong các anh, chị giúp mình tạo công thức muốn gộp các dữ liệu rời rạc từ 1 cột thành các dữ liệu liên tục nha.Mình gửi File đính kèm bên dưới, mong anh, chị giúp mình với.

Các anh, chị cho mình hỏi việc cập nhật dữ liệu liên tục từ Excel. mình gửi File kèm theo bên dưới nha>

 

[thivantan]

Bạn có thể dùng Code sau để xóa dòng trống, bạn muốn xóa dòng trống ở cột nào thì tùy chỉnh cho đúng ý.

Sub DeleteRow()
    Dim rng As Range
     On Error Resume Next
          Set rng = Intersect(Range("[B]B[/B]2:[B]B[/B]2000"), ActiveSheet.UsedRange)
           rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      ActiveSheet.UsedRange
End Sub

Chúc thành công. Thân

 

[TrungChinhs]

Có thể viết gọn hơn

Sub DeleteRow()
On Error Resume Next
[B2:B2000].SpecialCells(4).EntireRow.Delete
End Sub