Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, H(1 To 3, 1 To 1)
Set Zmena = Intersect(Target, Range("B1:B3"))
If Not Zmena Is Nothing Then
With Zmena.Cells(1)
If IsEmpty(.Value2) Then
H(1, 1) = Empty: H(1, 1) = Empty: H(3, 1) = Empty
Else
Select Case .Row
Case 1: H(1, 1) = .Value2: H(2, 1) = H(1, 1) * 5.6: H(3, 1) = H(2, 1) * 17.8
Case 2: H(2, 1) = .Value2: H(1, 1) = H(2, 1) / 5.6: H(3, 1) = H(2, 1) * 17.8
Case 3: H(3, 1) = .Value2: H(2, 1) = H(3, 1) / 17.8: H(1, 1) = H(2, 1) / 5.6
End Select
End If
End With
Application.EnableEvents = False
Range("B1:B3").Value2 = H
Application.EnableEvents = True
Set Zmena = Nothing: Erase H
End If
End Sub
Naposledy upravil elninoslov : 11.01.18 at 07:59
Ci sa objavi alebo nie osetri funkciou isnumber, isformula.
Zablokovat editacia sa da, klikni Help a napis "field protection". Dostanes navod, rady, napovedu.
Ale suhlasim so sthruskom, ze je to podivne (nezmyselne) aby si si zrusil vzorec v B3, tak radsej tie spatne prepocty rob inde, napr. E1, E2, E3.