ditimdl
Thành viên thường trực




- Tham gia
- 11/10/06
- Bài viết
- 378
- Được thích
- 107
- Giới tính
- Nam
- Nghề nghiệp
- Pharmacist
thử công thức này xem saoNhờ các bạn và anh chị trên GPE giúp mình tách số đi kèm với chữ, diễn giải ra chắc khó hiểu hơn là xem file đính kèm.
Mong được các bạn giúp đỡ!
Mượn công thức của phihndhsp, sửa lại chút. Bạn xem đúng ý chưa nhé!Cảm ơn bạn, công thức chưa đúng với trường hợp thứ 6![]()
C4=IF(ISERROR(--LEFT(TRIM(RIGHT(SUBSTITUTE(B4," ",REPT(" ",255)),255)),1)),"",TRIM(RIGHT(SUBSTITUTE(B4," ",REPT(" ",255)),255)))
Nếu em hiểu đúng ý cảu tác giả thì kí từ đầu tiên sau khoảng trắng cuối cùng phải là chữ số anh ạ!nếu tác giả ghi như vậy tức ở vị trí số 6 có khoảng trắng mà kết quả là rỗng là không được dùng cái này? em thử test công thức của em trường hợp cuối không đúng?
vì trường hợp 6 giống trường hợp cuối mà kết quả không giống thì ta không thể sử dụng như vậy được
Bạn thử công thức của tôi chưa? Theo tôi bạn nên giải thích rõ ràng ra? Chỉ có bạn biết cái nào là hàm lượng, cái nào là quy cách chứ các thành viên khác làm sao mà biết được.Cái này để tách hàm lượng ra riêng, trường hợp 6 H/10 là quy cách chứ không phải hàm lượng nên kết quả sẽ rỗng.
Code này của QuangHai1969, mình mới tập VBA, bạn xem thử:Cái này để tách hàm lượng ra riêng, trường hợp 6 H/10 là quy cách chứ không phải hàm lượng nên kết quả sẽ rỗng.
Cảm ơn 2 bạn rất nhiều.
Các bạn có thể viết thành function riêng để nhìn nó ngắn gọn, dễ sử dụng hơn và đưa công thức vào code VBA để thực hiện tự động luôn chứ công thức trên đưa vào VBA báo lỗi.
Code này của QuangHai1969, mình mới tập VBA, bạn xem thử:
Function ABC(cell As Range) As String
Dim tam
tam = Right(cell, Len(cell) - InStrRev(cell, " "))
ABC = IIf(IsNumeric(Left(tam, 1)), tam, "")
End Function
Có nét giống với công thức của anh Chuot0106 nhưng gần với code của chú quanghai1969 hơn thậm chí là giải thuật giống nhau lun, nếu công thức của cháu đi đời thì code của chú cũng tiêu lun nhé!Tham khảo thêm cách bình dân này
PHP:Function ABC(cell As Range) As String Dim tam tam = Right(cell, Len(cell) - InStrRev(cell, " ")) ABC = IIf(IsNumeric(Left(tam, 1)), tam, "") End Function
=IF(ISNUMBER(--LEFT(TRIM(RIGHT(SUBSTITUTE(B4," ",REPT(" ",255)),255)),1)),TRIM(RIGHT(SUBSTITUTE(B4," ",REPT(" ",255)),255)),"")