Tính tổng từ 1 dãy số cho trước dạng text

[saobekhonglac]

Chào anh/chị.

Nhờ anh/chị hướng dẫn giúp em tính số chứng từ sử dụng dựa vào 1 dãy số theo quy định cho trước (dùng 1 công thức kéo xuống hoặc VBA).
Anh/chị xem file đính kèm giúp em và giúp em công thức từ B2 đến B5
Số sử dụng bằng số cuối của dãy trừ số đầu +1, mỗi dãy số cách nhau dấu; mỗi số có 6 ký tự.
Cám ơn anh/chị.

 

[dhn46]

Bạn làm như sau:
1/ Đặt chuột tại B2 và đặt name Tong

=EVALUATE(SUBSTITUTE(SUBSTITUTE(Sheet1!A2,"-->","+"),";",+""))

2/ Tại B2 gõ công thức sau và kéo xuống

=Tong

 

[giangleloi]

Bạn làm như sau:
1/ Đặt chuột tại B2 và đặt name Tong

=EVALUATE(SUBSTITUTE(SUBSTITUTE(Sheet1!A2,"-->","+"),";",+""))

2/ Tại B2 gõ công thức sau và kéo xuống

=Tong

Hình như đâu có đúng, nguyên văn là thế này mà:

Số sử dụng bằng số cuối của dãy trừ số đầu +1, mỗi dãy số cách nhau dấu; mỗi số có 6 ký tự.

 

[doveandrose]

Hình như đâu có đúng, nguyên văn là thế này mà:

vậy làm sao để đúng bạn giúp mình với . cảm ơn bạn

 

[Ba Tê]

Chào anh/chị.

Nhờ anh/chị hướng dẫn giúp em tính số chứng từ sử dụng dựa vào 1 dãy số theo quy định cho trước (dùng 1 công thức kéo xuống hoặc VBA).
Anh/chị xem file đính kèm giúp em và giúp em công thức từ B2 đến B5
Số sử dụng bằng số cuối của dãy trừ số đầu +1, mỗi dãy số cách nhau dấu; mỗi số có 6 ký tự.
Cám ơn anh/chị.

Xem file nhé...............................

 

[saobekhonglac]

Ra số nhưng không đúng, số đúng ở B2 là 4,601.

Bạn làm như sau:
1/ Đặt chuột tại B2 và đặt name Tong

=EVALUATE(SUBSTITUTE(SUBSTITUTE(Sheet1!A2,"-->","+"),";",+""))

2/ Tại B2 gõ công thức sau và kéo xuống

=Tong

 

[dhn46]

Ra số nhưng không đúng, số đúng ở B2 là 4,601.

Thế này phải ko?

=RIGHT(A2,6)-LEFT(A2,6)+1

Số Cuối - Số đầu +1 (Mỗi số là 6 ký tự)

Kết quả đúng thế thì phải là 14601 chứ không phải 4601

 

[giaiphap]

Chào anh/chị.

Nhờ anh/chị hướng dẫn giúp em tính số chứng từ sử dụng dựa vào 1 dãy số theo quy định cho trước (dùng 1 công thức kéo xuống hoặc VBA).
Anh/chị xem file đính kèm giúp em và giúp em công thức từ B2 đến B5
Số sử dụng bằng số cuối của dãy trừ số đầu +1, mỗi dãy số cách nhau dấu; mỗi số có 6 ký tự.
Cám ơn anh/chị.

Bạn sử dụng hàm này thử xem.

Public Function Tach(Vung As Range) As String
Dim i As Long, dArr() As String, s As String
s = ""
dArr = Split(Vung.Value, ";")
For i = 0 To UBound(dArr)
    s = s & (Application.Evaluate(Mid(dArr(i), WorksheetFunction.Find(">", dArr(i)) + 1) & "-" & _
      Left(dArr(i), WorksheetFunction.Find("-", dArr(i)) - 1)) + 1) & ";"
Next i
Tach = Left(s, Len(s) - 1)
End Function

Sau đó tại B2 bạn gõ công thức như sau: =Tach(A2)

 

[Ba Tê]

Nếu có quy định mỗi chuỗi cần đếm cách nhau dấu ";", mỗi con số đều có 6 ký tự, muốn dùng hàm tự tạo thì xài thử cái này:
Dữ liệu "chuẩn" thì không cần TRIM.

Public Function GPEdem(Rng As Range) As Long
Dim Tem, J As Long
Tem = Split(Rng, ";")
For J = 0 To UBound(Tem)
    GPEdem = GPEdem + Right(Trim(Tem(J)), 6) - Left(Trim(Tem(J)), 6) + 1
Next J
End Function

B2=GPEdem(A2)

 

[doveandrose]

luyện sử dụng công thức . hi hi

=ABS( SUMPRODUCT(-- MID(SUBSTITUTE( SUBSTITUTE(A2,";",REPT(" ",99)),"-->",REPT(" ",99)&"-"),(ROW(OFFSET($A$1,,,LEN(A2)- LEN(SUBSTITUTE( SUBSTITUTE(A2,";",""),">",""))+1))-1)*99+1,99)))+LEN(A2)- LEN(SUBSTITUTE(A2,";",""))+1

 

[Phuocam]

Chào anh/chị.

Nhờ anh/chị hướng dẫn giúp em tính số chứng từ sử dụng dựa vào 1 dãy số theo quy định cho trước (dùng 1 công thức kéo xuống hoặc VBA).
Anh/chị xem file đính kèm giúp em và giúp em công thức từ B2 đến B5
Số sử dụng bằng số cuối của dãy trừ số đầu +1, mỗi dãy số cách nhau dấu; mỗi số có 6 ký tự.
Cám ơn anh/chị.

Xài thử name "Tinh" cho B2:
=-EVALUATE(SUBSTITUTE(SUBSTITUTE(Sheet1!A2,"-->","-1-"),";","+"))
B2 = Tinh