• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Když zvolím např barvu písma bílou, tak nic neuvidím.
Dám-li vyhledat JEŽÍŠEK, tak to skočí na buňku kde je výraz. Také jsem zkoušel hledat = a taky nic

Perfekt, to je přesně to, co jsem potřeboval

Kdyby to bylo barvou, tak to ctrl F najdu

=IF(RIGHT(B2;3)="FIT";"Vzorec1";"vzorec2")

Mám anglické office, česky nevím

potřeboval bych msgbox který jen vydá upozornění a nemusí se potvrzovat. Vygooglil jsem spoustu řešení, ale všechna fungují pouze s časem 1 s a delším. Chtěl bych, aby to jenom probliklo, jako upozornění, že akce proběhla správně.

Dík moc

Chtělbych odložit zálohování v případě složitých výpočtů.

Takže tohle by asi mohlo fungovat


Sub Zaloha()
If Not Application.EnableEvents Then
Application.OnTime Now + TimeValue("00:00:05", "Zaloha")
Exit Sub
End If

' program

End Sub

A co tohle

Neví někdo, co se stane s ontime procedurou, jestliže je nastaveno

Application.EnableEvents = False

a) neprovede se vůbec
b) provede se po povolení událostí
c) Application.EnableEvents nemá vliv

Používám vlastní DLL knihovnu ve které mám napsané uživatelské funkce, které používám v sešitu. Knihovna je napsána ve freebasicu. Je možnost registrovat DLL knihovnu do systému. Jednak nemám administrátorská práva, jednak bych musel knihovnu registrovat na každém počítači, kde jichci použít. Chtěl bych v případě změny umístění knihovny provést změnu v kódu na jednom místě.

Děkuji

Asi jsem špatně formuloval otázku.
chtěl jsem nahradit tento kód

Declare Function Rdol Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "ZateR

něčím takovýmto, což nefunguje


dim knihovna as string

knihovna="A:\Smeny_files\Jupiter\DLL\Jupiter.dll"

Declare Function Rdol Lib knihovna Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib knihovna Alias "ZateR

Dobrý den používám vlastní DLL knihovny. Následujíc´ím způsobem

Declare Function Rdol Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "ZateR@4" (ByVal NR As Integer) As Double


potřeboval bych mít možnost zadat soubor *.DLL jako string proměnnou.

Zkus tohle

Díky perfect

Názvy souborů jsou generovány programen, jedinečnost je zajištěna.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse