VBA Excel přepis výsledku v určité buňce
Napsal: 17 říj 2015 11:15
Ahoj, snažím se udělat ve VBA v Excelu program který počítá údaje kosého válce. Problém je v tom, že výsledky mi to píše v dané buňce valec1, ale já bych potřeboval aby to přepisovalo dané buňky jako např. V nebo h. Předem děkuju!
Function valec1(r, h, S, V)
If r > 0 And h > 0 Then
V = valec1
valec1 = (r * r * h * 3.14)
ElseIf V > 0 And r > 0 Then
h = valec1
valec1 = V / (3.14 * r * r)
ElseIf V > 0 And h > 0 Then
r = valec1
valec1 = (V / (3.14 * h)) ^ (1 / 2)
End If
End Function
Function valec1(r, h, S, V)
If r > 0 And h > 0 Then
V = valec1
valec1 = (r * r * h * 3.14)
ElseIf V > 0 And r > 0 Then
h = valec1
valec1 = V / (3.14 * r * r)
ElseIf V > 0 And h > 0 Then
r = valec1
valec1 = (V / (3.14 * h)) ^ (1 / 2)
End If
End Function