[OT] Zistenie pozicie bunky v Exceli pomocou AutoHotkey

[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

[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.

[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

[Hacker]

Rado sa stalo.

Roman

[kamowski]

pracujem sem tam s excelom, ak napíšeš, čo tým chceš dosiahnuť, možno budem vedieť poradiť

[eddy]

2kamowski
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

[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.

[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

[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ť.

[Hacker]

Potom pozor na copyright.

Roman

[Rabbitek]

2kamowski
>> 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