Cube alias "Cube" funguje nevím proč je tomu tak to jsem někde opsal, zkoušel jsem různé funkce s různými typy parametrů , s více parametry vše funguje, akorát funkční hodnota musí být double.
Následující kód funguje bezvadně
Kód freebasic
Function Cube alias "Cube" (Byval Strana as double) As double Export
cube=Strana^3
end function
Kód VBA
Declare Function Cube Lib "C:\Moje_prg\DLL\pok.dll" Alias "Cube@8" (ByVal Strana As Double) As Double
Posílám přeloženou knihovnu, jinak jsem to zkoušel v immediate.
Ne jako parametr je hodnota integer, výsledkem funkce je string.
Zkusím to, ale nemyslím, že to bude mít dobrý výsledek.
Pokud je výsledkem číselná hodnota, vše funguje perfektně.
Pokud není funkční hodnotou string, vše funguje bezvadně. Při pokusu použít string excel zkolabuje.
Kód Freebasic
Function Pokus alias "Pokus" (Byval cislo as integer) As string Export
select case cislo
case 1
Pokus="jedna"
case 2
pokus="dvě"
end select
end function
Kód Vba
Declare Function Pokus Lib "C:\Moje_prg\DLL\pok.dll" Alias "Pokus@4" (ByVal cislo As Integer) As String
Díky, ale zjistil jsem že těch problémů může být mnohem více. Nakonec jsem to vyřešil tak, že uchovávám zaálohu po každém řádku tabulky a v záloze je posledních deset stavů.
Tím bych mohl provést undo bez událostní procedury. Ještě bych potřeboval zakázat ctrl Z
Dobrý den,
potřeboval bych zajistit, aby se událostní procedura nevykonala při změně buňky pomocí undo
Možná, že to bude jasnější z tohoto
Díky moc s tím tagem mě to nakoplo, místo tagu jsem použil barvu buňky a funguje to perfektně. Jedná se sběr naměřených dat. Abych si udržel pořádek v jednotkách zapisuji hodnoty do tabulky v základních jednotkách ,např ve voltect zobrazení údaje je je určeno formátem buňky např 0.00, pro kilovolty. V ojedinělých případech automatické vyhodnocení selže. Údaj je nutno doplnit ručně. Abych v tomto případě nemusel psát místo 25400 místo 25,4 je při ručním zápisu vložená hodnota přenásobena konstantou dle formátu buňky.
Custom properties slyším poprvé. Ale napadlo mě něco jiného. Před zápisem do buňky z programu změním barvu buňky, to nevyvolá událostní proceduru, dále po naplnění daty otestujiu barvu podle barvy vyberu v událostní proceduře variantu, jak s buňkou naložit a pak vrátiím barvu zpět.
Dobrý den,
lze v uvedené proceduře zjistit, zda hodnota buňky byla změměna programem, nebo zapsána z klávesnice ?
Díky, pokusím se to pochopit
Dobrý den,
potřeboval bych něco takového
do until fileexist("C:\pokus.txt")
' když ses moc dlouho nedočkal ukonči pomocí ESC
loop
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.