[Help] Lấy giá trị từ dấu ; thứ 02

[ngoctuyen1995]

Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ...
Hiện tại em có 01 list data GPS, công việc của em là:

1. Lấy từ trái sang thì bắt đầu từ dấu ; thứ 02
2. Trường hợp GPS có dấu chấm Thì chỉ lấy các số trước dấu chấm

Ví dụ:
10.01434657;105.78372148;3;gps ---> Kết quả: là lấy số : 3
16.0576511;108.2204801;23.683;network ---> Kết quả: là lấy số : 23
- Em có đính kèm File và ví dụ trong đó ạ...

Mong cả nhà giúp đỡ em..! Em cảm ơn ạ.

 

[vu_tuan_manh_linh]

Tự tôi cảm thấy điên đầu với công thức do mình tạo ra, nên bạn đừng hỏi tại sao nhé!

 

[phulien1902]

Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ...
Hiện tại em có 01 list data GPS, công việc của em là:

1. Lấy từ trái sang thì bắt đầu từ dấu ; thứ 02
2. Trường hợp GPS có dấu chấm Thì chỉ lấy các số trước dấu chấm

Ví dụ:
10.01434657;105.78372148;3;gps ---> Kết quả: là lấy số : 3
16.0576511;108.2204801;23.683;network ---> Kết quả: là lấy số : 23
- Em có đính kèm File và ví dụ trong đó ạ...

Mong cả nhà giúp đỡ em..! Em cảm ơn ạ.

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To LR
        If Range("A" & i) <> Empty Then
            Range("B" & i) = Round((Split(Range("A" & i), ";")(2)), 0)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[befaint]

Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ...
Hiện tại em có 01 list data GPS, công việc của em là:

1. Lấy từ trái sang thì bắt đầu từ dấu ; thứ 02
2. Trường hợp GPS có dấu chấm Thì chỉ lấy các số trước dấu chấm

Ví dụ:
10.01434657;105.78372148;3;gps ---> Kết quả: là lấy số : 3
16.0576511;108.2204801;23.683;network ---> Kết quả: là lấy số : 23
- Em có đính kèm File và ví dụ trong đó ạ...

Mong cả nhà giúp đỡ em..! Em cảm ơn ạ.

 

[befaint]

Bạn thử:
'Range("B" & i) = Round(...)

Vừa sáng có vụ hàm Round() mà anh.

(B15=24)

 

[phulien1902]

Vừa sáng có vụ hàm Round() mà anh.

(B15=24)

Để có B15=23, anh thay:

Range("B" & i) = Round((Split(Range("A" & i), ";")(2)) , 0)

bằng:

Range("B" & i) = Round((Split(Range("A" & i), ";")(2)) - 0.2, 0)

Chỉ áp dụng cho bài toán này được không em?

 

[befaint]

Để có B15=23, anh thay:

Range("B" & i) = Round((Split(Range("A" & i), ";")(2)) , 0)

bằng:

Range("B" & i) = Round((Split(Range("A" & i), ";")(2)) - 0.2, 0)

Chỉ áp dụng cho bài toán này được không em?

Anh thử với "23.999" xem.

Sub vidu()
    Dim t, n
    t = "23.999"
    n = Round(t - 0.2)
    MsgBox n
End Sub

Bài yêu cầu lấy phần nguyên thì mình sử dụng hàm lấy phần nguyên ấy anh.

 

[probaby]

Đây bạn ơi, ko phải VBA gì đâu

 

[probaby]

Tự tôi cảm thấy điên đầu với công thức do mình tạo ra, nên bạn đừng hỏi tại sao nhé!

Em sợ bác quá; em cứ nghĩ công thức của em đã kinh lắm rồi, Bác còn bá đạo hơn

 

[phulien1902]

Anh thử với "23.999" xem.

Sub vidu()
    Dim t, n
    t = "23.999"
    n = Round(t - 0.2)
    MsgBox n
End Sub

Bài yêu cầu lấy phần nguyên thì mình sử dụng hàm lấy phần nguyên ấy anh.

Vậy thì thế này:

 Range("B" & i) = Int((Split(Range("A" & i), ";")(2)))

 

[befaint]

Thử viết công thức

=INT(LEFT(TRIM(RIGHT(SUBSTITUTE(A3,";",REPT(" ",500)),1000)),SEARCH(" ",TRIM(RIGHT(SUBSTITUTE(A3,";",REPT(" ",500)),1000)))-1))

 

[Phuocam]

Cho ké một chút:

=INT(TRIM(MID(SUBSTITUTE(A2,";",REPT(" ",500)),1000,500)))

 

[VetMini]

Bài yêu cầu lấy phần nguyên thì mình sử dụng hàm lấy phần nguyên ấy anh.

Vậy thì thế này:

 Range("B" & i) = Int((Split(Range("A" & i), ";")(2)))

Hàm lấy phần nguyên là hàm FIX, không phải hàm INT

 

[dazkangel]

Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ...
Hiện tại em có 01 list data GPS, công việc của em là:

1. Lấy từ trái sang thì bắt đầu từ dấu ; thứ 02
2. Trường hợp GPS có dấu chấm Thì chỉ lấy các số trước dấu chấm

Ví dụ:
10.01434657;105.78372148;3;gps ---> Kết quả: là lấy số : 3
16.0576511;108.2204801;23.683;network ---> Kết quả: là lấy số : 23
- Em có đính kèm File và ví dụ trong đó ạ...

Mong cả nhà giúp đỡ em..! Em cảm ơn ạ.

Thử cách sau:

=INT(TRIM(LEFT(SUBSTITUTE(MID(A2,FIND("|",SUBSTITUTE(A2,";","|",2))+1,10),";",REPT(" ",10)),10)))

 

[ngoctuyen1995]

Vậy thì thế này:

 Range("B" & i) = Int((Split(Range("A" & i), ";")(2)))

Em cảm ơn cả nhà đã tận tình giúp đỡ em ạ...! Em làm được rồi ạ...

Chúc cả nhà sức khoẻ và thành công ạ... Diễn đàn mình ngày càng phát triển