< návrat zpět

MS Excel

Téma: Smazat pokud se buňka nerovná rss

Zaslal/a fostercz 31.1.2013 11:32

Zdr@vim potřebuji poradit jak přepsat tenhle kod

Sub smazpokudsenerovná1()
For Each cell In [A2:A10]
If Not cell.Value = 1 Then cell.ClearContents
Next cell
End Sub

Tenhle kod vymaže obsah buňky podud se obsah nerovná 1

Ale já potřebuji zapsat aby vymazal obsah buňky pokud se nerovná 1 a 2.

Prostě podmínka když není obsah 1 nebo 2 tak ClearContents.

Děkuji za rady předem.

Zaslat odpověď >
marjankaj(31.1.2013 11:43)#011300
avatar
If Not (cell.Value = 1 or cell.Value = 2) Then cell.ClearContents

Alebo

If (cell.Value <> 1 and cell.Value <> 2) Then cell.ClearContentscitovat
fostercz(31.1.2013 11:49)#011301
avatar
Bomba bylo mi jasné že tam bude or ale neviděl kde závorky moc děkujucitovat

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

Týden v roce

Petr92 • 16.7. 15:34

Řazení podle času v kategoriích

veny • 16.7. 11:34

špatný výpočet ze zisku - příčina?

Anonym • 12.7. 22:56

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35

Řazení podle času v kategoriích

Marekh • 12.7. 9:55

Porovnávací Tabulka

Jess • 8.7. 20:49

Vzorec pro zkopírování obsahu buňky.

veny • 6.7. 8:28