Może być np. tak: Sub zadanie_7()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("Podaj pierwszą liczbę")
b = InputBox("Podaj drugą liczbę")
c = InputBox("Podaj trzecią liczbę")
If a < b And a < c Then
Range("C2") = a
ElseIf a > b And a > c Then
Range("C4") = a
Else
Range("C3") = a
End If
If b < a And b < c Then
Range("C2") = b
ElseIf b > a And b > c Then
Range("C4") = b
Else
Range("C3") = b
End If
If c < a And c < b Then
Range("C2") = c
ElseIf c > a And c > a Then
Range("C4") = c
Else
Range("C3") = c
End If
End Sub
Jednak, aby to działało w przypadku wpisywania nie liczb, lub nie wpisywania, będziesz musiał jeszcze pokombinować. |