Martin
]]> Myslím, že nyní máte vše potřebné. Pokud budete chtít něco dalšího otevřete prosím nové vlákno. Tohle už není aktuální časem ani obsahem.
Osobně jsem rád, že se někdo pokouší dělat něco praktického se standardními příznaky dobrého programu. Je potřeba plno šablon na různé věci. Přeju úspěch a radost z práce.
ListBox1 = oDialog1_upraveny.GetControl("ListBox1")
MsgBox listbox1.Dbg_Properties
msgbox "počet položek v seznamu "+listbox1.itemcount
msgbox "pozice vybrané "+listbox1.selecteditempos
Cell = Sheet. getCellByPosition ( 0 , 4 )
msgbox "vybraná "+listbox1.selecteditem
Cell.string = ListBox1.selecteditem
nerozumím poznámce "Datum výpisu - tohle má nastavení - nesmí tu být 1.3.2015" já to tam nepsal, skočí to tam automaticky jako aktuální datum
]]> Když se mrknete do toho vzoru tak tam uvidíte jak se hodnoty dostanou do MsgBoxu. Místo MsgBoxu tam dáte buňku přímo, nebo proměnnou - nepřímé vložení.
Já mrknu teď na ten Váš soubor a navrhnu opravu a zápis pomocí SELECT .. CASE. I když si nejsem jist, jestli to tak budete chtít.
S formáty si příliš starosti nedělejte. Tohle se řeší většinou až v sešitě. Nastavení buněk se kontroluje makrem na formát. Také to někde mám ale musím hledat.
Vzor - upravená nápověda
dim currpay as string rem měna platby (proměnná, není potřeba deklarovat jako buňku)
...
currpay = dlg_hodnoty.model.dcurrpay_val.text pokud je v dialogu pole typu TextField, příkaz projde, pokud je tam ListBox, hlásí chybu Metoda nenalezena