Tìm công thưc cho file này (1 người xem)

[huonglien1901]

Chào mọi người trên diễn đàn!

Em có File này muốn lấy dũ liệu như file, thì phải làm như thế nào.

Em cảm ơn mọi người nhiều.

 

[Ba Tê]

Chào mọi người trên diễn đàn!

Em có File này muốn lấy dũ liệu như file, thì phải làm như thế nào.

Em cảm ơn mọi người nhiều.

Bạn không thể cho ví dụ nhiều dòng hơn? Chỉ làm theo ví dụ 2 dòng, nếu có kiểu dữ liệu khác nữa thì "tèo" nghe.

 

[huonglien1901]

Bạn không thể cho ví dụ nhiều dòng hơn? Chỉ làm theo ví dụ 2 dòng, nếu có kiểu dữ liệu khác nữa thì "tèo" nghe.

Dạ, Em cảm ơn anh BATE nhiều nhé! Đúng ý rôi anh ơi

 

[huonglien1901]

Bạn không thể cho ví dụ nhiều dòng hơn? Chỉ làm theo ví dụ 2 dòng, nếu có kiểu dữ liệu khác nữa thì "tèo" nghe.

Anh BATE cho em hỏi ý nghĩa của dòng lệnh này

Tmp = Split(Txt, " "): N = UBound(Tmp)
Select Case Num
Case 1
GPE = Tmp(0)
Case 2
GPE = Tmp(2)
Case 3
For J = 3 To N
If IsNumeric(Tmp(J)) Then
GPE = Tmp(J): Exit For
End If
Next J
Case 4
GPE = Tmp(N - 1)

Em cảm ơn anh nhiều!

 

[Ba Tê]

Anh BATE cho em hỏi ý nghĩa của dòng lệnh này

Tmp = Split(Txt, " "): N = UBound(Tmp)
Select Case Num
Case 1
GPE = Tmp(0)
Case 2
GPE = Tmp(2)
Case 3
For J = 3 To N
If IsNumeric(Tmp(J)) Then
GPE = Tmp(J): Exit For
End If
Next J
Case 4
GPE = Tmp(N - 1)

Em cảm ơn anh nhiều!

Đại khái là:
- Bạn muốn có 4 kết quả từ 1 chuỗi.
- Tách chuỗi đó thành từng chuỗi nhỏ bằng dấu cách
Tính từ trái qua phải:
Kết quả 1: chuỗi nhỏ (đầu tiên) thứ nhất
Kết quả 2: chuỗi nhỏ thứ ba
kết quả 3: xét từ chuỗi thứ tư sang phải, gặp chuỗi nào có dạng Number đầu tiên thì lấy.
Kết quả 4: chuỗi nhỏ trước chuỗi "bét".

 

[huonglien1901]

Đại khái là:
- Bạn muốn có 4 kết quả từ 1 chuỗi.
- Tách chuỗi đó thành từng chuỗi nhỏ bằng dấu cách
Tính từ trái qua phải:
Kết quả 1: chuỗi nhỏ (đầu tiên) thứ nhất
Kết quả 2: chuỗi nhỏ thứ ba
kết quả 3: xét từ chuỗi thứ tư sang phải, gặp chuỗi nào có dạng Number đầu tiên thì lấy.
Kết quả 4: chuỗi nhỏ trước chuỗi "bét".

Dạ, Anh BATE có thể ẩn lỗi #value được không Anh? khi em xóa dữ liệu cũ đi em chỉ thấy trong bốn cột là các khoảng trắng, khi thêm dữ liệu vào thì công thức thực hiện bình thường.

Em làm được rồi Anh ơi, em dùng hàm iferror đó Anh!

Em cảm ơn Anh nhiều!

 

[Ba Tê]

Dạ, Anh BATE có thể ẩn lỗi #value được không Anh? khi em xóa dữ liệu cũ đi em chỉ thấy trong bốn cột là các khoảng trắng, khi thêm dữ liệu vào thì công thức thực hiện bình thường.

Em làm được rồi Anh ơi, em dùng hàm iferror đó Anh!

Em cảm ơn Anh nhiều!

Bạn thay cái cũ bằng cái này:

Public Function GPE(Txt As String, Num As Long) As String
If Len(Txt) Then
Dim Tmp, N As Long, J
Tmp = Split(Txt, " "): N = UBound(Tmp)
Select Case Num
    Case 1
        GPE = Tmp(0)
    Case 2
        GPE = Tmp(2)
    Case 3
        For J = 3 To N
            If IsNumeric(Tmp(J)) Then
                GPE = Tmp(J): Exit For
            End If
        Next J
    Case 4
        GPE = Tmp(N - 1)
End Select
End If
End Function

 

[huonglien1901]

Bạn thay cái cũ bằng cái này:

Public Function GPE(Txt As String, Num As Long) As String
If Len(Txt) Then
Dim Tmp, N As Long, J
Tmp = Split(Txt, " "): N = UBound(Tmp)
Select Case Num
    Case 1
        GPE = Tmp(0)
    Case 2
        GPE = Tmp(2)
    Case 3
        For J = 3 To N
            If IsNumeric(Tmp(J)) Then
                GPE = Tmp(J): Exit For
            End If
        Next J
    Case 4
        GPE = Tmp(N - 1)
End Select
End If
End Function

Code anh nó không ra Anh ơi, em gửi file Anh xem giúp nhé

 

[Ba Tê]

Code anh nó không ra Anh ơi, em gửi file Anh xem giúp nhé

Không hiểu bạn muốn gì, không có dữ liệu thì "ra" cái gì?
Đây là file thay code bài #7

 

[huonglien1901]

Không hiểu bạn muốn gì, không có dữ liệu thì "ra" cái gì?

Dạ, em chép code anh vào mà nó không ra giống anh đó, mà anh lại làm ra, không biết sai ở chỗ nào nữa

em cảm ơn Anh nhiều nhé, cho em hỏi nút cảm ơn ở đâu cho em nhấn nút thay lời Cảm ơn. đã hỗ trợ giúp em