MS Excel

@eLCHa
No jeden by si myslel, že NOW sa bude správať rovnako v liste aj v kóde.
Vďaka tomuto fóru sa človek dozvie zaujímavé veci, ktoré by ho ani nenapadli.citovat

Drobná oprava kódu od eLCHa:

Dim nTime As Double, tj. Single nestačí

Ostatně Evaluate, jak eLCHa ukázal, je způsob, jak se dostat i k ostatním funkcím listu kromě těch vybraných pod WorksheetFunction. Na druhou stranu, maticové vzorce Evaluate třeba dost dobře nedává. Dříve jsem také k těmto účelům zneužíval i definované názvy (což je také jedno z míst, kde lze použít Excel4Macro funkce).

Jsou v tom další ale. K některým funkcím se jde drze dostat přímo pod Application, typicky vyhledávací funkce, kdy Error spadne do proměnné, ale nevyskočí žádná hláška.

Jinak nevěřte tomu, že funkce na listu fungují stejně, jako jejich protějšky pod VBA. Ve skutečnosti ve většině případů fungují rozdílně. Ve VBA jsou i jiné limity pro datum. Operátory se leckdy také chovají jinak (MOD aj., který funguje jinak na záporné ose oproti funkci MOD na listu). Stejně tak existují rozdíly mezi já nevím WorksheetFunction.IsNumber a IsNumeric pod VBA. Ono začal bych tím, že PRAVDA (True) pod VBA odpovídá hodnotě -1. Opět, jak víceméně píše eLCHa, VBA a jeho trapný matematický model (VBA.Math z dob Vïsual Basicu 6) nemá nic společného s funkcemi listu.citovat

diky, vse funguje, jen mam problem, ze kdyz zkopiruji vysledky stopek do jine tabulky, nechovaji se mi vysledky jako cislo, jak je prevest na cislo?
nebo v te vysledkove tabulce, jak nastavit, at to neni cislo, ale time?
stopky:

Sub stopTimer()

nr = ThisWorkbook.Sheets("stopky").Cells(Rows.Count, 6).End(xlUp).Row + 1

Cells(nr + k, 1).Value = k + 1
Cells(nr + k, 2).Value = Range("E3").Value
Cells(nr + k, 3).Value = Format(tCasZacatek - Now, "h:nn:ss,") & Format(Timer * 100 Mod 100, "00")
Range("E3").Value = 0
Range("E3").Select
k = k + 1
End Sub

tabulka.
.
.
UserForm1.TextBox2.Text = Replace(Cells(i + 1, 3).Text, ",", ".")
.
.citovat

dekuji, dle vasich rad jsem to nejak upravil a funguje tocitovat