Pakrako
10.03.13,17:50
Dobrý deň, vie mi niekto poradiť alp spustiť makro tak, že po napísaní textu a potvrdením klávesou ENTER sa spustí MAKRO VBA EXCEL ? Teraz spúšťam makro samostatným ovládacím tlačítkom ale bolo by to konfortnejšie, keby sa makro spustilo jednoduchšie po stalačení ENTER.
Môžem poslať aj Excel súbor s makrom .
Môžem poslať aj Excel súbor s makrom .
sthruska
11.03.13,07:16
Nie je to vo VBA, ale na inšpiráciu
procedure TfrmBlock.cbbSVBKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
end;
end;
Jednoducho povedané, budeš si testovať stlačené klávesy a keď to bude enter (#13) tak makro spustíš.
procedure TfrmBlock.cbbSVBKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
end;
end;
Jednoducho povedané, budeš si testovať stlačené klávesy a keď to bude enter (#13) tak makro spustíš.
Pakrako
11.03.13,13:14
Dobrý deň, ďakujem za riešenie , ale kde dám názov makra , ktoré sa má spustiť ?
sthruska
11.03.13,13:54
V danej bunke musíš odchytávať stlačenie klávesu a zistiť si jeho hodnotu. Pri #13, čo je enter, spustíš to makro. Čiže tam, kde som ja napísal Key := #0;
Pakrako
12.03.13,09:45
Žialbohu si neviem s tým poradiť ,ale aj tak ďakujem !
Takto som napísal makro
Sub Klav_ENT()
procedure TfrmBlock.cbbSVBKeyPress(Sender: TObject; var Key: Char);
'begin
if Key = #13 then
'Call Makro ======>>> tu som zadal volanie makra , ale nejde to !!
Else
Key = #0 Then
Call Hladaj_meno
End If
End Sub
Takto som napísal makro
Sub Klav_ENT()
procedure TfrmBlock.cbbSVBKeyPress(Sender: TObject; var Key: Char);
'begin
if Key = #13 then
'Call Makro ======>>> tu som zadal volanie makra , ale nejde to !!
Else
Key = #0 Then
Call Hladaj_meno
End If
End Sub
sthruska
12.03.13,10:34
Chlapi, ja mu už viac neporadím :mad:
marjankaj
09.06.13,13:41
Spustenie makra klávesou ENTER je veľmi nepraktické. ENTEr má viac funkcií, ktoré by si tým zablokoval.
Lepšie je využiť klávesové skratky na spustenie konkrétneho makra Napríklad CTRL+m.
Lepšie je využiť klávesové skratky na spustenie konkrétneho makra Napríklad CTRL+m.
PaloPa
10.06.13,16:56
V Exceli to funguje trochu inak.
Ak treba zachytiť stlačenie konkrétneho tlačidla, treba použiť metódu OnKey. (najlepšie pri aktivácii zošita - viď obrázky)
Private Sub Workbook_Activate()
Application.OnKey "{ENTER}", "myMacro" 'numericka klav
Application.OnKey "~", "myMacro" 'velky ENTER
End Sub
Druhý parameter je meno funkcie (definovaná v časti MODULE), ktorá sa spustí po stlačení klávesy.
DOPLNENIE:
Niečo podobné sa tu už riešilo, t.j. pozastavenie makra, ktoré pokračuje až po zadaní niečoho do bunky:
http://www.porada.sk/t211322-makro-excel.html
Sú tam použité Sendkeys.
!!! pre Excel 2003 nemusia Sendkeys pracovať vo Win7 a Win8,
Musí byť vypnuté UAC - dá sa nastaviť v registri cez REGEDIT
viď tento link (http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/95f460a8-d65e-46ad-ab23-f5fcf562b0fa/) (posl príspevok)
P.
Ak treba zachytiť stlačenie konkrétneho tlačidla, treba použiť metódu OnKey. (najlepšie pri aktivácii zošita - viď obrázky)
Private Sub Workbook_Activate()
Application.OnKey "{ENTER}", "myMacro" 'numericka klav
Application.OnKey "~", "myMacro" 'velky ENTER
End Sub
Druhý parameter je meno funkcie (definovaná v časti MODULE), ktorá sa spustí po stlačení klávesy.
DOPLNENIE:
Niečo podobné sa tu už riešilo, t.j. pozastavenie makra, ktoré pokračuje až po zadaní niečoho do bunky:
http://www.porada.sk/t211322-makro-excel.html
Sú tam použité Sendkeys.
!!! pre Excel 2003 nemusia Sendkeys pracovať vo Win7 a Win8,
Musí byť vypnuté UAC - dá sa nastaviť v registri cez REGEDIT
viď tento link (http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/95f460a8-d65e-46ad-ab23-f5fcf562b0fa/) (posl príspevok)
P.