< návrat zpět

MS Excel


Téma: Editovatelný list při spuštěným inputboxu/msgbox rss

Zaslal/a 9.12.2014 18:09

Ahoj, nevěděl by náhodou někdo, jak při aktivním inputboxu by šlo editovat v listě? Protože při aktivním inputboxu je v procesu makro, který nedovolí sahat do listu a cokoliv v něm dělat.

stop Uzamčeno - nelze přidávat nové příspěvky.

#022715
avatar
A k čemu to potřebuješ?
Tak jak píšeš to zřejmě nepůjde, ale můžeš si např. pomoci vlastním formulářem...
P.citovat
#022722
avatar
Je to kontrola dat v listu a do toho inputboxu má uživatel něco buď vložit nebo opravit stávající, ale nejde to bez toho aniž by se nepodíval na zbytek informací, které přísluší danému "objektu" a jsou uvedeny v listě.citovat
#022723
avatar
Tak to bych určitě řešil přes vlastní formulář. Ten lze zobrazit tzv. modálně, takže umožňuje editaci listu.
P.

Př.:
Load UserForm1
UserForm1.Show Modal
citovat
#022727
avatar
Díky za radu dost mě to posunulo 1 dá se říct, že až na konec, jen teď nevím jak ukončit makro z formuláře. Formulář je vyvolán makrem a hodilo by se mi ukončení celýho makra click buttonem třeba uprostřed samotnýho makra. Bohužel moje řešení je v tuto chvíli takový, že z private subu toho click buttonu (ačkoliv tu schodím formulář) mě to vrací do původního makra, to ukončím, ale zase se to vrátí do k formuláři, následně se to kopne zpět do makra a to pokračuje vesele dál v kontrole. Mám pocit že jsem zkoušel zabít vše, ale marně...citovat
#022728
avatar
To by chtělo vidět v ukázce. Zkus přiložit přílohu.
Jinak ukončení makra lze např. na základě podmínky přes příkaz "Exit Sub".
P.citovat
icon #022730
avatar
@Pavlus: Jinak ukončení makra lze např. na základě podmínky přes příkaz "Exit Sub"
To ovšem nezavoláš z iného makra.

Síce neviem, na čo to má akože slúžiť, ale budiž. V module:Option Explicit

Public Ukonci As Boolean

Sub DoKlikuNaTlacitko()
Ukonci = False
UserForm1.Show 0
Do Until Ukonci = True
DoEvents
Debug.Print Now() 'aby bolo vidiet, ze to nieco robi
Loop
End Sub
V kódovom okne formulára:Option Explicit

Private Sub CommandButton1_Click()
Ukonci = True
Unload Me
MsgBox "Makro ukoncene tlacitkom"
End Sub
citovat
#022738
avatar
Výborně! Toto to chtělo... Děkuji moc za rady.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje