• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

To asi dobre nepôjde.
Riešenie by som videl v tomto.
Skopíruj si iba formáty na samostatný list. Môžeš ho potom aj skryť.
A potom si ich môžeš obnoviť naspäť.

Takto?

Alebo takto.
Dátum sa ukladá v bunke A1

A čo takto?

Treba vymazať bunku A1

do C
=if(b1="m";a1;"")

do D
=if(b1="ž";a1;"")

IF=KDYŽ

@opičák
Urobil si to presne podľa zadania.
Ale myslím že to bude mať pre zadávateľa podobný efekt ako u toho čo vie anglicky iba dve slová "fuck" a "shit". Málokedy príde na to reč.

Vyznač myšou bunky C18-C19.
Potom stlač CTRL a pri stlačenom CRTL postupne vyznač F18-F19, G18-G19, H18-H19, I18-I19 (nevyznačuj naraz celú oblasť F18-I19!!!! Ale postupne po jednotlivých stlpcoch)
A na záver naformátuj bunky > zarovnanie(zlúčenie)

Myslím, že pri zoznamoch sa predpokladá, že v prvom riadku sú menovky. Teda prvá jednotka je ako názov stlpca.

@Opičák
Asi sme sa nepochopili.
Zapísať do C1 (C2,F1,F2) samozrejme ide, ale do D1 a E1 už nie. Tie zostanú prázdne. A práve toto robí "bordel".

@Opičák
No pred zlúčením do nich zapíšem, ale po zlúčení sa mi vmažú, okrem prvej bunky.
A ani makrom sa mi nepodarilo zapísať do zlúčených buniek.

A s tými zlúčenými bunkami sa dá dosť ťažko pracovať.

Na opakované zlúčenie by som použil takýto postup.
1. vyznačíš bunky, ktoré chceš zlúčiť
2. dáš formátovať a vyberieš zlúčiť(pravým tlačítkom myši)
3. vyberieš ďalšiu oblasť a stlačíš F4
4. opakuješ krok č.3

@eLCHa
To mi nenapadlo.
Robil som to manuálne a nepustilo ma to na iný list. Tak som sa ďalej ani nesnažil.

zrýchliť takto?

Je to také neučesané. Snáď postačí.
Spusti ALT+F8

Síce netuším, načo je to dobré.
Skús dať na list tento kód
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Value = Selection.Value + 1
End Sub
A dvojklikom na bunku sa ti pripočíta 1.
Môžeš si dať aj podmienku, aby ti to nerobilo vo všetkých bunkách.

Sheets("Data").Cells(radek,3).Value = Sheets("Kurz měn").Range("P3").Value

Možno si chcel namiesto
radek = B2 + 5
dať
radek = range("B2").value + 5

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse