GoldenLine
Zaloguj się

konto usunięte

Temat: Uwaga, pierwszy merytoryczny temat.

Czy to możliwe że w vba nie ma wbudowanej funkcji roundup ?
Bo słyszałem że Twoja stara musi radzić sobie używając funkcji arkuszowej..
Link do wypowiedziLink

konto usunięte

Temat: Uwaga, pierwszy merytoryczny temat.

Function froundp(numvalue As Double)



 'where [Value] is the field name on the form containing the value to be rounded.

 

 'Checks If the value has anything after the decimal point

 'if it does then stop the routine

If (numvalue - Int(numvalue)) <> 0 Then

    numvalue = Round(numvalue + 0.5)

End If



froundp = numvalue



End Function


http://www.vbaexpress.com/kb/getarticle.php?kb_id=424
Link do wypowiedziLink

konto usunięte

Temat: Uwaga, pierwszy merytoryczny temat.

No ma się rozumieć. Pytałem bo nie do wiary żeby tak oczywistej funkcji nie było. Napiszę w tej sprawie do Billa, choć ostatnio jak mu mówiłem że przydałoby się sortowanie tablic to mnie olał.
Link do wypowiedziLink

konto usunięte

Temat: Uwaga, pierwszy merytoryczny temat.

Bill ma to wszystko w poważaniu i za kase co ma chce sobie "kupić" nobla pokojowego, ale mu kiepsko idzie hehe

a tablice możesz symulować dynamicznym recordsetem ADO, ale to nie to samo ;) fakt że działa nawet z filtrowaniemPrzemysław R. edytował(a) ten post dnia 03.07.09 o godzinie 21:22
Link do wypowiedziLink
Grzegorz Melniczak

Grzegorz Melniczak Have you tried
turning it off and
on again?

Temat: Uwaga, pierwszy merytoryczny temat.

Można też


Function RoundUp(x as Double) as Integer

 RoundUp=-Int(-x)

End Function
Link do wypowiedziLink

konto usunięte

Temat: Uwaga, pierwszy merytoryczny temat.

mozna tez application.worksheetfunction.roundup i milion innych sposobów ale chodzi o zasadyHenryk Kutypera edytował(a) ten post dnia 15.04.10 o godzinie 15:53
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

pierwszy!




Wyślij zaproszenie do
Anuluj