[Hỏi] Tìm và Lưu giá trị lớn nhất trong excel thế nào ? (2 người xem)

[hanphong_2008]

ô A1 có giá trị cố định = 5
ô B1 có giá trị biến đổi theo ngày. VD hôm nay B1 = 10
ô C1 so sánh A1 với B1 lấy giá trị max: vậy C1 = 10 lưu giá trị là 10

Nếu hôm sau B1 = 11 thì C1 = 11
Nếu hôm sau B1 = 9 thì C1 giữ nguyên giá trị max cũ là C1 =10

Tớ nghĩ thuật toán của nó là
MAX:=A1
Nếu A1<B1 thì MAX:=B1 và A1:=B1
C1:=MAX

Tuy nhiên không biết trong excel phải làm như thế nào để được nữa ?

 

[Quang_Hải]

ô A1 có giá trị cố định = 5
ô B1 có giá trị biến đổi theo ngày. VD hôm nay B1 = 10
ô C1 so sánh A1 với B1 lấy giá trị max: vậy C1 = 10 lưu giá trị là 10

Nếu hôm sau B1 = 11 thì C1 = 11
Nếu hôm sau B1 = 9 thì C1 giữ nguyên giá trị max cũ là C1 =10

Tớ nghĩ thuật toán của nó là
MAX:=A1
Nếu A1<B1 thì MAX:=B1 và A1:=B1
C1:=MAX

Tuy nhiên không biết trong excel phải làm như thế nào để được nữa ?

Câu lệnh thế này:

Tam=application.max([A1],[B1])
[C1]=IIf(tam > [C1], tam, [C1])

 

[ndu96081631]

Câu lệnh thế này:

Tam=application.max([A1],[B1])
[C1]=IIf(tam > [C1], tam, [C1])

Hải chơi bài.. khó hiểu quá! Sao không là: [C1] = Application.Max([A1], [B1], [C1])

 

[hanphong_2008]

mình muốn nó luôn tự động chạy khi mình mở file excel thì làm thế nào vậy ?

 

[hanphong_2008]

cám ơn các bác nhiều lắm, mình chưa biết về VBA, theo sự hướng dẫn của các bác thì mình đã làm được rồi

Bây giờ mình muốn code đó được áp dụng cho cả cột thì làm thế nào ạ

Cột A và cột B đều có giá trị còn Cột C là MAX

 

[hanphong_2008]

Có cách nào không vậy các bác ?
Hay phải code liên tiếp
[C1] = Application.Max([A1], [B1], [C1])
[C2] = Application.Max([A2], [B2], [C2])

....

[C100] = Application.Max([A100], [B100], [C100])
???

 

[Quang_Hải]

Có cách nào không vậy các bác ?
Hay phải code liên tiếp
[C1] = Application.Max([A1], [B1], [C1])
[C2] = Application.Max([A2], [B2], [C2])

....

[C100] = Application.Max([A100], [B100], [C100])
???

Sub Auto_Open()
Dim data(), i&
data = Range("A1", [C65536].End(3)).Value
For i = 1 To UBound(data)
   If data(i, 1) > data(i, 3) Then
      If data(i, 2) < data(i, 1) Then
         data(i, 3) = data(i, 1)
      End If
   ElseIf data(i, 2) > data(i, 3) Then
      data(i, 3) = data(i, 2)
   End If
Next
[A1].Resize(i - 1, 3) = data
End Sub