Iskanje napačnih imen makrov

Pomoč pri delu z MS Excelom
Odgovori
dragopre
Prispevkov: 85
Pridružen: To Dec 11, 2012 11:46 pm

Iskanje napačnih imen makrov

Odgovor Napisal/-a dragopre »

Pozdravljeni!
V delovnem zvezku imam več gumbov, na vsakega je vezan določen makro.
Zaradi "nereda" v kodi sem makre preimenoval, pri gumbih pa sem nekje pozabil popraviti definicijo "Priredi makro".
Ali obstaja kakšen način, da dobim pregled vseh klicev ( Gumb/gradnik in makro, ki ga gumb zaganja).
Ali kaj podobnega, kot je iskanje besedila po kodi?
ps.
Vem, izogibati bi se moral preimenovanj.
Problem pa je pri razmeroma obsežni kodi in veliko dodelav, imena pa postanejo zavajajoče.

Hvala za pomoč in lep pozdrav
Drago
admin
Site Admin
Prispevkov: 3594
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Iskanje napačnih imen makrov

Odgovor Napisal/-a admin »

Pozdravljeni,

Relativno preprosto:
  1. Sprehodite se skozi vse liste
  2. Na vsakem listu se sprehodite skozi vse oblike na listu (gumb je oblika - Shape)
  3. Za vsako obliko izpišite ime lista, kjer se nahaja / ime oblike (gumba) / funkcijo, ki jo kliče
Ti korak v VBA kodi pa izgledajo takole:

Koda: Izberi vse

Sub izpisiKajKlicejoElementi()
  Dim list As Worksheet
  Dim shp As Shape
  
  For Each list In ActiveWorkbook.Worksheets
    For Each shp In list.Shapes
      Debug.Print list.Name, shp.Name, shp.OnAction
    Next
  Next
End Sub
lp,
Matjaž Prtenjak
Administrator
dragopre
Prispevkov: 85
Pridružen: To Dec 11, 2012 11:46 pm

Re: Iskanje napačnih imen makrov

Odgovor Napisal/-a dragopre »

Hvala, sem že preveril. Krasno,
Joj, nisem poznal te uporabe Debug-a

Lep pozdrav
Drago
Odgovori