Wpis z mikrobloga

@kris27:
pod "??" wstaw jakieś wartości
tak na szybko jak ja bym to zrobił:
3.
Dim d As Long
Dim x As Double
d = InputBox("Podaj numer wiersza")
x = WorksheetFunction.Min(Rows(d))
MsgBox "Najmniejszą wartością w wierszu " & d & " jest liczba " & x & ".", vbInformation

4. dim x,y,z as double
x = ??
y = ??
z = ??
If x > y And x > Z