..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Iskanje napačnih imen makrov

Pomoč pri delu z MS Excelom

Iskanje napačnih imen makrov

OdgovorNapisal/-a dragopre » Sr jul 17, 2019 4:31 pm

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
dragopre
 
Prispevkov: 75
Pridružen: To dec 11, 2012 11:46 pm



Matjazev.NET
 

Re: Iskanje napačnih imen makrov

OdgovorNapisal/-a admin » Sr jul 17, 2019 8:38 pm

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
admin
Site Admin
 
Prispevkov: 3534
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Iskanje napačnih imen makrov

OdgovorNapisal/-a dragopre » Sr jul 17, 2019 8:57 pm

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

Lep pozdrav
Drago
dragopre
 
Prispevkov: 75
Pridružen: To dec 11, 2012 11:46 pm


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 8 gostov

cron