MS Excel

Téma: Vstup souřadnic

Zaslal/a chipoun 8.4.2011 8:37

Ahoj,
potřeboval bych poradit. Spustím makro, a pak bych potřeboval, ať se otevře okno/formulář ve kterém uživatel zadá souřadnice buňěk s kterými se bude pracovat. V současné době tam mám textboxy do kterých souřadnice vypíše ručně, ale bylo by daleko pohodlnější, kdyby tam bylo tlačítko, tak jako u vkládání např funkcí na které kliknu a buňky vyberu jednoduše přímo v sešitu. Potvrdím a do textboxu by se vepsaly zvolené souřadnice.
Lze tento zadávací režim nějak v makru vyvolat?

Díky

Zaslat odpověď >

Poki(8.4.2011 9:07)#004563

Ahoj,
na tohle se presne hodi ovladaci prvek RefEdit, ktery muzes pridat na UserForm.
Jak potom zachazet s oblasti je velmi snadne. Pokud budes chtit napriklad oblast bunek vybarvit, udelas to takto:
List1.Range(FORM.REF.Value).Interior.ColorIndex = 4
Tucne je vyznacena vybrana oblast...citovat

chipoun(8.4.2011 10:41)#004566

Přesně to jsem potřeboval. Díky moc

A hanba na mě. To jsem přehlídl opravdu blbě :-)

Funguje skvělecitovat

chipoun(8.4.2011 11:51)#004568

Ale ještě si nevím rady. Potřeboval bych pro další potřeby makra číslo vybraného sloupce.

Třeba
MsgBox RefEdit1.Value
funguje skvělě a hodnota je např List1!$J$22:$L$27

Ale co kdybych potřeboval číslo sloupce (Když je větší rozsah, tak číslo prvního sloupce). Jde to nějak udělat? S RefEdit1.column si to neporadí a víc mě nenapadá.citovat

chipoun(8.4.2011 11:57)#004569

Zatím se mi podařilo jen přes okliku
Range(RefEdit1.Value).Select
MsgBox ActiveCell.Column

Ale to není úplně nejelegantnější. Není jiné řešení?citovat

Poki(8.4.2011 12:51)#004570

myslim, ze to pujde takto:
Range(UserForm1.RefEdit1.Value).Columncitovat

chipoun(19.5.2011 9:00)#005015

Funguje mi to dobře.
Ještě bych ale potřeboval poradit. Jak uživateli zakázet (případně jinak to vyřešit) aby nemohl hodnotu vybranou do refeditu přepsat ručně. Protože nasává situace, kdy prvně správně vybere sloupec pomocí minitlačítka. Ale pak ručně klapne nějaký znak nebo něco do toho políčka refeditu. Tím je adresa neplatná a makro mi zhavaruje. Je nějaká rada nato?citovat

Uživatelské menu

Nejste přihlášen(a)

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.