Nejake makro by nebylo tezke napsat, otazka je, co myslite neuzamcenou bunkou, protoze v excelu je standardne uzamcena kazda bunka (ale uzamceni se projevi az po zamknuti listu)citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Zmazať obsah buniek
MS Excel
Téma: Zmazať obsah buniek 
Zaslal/a mancal 15.11.2010 16:44
Dobry den vsetkym, mam jeden maly dotaz:
Existuje v xls. prikaz, (alebo makro na prikazove tlacitko) ako hromadne zmazať obsah vsetkých "NE-UZAMKNUTYCH" buniek.
Dakujem
Dobry den. ano presne. Mam uzamknute bunky len tie ktore sa nemozu menit. List je uzamknuty v kazdej bunke v ktorej sa nemozu vykonat zmeny. Povolene su len zmeny vo vybranych neuzamknutych bunkach v ktorych je povolene dopisovať hodnoty. Je ich asi 20(neuzamknutých)
momentalne ich treba po jednom mazat a stava sa ze niektora bunka sa zabudne zmazat a figuruje v dalsom dokumente. Chcel by som poradit makro na prikaz:
Zmaž hodnoty v neuzamknutych bunkach. Dakujemcitovat
momentalne ich treba po jednom mazat a stava sa ze niektora bunka sa zabudne zmazat a figuruje v dalsom dokumente. Chcel by som poradit makro na prikaz:
Zmaž hodnoty v neuzamknutych bunkach. Dakujemcitovat
Ahoj. Zkus třeba něco takového.
Pojmenuj si oblast. Zmačkni CTRL + klepej na buňky, které budeš chtít smazat. (nebo přes SHIFT ozneč celou oblast) Pak vlevo nahoře v "Poli názvu" napiš smysluplný název. třeba "VolneBunky" a stiskni Enter. Přesvěč se, že když rozklikneš "Pole názvu", že se tam Tvůj název zobrazí.
Napiš něco do buněk ...
1. verze mazání
Klikni na "Pole názvu" a vyber "VolneBunky".
Stiskni Delete
2. verze mazání
Udělej si tlačítko na listě a do procedury napiš
Sub SmazOblast()
With Worksheets("List1")
.Activate
.Range("VolneBunky").ClearContents
ActiveCell.Select
End With
End Sub
R.citovat
Pojmenuj si oblast. Zmačkni CTRL + klepej na buňky, které budeš chtít smazat. (nebo přes SHIFT ozneč celou oblast) Pak vlevo nahoře v "Poli názvu" napiš smysluplný název. třeba "VolneBunky" a stiskni Enter. Přesvěč se, že když rozklikneš "Pole názvu", že se tam Tvůj název zobrazí.
Napiš něco do buněk ...
1. verze mazání
Klikni na "Pole názvu" a vyber "VolneBunky".
Stiskni Delete
2. verze mazání
Udělej si tlačítko na listě a do procedury napiš
Sub SmazOblast()
With Worksheets("List1")
.Activate
.Range("VolneBunky").ClearContents
ActiveCell.Select
End With
End Sub
R.citovat
Dik za odpoved ale zatial mi hlasi chybu: Run-time error 1004 pri .Range("VolneBunky").ClearContents
Sub Tlačidlo518_Kliknúť()
With Worksheets("Elekt_formular")
.Activate
.Range("VolneBunky").ClearContents
ActiveCell.Select
End With
End Subcitovat
Sub Tlačidlo518_Kliknúť()
With Worksheets("Elekt_formular")
.Activate
.Range("VolneBunky").ClearContents
ActiveCell.Select
End With
End Subcitovat
Pokud vase UsedRange neni prilis velka (neobsahuje prilis mnoho bunek), lze pouzit tato procedura: Sub smazat()
MsgBox ActiveSheet.UsedRange.Address
For Each cell In ActiveSheet.UsedRange
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub
Pri velkem poctu bunek to bude prilis pomale...
citovat
MsgBox ActiveSheet.UsedRange.Address
For Each cell In ActiveSheet.UsedRange
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub
Pri velkem poctu bunek to bude prilis pomale...
citovatDobry den vsetkym, ano skusam to stale, ale aj tu mi hodi chybu 1004
nemozno zmenit cast zlucenej bunky
debug
cell.ClearContents
dik za snahucitovat
nemozno zmenit cast zlucenej bunky
debug
cell.ClearContents
dik za snahucitovat
Ahoj, tak jsem si taky vyzkoušel a obě řešení jak od RomanNTA tak od Pokiho fungují.citovat
Typnul bych si, že máš zapnutý nějaký filtr (???) ... a nebo spíš, že jsi nevytvořil pojmenovanou oblast. 1004 je myslím, že buňky nebyly žádné nalezené ;-)citovat
vrele dik vsetkym, oba sposoby funguju perfektne. Nepomenoval som spravne pole nazvu- RomanNTA mal pravdu.
Vsetko dobre prajemcitovat
Vsetko dobre prajemcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články