lấy số lớn nhất trong 1 chuổi.

[Hai Lúa Miền Tây]

Gửi các anh chị GPE thân mến,

Cho em hỏi là làm thế nào để lấy 1 giá trị lớn nhất từ 1 chuổi.

VD: 10&12&12.5&12.3&12.1...... => 12.5

Em xin cám ơn trước.

 

[dang thi lan]

Dùng hàm MAX(10;12;12.5;12.3;12.1)

 

[huuthang_bd]

Gửi các anh chị GPE thân mến,

Cho em hỏi là làm thế nào để lấy 1 giá trị lớn nhất từ 1 chuổi.

VD: 10&12&12.5&12.3&12.1...... => 12.5

Em xin cám ơn trước.

Bạn dùng thử công thức trong file này:

 

[Hai Lúa Miền Tây]

Bạn dùng thử công thức trong file này:

Cám ơn bạn rất nhiều.
Dùng code thì như thế nào hả bạn.

To: dang thi lan

Dùng hàm MAX(10;12;12.5;12.3;12.1)

Bạn có thể nói rõ hơn không

 

[phamduylong]

Gửi các anh chị GPE thân mến,
Cho em hỏi là làm thế nào để lấy 1 giá trị lớn nhất từ 1 chuổi.
VD: 10&12&12.5&12.3&12.1...... => 12.5
Em xin cám ơn trước.

Dùng VBA để tìm số lớn nhất trong chuỗi

Function MaxStr(Str As String) As Double
Dim Num As Double, n1 As Long, n2 As Long
Str = Str & "&"
n1 = 1
Do While n1 < Len(Str)
  n2 = InStr(n1, Str, "&")
  Num = Mid(Str, n1, n2 - n1)
  If Num > MaxStr Then MaxStr = Num
  n1 = n2 + 1
Loop
End Function

Chú ý dấu thập phân trong chuỗi (12.5) phải đúng theo khai báo của Windows.

 

[huuthang_bd]

Cám ơn bạn rất nhiều.
Dùng code thì như thế nào hả bạn.

To: dang thi lan

Bạn có thể nói rõ hơn không

Nếu muốn dùng code thì code này ngắn hơn nè:

Function MaxValue(str As String)
MaxValue = Evaluate("=Max(" & Replace(str, "&", ",") & ")")
End Function