Příspěvky uživatele
< návrat zpět
nanyuan napsal/a:
nejde mi vložit soubor s ukázkou.prostě a jasně nakopíruj jakoukoliv fotku do excelu a na ní vlož dva různé tvary z nabídky excelu.a tyto dva tvary chci spojit na té fotce.
Chceš spojiť iba tie dva tvary?
Alebo tie dva tvary chceš spojiť s fotkou?
@Dingo.
Tiež si myslím, že on si pod pozadím predstavuje niečo iné.
Urobíš to tak ako ti radil Dingo.
A čo keby si tak priložil tvoj súbor?
Možno potom niekto bude rozumieť tomu, čo hovoríš.
Alebo to pozadie vymaž. Aspoň to nebude mýliť.
nanyuan napsal/a:
Ty tvary které chci spojit pouze leží na tom obrázku ten je tam jen jako pozadí.
A tie tvary nejako súvisia s tým podkladovým obrázkom? Alebo majú súvisieť?
@AL
Máš pravdu. Napísal som to dosť povrchne. Keďže nedal prílohu tak som si to sám zbúchal a mne to išlo. Ale iba v prípade, že vyhovovala prvá hodnota. A ďalej som to nekontroloval. Myslím, že zadávatelia by mali priložiť vzor. Mne sa to nechce vytvárať, ak keď v tomto prípade to bolo jednoduché.
=IF(B1=F:F;"Fed";"")
Maticovo CTRL+SHIFT+ENTER
adosl napsal/a:
Pořád mi to nejde asi dělám někde chybu. A jde spustit makro při změně buňkdy ve které je zapsaný vzorec. Ono by to šlo spouštět i nějakou buňkou která je ve stejném listu pokud by se dalo zařídit, aby se makro spustilo po změně buňky ve které je vzorec. např. pokud bych měl na jakémkoliv listu buňku s =vzorce!b1.
No iba ak by si zmenil ten vzorec.
@chey
To je jedno, stačí skopírovať format.
Sub Makro1()
Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
@eLCHa
Ano, cyklus netreba. Len som chcel naznačiť, že pri vymazávaní riadkov je vhodnejší cyklus od konca.
Nebolo mi jasné prečo nechcel vymazávať riadky, preto som dal túto možnosť.
Samozrejme som vyskúšal odkaz(teda iba na posunuté bunky) a fungovalo to .
Ak bol odkaz na vymazané bunky, tak samozrejme ich nenašlo.
Ale pri kopírovaní ten odkaz je tak isto nejednoznačný.
Neviem aké vzorce tam autor používa.
Dal som to iba ako alternatívu. Samozrejme aj mne vaše makro fungovalo. Ale bližšie som to neanalyzoval.
Mne sa trochu nezdalo to obmedzenie autora:
"Nelze to však řešit skrytím prázdných řádků ani jejich odstraněním."
Iba preto som navrhol moje riešenie. Podľa mňa oveľa zrozumiteľnejšie laikovi. Aj keď nevylučujem, že tam môžu byť aj nejaké "muchy".
Nefungujú. Posledná od eLCHa vymazáva celé riadky.ENTIREROW.
Ale to moje makro ti neodstráni tie vedľajšie výpočty.
A okrem toho ich môžeš umiestniť na iný list. Potom môžeš vymazať aj celé riadky, ako napísal eLCHa v dvoch riadkoch.
@eLCHa
Neviem prečo nechce vymazávať celé riadky. Možno má niekde napravo nejaké iné tabuľky. Bola to iba otázka.
Ja som iba vymazal bunky B:K.
Ak to bude vyhovovať, tak môžeme optimalizovať. Nech rozhodne zadávateľ.
Prečo to nejde riešiť odstránením riadkov?
Toto by nestačilo?
Sub Makro1()
For i = Cells(Rows.Count, "B").End(xlUp).Row To 7 Step -1
If Cells(i, 2) = "" Then Range(Cells(i, "B"), Cells(i, "K")).Delete Shift:=xlUp
Next i
End Sub
No ja by som v prvom rade upravil trochu súbor.
Zlúčené bunky alebo riadky mi akosi nesedia.
No ja mám na notebooku tiež nastavený zip. Ak je tam rar, tak to musím rozbaľovať total comanderom a to sa mi vždy nechce. Takže občas odpovedám bez toho, aby som otvoril prílohu. No niekedy je rozdiel medzi napísaným a súborom dosť významný.
Uživatelské menu
\nMenu
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.
RSS nejnovější články