U prvního dotazu si nejsem jist co vlastně potřebujete aby to dělalo a u toho druhého nevím, k čemu by se to dalo použít. Procedury lze volat pomocí Call a proměná na ně snad ani není třeba.
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: označení sloupce
MS Excel
Téma: označení sloupce 
Zaslal/a paveku 27.8.2010 7:21
Prosím o radu,
lze získat označení sloupce aktivní buňky pomocí písmena. Nemyslím tím přiřazení k číslu sloupce jako 1=A 2=B ...
A druhý dotaz, lze do proměné přiřadit název procedury?
1. asi jsem to blbě napsal. Potřebuji odkaz na aktuální sloupec pomocí písmena a ne pomocí čísla sloupce, aby jsem mohl použít v msgbox srozumitelnější hlašení pro uživatele.
2. při stisku tlačítka volám jinou proceduru, která mění barvu tlačítek a jako parametr chci použit název tlačitka
Sub tl_Nazev_Click()
mujFiltr 1, tl_Nazev
End Sub
Sub mujFiltr(strSloupec As Integer, Tlacitko As Object)
Tlacitko.BackColor = &H80000003
End Sub
je to jen příklad. Místo parametru tl_Nazev použit odkaz na název procedury tl_Nazev.
2. při stisku tlačítka volám jinou proceduru, která mění barvu tlačítek a jako parametr chci použit název tlačitka
Sub tl_Nazev_Click()
mujFiltr 1, tl_Nazev
End Sub
Sub mujFiltr(strSloupec As Integer, Tlacitko As Object)
Tlacitko.BackColor = &H80000003
End Sub
je to jen příklad. Místo parametru tl_Nazev použit odkaz na název procedury tl_Nazev.
Ahoj,
první řádek = první dotaz
druhý řádek = snad pomůže s druhým dotazem, tady si nejsem jistej :-)
MsgBox Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$", vbTextCompare) - 2)
MsgBox Application.Caller
M@
první řádek = první dotaz
druhý řádek = snad pomůže s druhým dotazem, tady si nejsem jistej :-)
MsgBox Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$", vbTextCompare) - 2)
MsgBox Application.Caller
M@
U toho prvního si nejsem jist, zda se na sloupec dá odkázat pomocí písmena.. Pouze objekt typu Range má možnost udělat odkaz pomocí Range("A:A") a tím se myslím celý sloupec A. Aby ti Excel ale vrátil písmene sloupce, to sem nikdy nepoužil, ani nevím o metodě. Jedině zjistit číslo sloupce a potom někde vedle vytvořit převodovou tabulku (pokud tedy nemáš 10tky sloupců) a podle indexu hlásit příslušné písmeno.
U toho druhého musí být to tlačítko vložené pomocí VBA ve formuláři. Pokud vložíš tlačítko pomoci Tools v excelu, není možné se na něj přes VBA dostat. Není to problém jenom tlačítka ale všech controls vkladaných do excelu. Pokud to máš na formuláři, tak by to mělo fungovat viz příloha
U toho druhého musí být to tlačítko vložené pomocí VBA ve formuláři. Pokud vložíš tlačítko pomoci Tools v excelu, není možné se na něj přes VBA dostat. Není to problém jenom tlačítka ale všech controls vkladaných do excelu. Pokud to máš na formuláři, tak by to mělo fungovat viz příloha
Příloha: 
2287_tlacitko_barva.zip (10kB, staženo 22x)
2287_tlacitko_barva.zip (10kB, staženo 22x)Kocimu, pomocí range není nutné označovat celý sloupec, či oblast, lze použít třeba i jen pro jedinou buňku range("A3") - konkrétní buňka srozumitelně označena, aniž by člověk musel počítat sloupce :-) - ono využití se najde ;-)
M@
M@
Díky za reakce. Chtěl jsem univerzální proceduru, abych nemusel ručně měnit parametry.
Pro info:
V excelu mám pomocí ovládacích prvků vytvořené příkazové tlačítko a bez problému mu měním barvu pomocí vba (viz kod výše tlačítko).
Pro info:
V excelu mám pomocí ovládacích prvků vytvořené příkazové tlačítko a bez problému mu měním barvu pomocí vba (viz kod výše tlačítko).
Já si nemůžu pomoct, ale mě to nejde. Když přímo do excelu vložím tlačíto, tak se na něj nemám jak odkázat. Nikdy ani není definovaný jeho název nebo adresa. Když si to vložím na UserFrom, tak je to jasné..
UserFrom1.tlacitko1.backcoloor = ...
To je mi jasné, ale jak se odkážu na tlačitké, které je vložené přímo na excel nevím...
UserFrom1.tlacitko1.backcoloor = ...
To je mi jasné, ale jak se odkážu na tlačitké, které je vložené přímo na excel nevím...
přiřadíš tomu tlačítku makro (to jde) do makra vložíš:
MsgBox Application.Caller
pak klikneš na tlačítko a v tu ránu víš jak se jmenuje a můžeš s ním pracovat.
M@
MsgBox Application.Caller
pak klikneš na tlačítko a v tu ránu víš jak se jmenuje a můžeš s ním pracovat.
M@
Tak jsem dle tvé rady provedl a MsgBox mi vypsal: Tlačítko 198
Jak to použít nevím, když VBA nemá rádo mezery. Je na to ještě nějakej další trik, jak se i přes toto dostat? 
Jak to použít nevím, když VBA nemá rádo mezery. Je na to ještě nějakej další trik, jak se i přes toto dostat?
Pak už s tím pracovat lze např:
ActiveSheet.Shapes("Tlačítko 198").Left = 0
M@
ActiveSheet.Shapes("Tlačítko 198").Left = 0
M@
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články