Ne znam, kod mene radi, čak i samo sa F9 sada.
RAND sam koristio kao prostiju varijantu jer je poenta bila videti radi li uopšte proračun samo na obeleženim ćelijama.. a to, koju ćeš formulu, lako može naknadno da se podesi. Npr:
Code:
Option Explicit
Function MyRND(ilower As Integer, iupper As Integer) As Double
Dim CallerAddr As String
Dim MySel As Range
Dim hold As Double
CallerAddr = Application.Caller.Address
Set MySel = Intersect(Selection, Range(CallerAddr))
If Not MySel Is Nothing Then
MyRND = Application.RandBetween(ilower, iupper)
Else:
hold = CDbl(Range(CallerAddr).Value)
MyRND = hold
End If
End Function
Naravno, sada će i MyRND zahtevati ulazne veličine, kao RANDBETWEEN.
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!