Page 1 of 1
[OT] Zistenie pozicie bunky v Exceli pomocou AutoHotkey
Posted: 2007-02-15, 16:15 UTC
by eddy
Zdravim vsetkych. Vie mi please niekto dat osvedcenejsi recept na zistenie aktualnej pozicie aktivnej bunky v Exceli ?
Skusal som to v aktivnom okne pomocou:
ControlGetText, Bunka, Edit1
Takmer so 100% istotou je vysledkom prazdny retazec.
Zanedbal som nieco?
Diky za kazdy tip
edo
Posted: 2007-02-15, 22:54 UTC
by Hacker
Heh, tak si sa na AHK fore dopracoval tam kam aj ja.
Jedine, na co som dosiel, je bud:
Vlozit - Nazov - Menovka
alebo:
Nastroje - Hladanie riesenia.
HTH
Roman
P.S.: Daj si prosim pred nazov temy "[OT]" ako off-topic. Mozes to spravit editovanim svojho prispevku. Dik.
Posted: 2007-02-16, 13:13 UTC
by eddy
Oups, tak to je troska necakana komplikacia. Skusim to este trocha potrapit.
Ale nevadi, v kazom pripade ti Roman dakujem za odpoved i riesenie
Edo
Posted: 2007-02-16, 22:12 UTC
by Hacker
Rado sa stalo.
Roman
Posted: 2007-02-19, 07:51 UTC
by kamowski
pracujem sem tam s excelom, ak napíšeš, čo tým chceš dosiahnuť, možno budem vedieť poradiť
Posted: 2007-02-19, 09:11 UTC
by eddy
2
kamowski
Nooo, v podstate to potrebujem na uplne trivialnu vec. Nakolko som to vsak nevedel realizovat v samotnom exceli (ine elegantnejsie riesenie som nenasiel), chcel som si pomoct pomocou AHK, pretoze sa mi paci cim dalej viac, a to ho poznam mozno 3-tyzdne, vdaka tomuto foru
>> Chcel by som mat nastavene formatovanie v urcitych bunkach tak, ze ked pisem napr male znaky "abcd..." pise mi rovno "ABCD...". Nechcel som to riesit pomocou makra alebo VB, pretoze odozvu potrebujem okamzite.
Ak ta napada nejake elegantne riesenie, tesim sa nan
diky
edo
Posted: 2007-02-19, 13:58 UTC
by kamowski
No to bude problém.
Excel nemá podporu pre funkciu "všetky veľké" ako je vo worde. (bohužiaľ)
Jediná možnosť, ktorá ma napadá je :
1) upraviť alebo vyrobiť si fonty a nainštalovať
2) v excely pomocou Ctrl vybrať všetky bunky ktoré potrebuješ
3) Formát - Bunky - Písmo a tu nastaviť tvoje písmo
Ak máš niekde v PC písmo, ktoré ti vyhovuje máš to ľahké, ak nie, treba sa s tým pohrať alebo ich niekde stiahnuť.
Lepšie som to nevymyslel, sorry.
Ešte sa ozvem, ak niečo nájdem a ty mi napíš, ako si to vyriešil.
Posted: 2007-02-20, 09:05 UTC
by eddy
Mna zvycajne napadaju veci, ktore sa tazsie realizuju
Ale to s tym fontom je vcelku originalne riesenie. Asi pohladam na starom HDD font editor a pustim sa do editacie. Naposledy som to robil pred par rokmi.
AHK som vsak este uplne nezavrhol, zistil som totiz, ze pokial pred samotnym citanim edit boxu Edit1 nan kliknem mysou a az nasledne citam hodnotu, precita mi AHK korektne suradnice. Nie je to vsak este uplne to prave orechove, pretoze ak mam rozpisany text v bunke, a kliknem mysou inde, vlastne aktivnu bunku opustim. Ked bude cas, vyskusam este ine kombinacie ak ma napadnu.
ed
Posted: 2007-02-20, 12:07 UTC
by kamowski
Ak sa ti podarí spraviť tie fonty, daj ich sem, aby som si ich stiahol. Ja sa ich úprave nevenujem ale môžu sa zísť.
Posted: 2007-02-20, 19:50 UTC
by Hacker
Potom pozor na copyright.
Roman
Posted: 2007-05-16, 09:03 UTC
by Rabbitek
eddy wrote:2
kamowski
>> Chcel by som mat nastavene formatovanie v urcitych bunkach tak, ze ked pisem napr male znaky "abcd..." pise mi rovno "ABCD...". Nechcel som to riesit pomocou makra alebo VB, pretoze odozvu potrebujem okamzite.
Ak ta napada nejake elegantne riesenie, tesim sa nan
diky
edo
Mozna to uz neni aktualni, ale teprve ted jsem se prihlasil do tohoto fora a procitam si zpetne prispevky. Jedno takovy, podle me pomerne elegantni, reseni me napadlo, a je to pomoci VB a i je tam okamzita odezva (ihned po opusteni editovane bunky klavesou Enter nebo sipkou)
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast As Range
'definice sledované oblasti
Set Oblast = Range("A1:D5")
'test výběru
If Union(Oblast, Target).Address = Oblast.Address Then
Target.Value = UCase(Target.Value)
End If
End Sub