Excel-jak smazat neviditelná textová pole (mnoho)??
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Excel-jak smazat neviditelná textová pole (mnoho)??
Zdravím, řeším takový oříšek. V Excelu /2007/ mám vytvořený nějaký formulář a je hrozně pomalý. Nějakej doveda do něj nasekal hodně, ale opravdu hodně text. polí, které najdu nahodným najetím myši. Nevíte někdo, jak tyto objekty zobrazit, označit a najednou smazat?
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel-jak smazat neviditelná textová pole (mnoho)??
Tato procedura ve standardnim modulu vypise do Immediate Window seznam a umisteni textovych poli na formulari (zmenit nazev frm):
V navrhu frm:
Uprav rozmery frm, pokud jsou textova pole mimo.
V Property Window v rozbalovaci polozce vyber textove pole urcene ke smazani, presun tahem mysi do vhodne polohy (jsou-li text pole na sobe) a Delete.
Kód: Vybrat vše
Option Explicit
Sub UkazTP()
Dim CtrlTB As Control
For Each CtrlTB In UserForm1.Controls
With CtrlTB
Debug.Print .Name; " "; .Left; " "; .Top
End With
Next CtrlTB
End Sub
V navrhu frm:
Uprav rozmery frm, pokud jsou textova pole mimo.
V Property Window v rozbalovaci polozce vyber textove pole urcene ke smazani, presun tahem mysi do vhodne polohy (jsou-li text pole na sobe) a Delete.
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: Excel-jak smazat neviditelná textová pole (mnoho)??
Stačilo by to jednodušeji. Všechna textová pole vymazat. Na nic se neptat, neukazovat je, prostě to vyčistit. Jak tu proceduru pustím a kam ji umístím?
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel-jak smazat neviditelná textová pole (mnoho)??
Ovladaci prvky vlozene do UserForm v rezimu navrhu nelze odstranit procedurou VBA, je nutno je odstranit stejne, jako byly vkladany, tedu rucne.
Proto je navrzena procedura, ktera udela inventuru ( v editoru VBA - Alt+F11 - vlozit do standardniho modulu, upravit nazev UserForm (zvyrazneno) v radku:
...
For Each CtrlTB In UserForm1.Controls
...
. otevrit okno Immediate Window: menu VBA - View>klik na Immediate Window a spustit proceduru F5 (kurzor musi byt na libovolnem radku procedury).
Dalsi postup jak bylo uvedeno drive.
Pokud je tento postup neprekonatelne slozity (bohuzel nic jednodussiho pro selektivni odstraneni nepotrebnych textboxu neni, zvlaste pokud je jejich poloha mimo okraj formulare a jsou poskladany na sebe), pak nezbyva nez navrhnout UserForm znova a nhradit jim puvodni.
Proto je navrzena procedura, ktera udela inventuru ( v editoru VBA - Alt+F11 - vlozit do standardniho modulu, upravit nazev UserForm (zvyrazneno) v radku:
...
For Each CtrlTB In UserForm1.Controls
...
. otevrit okno Immediate Window: menu VBA - View>klik na Immediate Window a spustit proceduru F5 (kurzor musi byt na libovolnem radku procedury).
Dalsi postup jak bylo uvedeno drive.
Pokud je tento postup neprekonatelne slozity (bohuzel nic jednodussiho pro selektivni odstraneni nepotrebnych textboxu neni, zvlaste pokud je jejich poloha mimo okraj formulare a jsou poskladany na sebe), pak nezbyva nez navrhnout UserForm znova a nhradit jim puvodni.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení Flash disku, aby nešel smazat Příloha(y)
od deus.one » 18 čer 2023 17:48 » v Vše ostatní (sw) - 3
- 1553
-
od zeus
Zobrazit poslední příspěvek
19 čer 2023 10:00
-
-
- 16
- 6918
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3693
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 734
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 2323
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti