Zavrieť

Porady

Ako vytvoriť hyperbolický odkaz na makro v exceli

Ahoj,
Potrebujem poradiť ako prepojím text v bunke s vytvoreným makrom.
Predstavujem si to tak, že keď kliknem na text v bunke alebo aj na celú bunku tak sa spustí makro. dá sa to vôbec?

Dik moc za pomoc.

A ešte da sa to spravyť aj tak, že by so kliknutí na text spustilo najprv prvé makro a potom druhe makro?
Naposledy upravil ps84 : 28.09.10 at 20:05
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Vyskúšaj si priložený súbor.
    VBA kód - ALT+F11

    Palo

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    ps84 Pozri príspevok
    Dik za pomoc, ale asi som to zle vysvetlil čo potrebujem. Nechcem aby sa makro spustilo po kliknutí na tlačidlo ale po kliknutí na text v bunke. Malo by to fungovať asi tak že po kliknutí napr na tvoj text v bunke C2 (Makro_A) by sa spustilo makro. Asi tak.
    No tak skús toto.

    A medzi nami. Je v tom až taký podstatný rozdiel?
    Naposledy upravil marjankaj : 01.10.10 at 08:30

    ps84 je offline (nepripojený) ps84

    ps84
    Dik za pomoc, ale asi som to zle vysvetlil čo potrebujem. Nechcem aby sa makro spustilo po kliknutí na tlačidlo ale po kliknutí na text v bunke. Malo by to fungovať asi tak že po kliknutí napr na tvoj text v bunke C2 (Makro_A) by sa spustilo makro. Asi tak.

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    PaloPa Pozri príspevok
    Variant môže byť viacero, napr na DblClick
    P.
    Áno môže. To musí zadávateľ upresniť, ako to chce mať. DblClick na dve bunky naraz asi nepôjde. V predchádzajúcom príklade si môže vybrať aj viac buniek a príslušné makrá sa spustia.

    ps84 je offline (nepripojený) ps84

    ps84
    Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali

    a už viem

    Ale aj tak to ešte nieje ok. lebo v bunke musí byť napísaný názov makra aby to fungovalo a ja potrebujem mať v bunke napísane napr. AAA a spusti sa makro PRIDAJ_RIADOK
    Naposledy upravil ps84 : 01.10.10 at 15:52

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    ps84 Pozri príspevok
    Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali
    ALT+F11
    a pozri na list SHEET1

    Je to "procedúra", ktorá sa spustí ak nastanú dané podmienky. V prvom prípade ak urobíš výber oblasti, alebo urobíš dvojitý klik na danú bunku v prípade druhom.

    Ale aj tak si myslím, že je lepšie spúšťať makro tak, ako je to v prvom prípade - tlačítkom. Klikať na bunku nie je až také výrazné, a niekto by to mohol spustiť aj omylom.

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    ps84 Pozri príspevok
    Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali

    a už viem

    Ale aj tak to ešte nieje ok. lebo v bunke musí byť napísaný názov makra aby to fungovalo a ja potrebujem mať v bunke napísane napr. AAA a spusti sa makro PRIDAJ_RIADOK
    Tak si uprav kód

    If x.value="AAA" then
    Application.run PRIDAJ_RIADOK
    Endif
    alebo


    Select Case x.Value
    Case "AAA"
    Application.Run pridaj_riadok
    Case "BBB"
    Application.Run makro1
    Case Else
    Application.Run makro2
    End Select
    Naposledy upravil marjankaj : 01.10.10 at 16:32

    ps84 je offline (nepripojený) ps84

    ps84
    Upravil som to takto ale to asi nebude dobre.




    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x As Range, xObl As Range
    Dim xMacro As String

    On Error GoTo xErr
    Set xObl = Selection
    Set prienik = Application.Intersect(Target, Worksheets("Sheet1").Range("C2:C4"))
    If C2.Value = "AAA" Then
    Application.Run Makro_A
    Exit Sub

    xErr:
    MsgBox "makro s názvom '" & xMacro & "' neexistuje!", vbCritical, "CHYBA"
    Resume Next

    End If


    End Sub

    ps84 je offline (nepripojený) ps84

    ps84
    Je to dobre až na jeden problém, keď si označím riadok alebo stĺpec výberu ("C2:C4") tak sa zažne sam posúvať výber bunky na koniec riadku alebo stĺpca.

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    ps84 Pozri príspevok
    Je to dobre až na jeden problém, keď si označím riadok alebo stĺpec výberu ("C2:C4") tak sa zažne sam posúvať výber bunky na koniec riadku alebo stĺpca.
    Neviem, prečo klikáš na celý stĺpec?
    Radšej použi ten druhý spôsob dvojklik od PaloPa.

    Pred END SELECT vlož toto

    Case Else
    MsgBox " nebolo vybrané žiadne makro."
    Exit Sub
    Naposledy upravil marjankaj : 02.10.10 at 09:52

    ps84 je offline (nepripojený) ps84

    ps84
    neviem prečo ale vyhadzuje mi to chybu ked to makro použijem v inom zošite

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    ps84 Pozri príspevok
    neviem prečo ale vyhadzuje mi to chybu ked to makro použijem v inom zošite
    Uprav si riadok na
    Set prienik = Application.Intersect(Target, Worksheets("Hárok1").Range("A2:A30"))

    Toto funguje iba na liste "Hárok1"

    V pôvodnom bolo uvedené "Sheet1"

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Prípadne si to zovšeobecni pre ľubovoľný názov hárku:
    Set prienik = Application.Intersect(Target, ActiveSheet.Range("A2:A30"))

    ps84 je offline (nepripojený) ps84

    ps84
    čaute

    najprv poďakujem za predošlú pomoc
    a teraz by som potreboval pomôcť ešte s ďalšími vzorcami. Viac v prílohe sú dosť komplikované a neviem či je to vôbec možne spraviť.

    vopred vdaka

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.