Hỏi về chỉ lấy chữ không lấy số trong chuỗi ký tự

[ndu96081631]

Chỉnh lại thành cái này dễ dùng hơn anh ạ

Function abc(ByVal c As Range)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d"
        abc = .Replace(c.Value, "")
    End With
End Function

Mấy cái này phải hỏi lại cho chắc nha. Liệu có phải người ta muốn loại toàn bộ số hay không? Ví dụ: Với P2CBS016 thì người ta muốn kết quả gì? P hay P2CBS hay PCBS

 

[be_09]

Mấy cái này phải hỏi lại cho chắc nha. Liệu có phải người ta muốn loại toàn bộ số hay không? Ví dụ: Với P2CBS016 thì người ta muốn kết quả gì? P hay P2CBS hay PCBS

Chủ Topic yêu cầu cái gì thì làm cái đó, nếu chưa đúng thì họ la làng lên, thì tính tiếp nếu thấy khó nhằn quá thì bỏ qua. Có khi đâu cần phải lường trước việc này, việc nọ, việc kia.

Nhà nước quy hoạch 10 năm, 20 năm và lúc nào cũng gọi là tầm nhìn nhưng thực tế tầm nhìn đó cũng chẳng đến đâu, khi quy hoạch đó chẳng khả thi, ví dụ: quy hoạch khu dân cư hiện hữu để trồng cây xanh chắc chẳng ai dám làm vì không có lợi ích gì? Không khéo lại bị kiểm điểm vì thực hiện dự án dỡ hơi, bồi thường hàng trăm tỷ đồng lại trồng ba cái cây vớ vẫn, dân thì ta thán, cấp trên thì khiển trách, thậm chí có thể bị kiểm điểm.

Kết luận:
- Nếu ta làm quan thì nên ngồi đó làm bù nhìn cho sướng, việc chi phải lao tâm, khổ trí để dân khỏi ta thán, cấp trên khỏi khiển trách hết nhiệm kỳ thì xuống (gọi là hạ cánh an toàn).
- Nói cho vui vậy thôi, chứ 40 năm trong nghề chẳng bao giờ làm khó ai, kiến thức thì lơ tơ mơ, cơ quan thì chẳng cần, nhiều khi góp ý gắt quá thì tụi nó cho mình ra rìa (không cho họp góp ý nữa) để tụi nó rộng đường mở hầu bao, chỉ tham gia diễn đàn cho vui, có nhiều khi góp ý bài viết cho anh em thì nó nói mình dỡ hơi (giúp thì không giúp mà cứ góp ý hoài).
- Có nhiều khi thấy nãn lòng, không muốn góp ý nữa nhưng thấy 1 số thành viên viết bài mà không thấy ai giúp đành động lòng trắc ẩn nhảy vào giúp nhưng đôi khi lại buồn lòng quá khi họ nói 1 câu " tưởng có gì mới, cái này thì biết rồi" hoặc vào hỏi bài hỏi xong thì lặn mất mà chẳng có 1 câu cám ơn cho người giúp, các bạn làm kiểu này thì hãy đợi đấy (tết Ma Rốc mới có người giúp).

Cuối cùng, đừng thành viên nào ném đá, hãy ném cho tôi 1 bịch rượu, tôi ném ra 1 dĩa mồi để cùng ứng chiến.

 

[ndu96081631]

Chủ Topic yêu cầu cái gì thì làm cái đó, nếu chưa đúng thì họ la làng lên, thì tính tiếp nếu thấy khó nhằn quá thì bỏ qua. Có khi đâu cần phải lường trước việc này, việc nọ, việc kia.
.

Theo ví dụ mà chủ topic đưa lên ở bài 1 thì không phải là xóa toàn bộ số, chỉ là lấy từ trái sang phải đến khi gặp số thì ngưng. Trong khi code VBA viết trong topic này lại không phải vậy đâu anh
Ý em muốn nói: Code VBA và công thức trong topic này cho kết quả khác nhau

 

[shanks10]

Theo ví dụ mà chủ topic đưa lên ở bài 1 thì không phải là xóa toàn bộ số, chỉ là lấy từ trái sang phải đến khi gặp số thì ngưng. Trong khi code VBA viết trong topic này lại không phải vậy đâu anh
Ý em muốn nói: Code VBA và công thức trong topic này cho kết quả khác nhau

Cảm ơn tất cả các bạn đã giúp mình, do trong phần mềm mình xuất ra thì nó theo thứ tự chữ trước rồi đến số nên mình cũng chỉ cần tách chuỗi đằng trước ra thôi bạn