Ve formuláři by nemuselo být tlačítko "proveď změny", změna by mohla nastat ihned po volbě.
Reálné to určitě je třeba takto.
V Module je ještě makro pro vymazání stávajícího obrázku, pokud tam nějaký je.
Takhle by to mohlo fungovat, ale makro si musiš napsat podle tohoto principu.
Private Sub UserForm_Click()
n = 1
On Error GoTo konec
Do
Sheets("List1").Cells(n, 1) = Controls("TextBox" & n)
n = n + 1
Loop
konec:
MsgBox " neni vice Textboxu"
Unload Me
On Error GoTo 0
End Sub
edit: to vše za předpokladu, že TextBoxy nebudou mít různé názvy.
Ještě je jedna možnost. Může zůstat nula, ale v nastavení Excelu Soubor>Možnosti>Upřesnit najdi a zruš zaškrtnutí pro zobrazovat nulu. Z Tvého požadavku není úplně jasné, zda chceš prázdné buňky nebo jen neviditelné nuly.
" "
tak jo.
to eLCHa:
Pokud použiju Tvůj zápis:
C:\Users\User\Documents\Excel s mezerou.xlsm, tak mě to napíše:
C:\Users\User\Documents\Excel
adresář nenalezen
samozřejmě i za předpokladu, že si takový adresář "namaluju". Prostě v první mezeře to utne a pracuje jen s první částí cesty. Co je za mezerou ignoruje. Čím to je nevím.
edit:
pokud použiju svůj zápis, tak funguje
mám Win 8 a Off 2010
Obávám se, že už to nechápu vůbec.
Nevím kde se bude co zapisovat, tedy co má být tím impulsem k počítání a ani jsem nepochopil v jaké každé osmé buňce. Zkus napsat v jaké konkretni bunce se má co objevit.
Ctrl C v nějakým obrázkovým prohlížeči a Ctrl V v Excelu a nebo v menu Vložit>Obrázek....
to eLCHa:
takto prostě by to šlo za předpokladu, že máš názvy adresářů bez mezer, tak jak jsi to napsal. Pokud máš adresář C:\holky z naší školky\Nejaký Excel.xlsm tak to nestartuje
Nebylo to zadání původně jinak ???
Až teď jsem si všiml, že výsledek má být asi v A18
Možná jsem to nepochopil, ale použil jsem jiné fce.
nebo pokud chceš přímo soubor tak to samé
nastavit cestu
a start jméno souboru
příklad
@echo off
chdir C:\dokumenty_moje\excel_priklady
start cyklus.xlsm
jde to i bat-em
zapiš cestu podle sebe
@echo off
chdir C:\Program Files (x86)\Microsoft Office\Office14
start excel.exe
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.