< návrat zpět

MS Excel


Téma: Zmazať obsah buniek rss

Zaslal/a 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

Zaslat odpověď >

icon #003157
Poki
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
#003161
avatar
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
#003164
avatar
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
#003172
avatar
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
icon #003183
Poki
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... 4citovat
#003184
avatar
Dobry den vsetkym, ano skusam to stale, ale aj tu mi hodi chybu 1004
nemozno zmenit cast zlucenej bunky
debug

cell.ClearContents

dik za snahucitovat
#003187
avatar
Ahoj, tak jsem si taky vyzkoušel a obě řešení jak od RomanNTA tak od Pokiho fungují.citovat
#003198
avatar
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
#003203
avatar
vrele dik vsetkym, oba sposoby funguju perfektne. Nepomenoval som spravne pole nazvu- RomanNTA mal pravdu.
Vsetko dobre prajemcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Výpočet odpracovaných hodin za den

elninoslov • 30.1. 0:35

Výpočet odpracovaných hodin za den

Mikus • 29.1. 21:58

vložit do bunky datum

PavDD • 29.1. 19:47

odkaz na zadanu cestu vba

jano5 • 29.1. 19:41

odkaz na zadanu cestu vba

jano5 • 29.1. 19:29

odkaz na zadanu cestu vba

elninoslov • 29.1. 17:33

odkaz na zadanu cestu vba

Lugr • 29.1. 17:19