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

Příspěvky uživatele

Sub OhranicVyfarbi()
With Selection
.Interior.Color = 10855845
.Borders.LineStyle = xlContinuous
End With
End Sub
Alebo chcete iba vonkajšie ohraničenie, je libo bledšiu šedú, či zadávanie farby pomocou RGB hodnôt, či vykonať makro ihneď po označení bez nutnosti kliknutia na tlačítko? ...
Tlačítku si mimochodom toto makro zatiaľ priraďte.

A viete čo by možno stálo za skúšku ? Nepoužiť Worksheet_SelectionChange ale namiesto nej Worksheet_BeforeRightClick. Výhody by to malo 2:
1. Väčšinou sa prekliknete omylom ľavým tlačítkom, nie pravým.
2. Ostane Vám kurzor na danej bunke.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bunka As Range
If Target.Cells.Count = 1 Then
Set Bunka = Intersect(Target, Range("N14:AA15,N17:AA18,N20:AA21,N23:AA24,N27:AA28,N30:AA31,N33:AA34,N36:AA37,N42:AA43,N45:AA46,N48:AA49,N51:AA52,N55:AA56,N58:AA59,N61:AA62,N64:AA65"))
If Not Bunka Is Nothing Then
With Bunka.Borders(xlDiagonalDown)
.LineStyle = IIf(.LineStyle = xlContinuous, xlNone, xlContinuous)
End With
With Bunka.Borders(xlDiagonalUp)
.LineStyle = IIf(.LineStyle = xlContinuous, xlNone, xlContinuous)
End With
Cancel = True
End If
End If
End Sub
Len je tam doplnený ten 1 riadok
Cancel = True

EDIT: Malá úprava na žiadosť v prílohe.

Ja si myslím, že nebude potrebovať nič z toho čo tu je napísané, keď dá normálnu prílohu. Podľa mňa to porieši xlDown / xlUp.
No tak aby som to zaokrúhlil do tretice : Nedáte sem radšej prílohu ?

Ako som povedal, nechce sa mi študovať ten kód, ale da sa to takto ľahko obísť. Prípadne sa použije premenna Pokracuj = False, a tá sa bude testovať, urobí sa Exit Do. No a následný block sa spusti po podmienkou Pokracuj=False.
Som na mobile...

EDIT: No takže deklarujte si premennú (nazvyme si ju radšej bVynechaj)
Dim bVynechaj As Boolean

Podľa toho či sa má ten cyklus vykonať vždy raz, alebo ani raz, ak je splnená podmienka, podľa toho si umiestnite ukončujúci riadok
If tb.leght < 199 Then bVynechaj = True : Exit Do
za
Do Until ActiveCell.Value = Empty
alebo pred
Loop

No a za cyklom si dajte pred prvé ActiveCell...
If Not bVynechaj then
za posledné ActiveCell... dajte už len
End If

Keby ste poslal normálnu prílohu (súbor zabalený do ZIP), tak ste to mohol mať poriešené pravdepodobne lepšie celé.

Pr.

EDIT: Aha, tak neskoro :) Takmer to isté :) Dobrý nápad s označením inej bunky, aby bolo možné odkrížikovať práve zakrížikovanú.

Vložte normálnu prílohu vo forme súboru. Kto si má stále manuálne vytvárať testovacie súbory.

Netuším čo makrom robíte, ale cyklus prerušte napr. tak, že za cyklus vložte
POKRACUJ:
a v cykle si kontrolujte danú hodnotu
If tb.leght < 199 Then Goto POKRACUJ
To je len tak z brucha, bez prílohy, bez skúšky ...

Alebo dajte názov kroku POKRACUJ až za to prepočítavanie, pred vynulovanie polí, a stane sa to, že ak cyklus narazí na podmienku, len vymaže polia.

Ale keď budem volať z makra v Hárok2
Call Worksheets("Hárok1").pokus1
tak zavolám makro v Hárok1, ktoré sa volá pokus1.

EDIT: Alebo aj
Application.Run "Hárok1.pokus1"

Použite polia namiesto prechádzania buniek po jednej. Posielam príklad, kde je aj prípadné riešenie cez KT. Ale hlavne ide o ukážku makra, ktoré :
-si samo aktualizuje zoznam mien
-zoradí podľa A-Z
-zistí či nieje prekročený max 20 riadkový limit, a upraví ho
-pre každé meno si načíta dáta do poľa výsledkov
-staré zmaže, všetky nové naraz zapíše
-môžete upraviť počet stĺpcov skupín v konštante

Ak to potrebujete inak, inšpirujte sa kódom s poľom, a vyberte si iba jadro kódu. Je neporovnateľne rýchlejšie - ani nemrknete.

Robím to na E2016, na E2003 to treba testnúť.

Pokračovanie bude na PC Help. Držím palce, úprimne, je ťažké byť hodený do sveta, o ktorom ste ani nevedeli že existuje...

Hmm. Súbor je stiahnutý 0 krát. Tak ako viete, že je to super. Ani ste nevidel, že tam máte 2 súbory. Jeden so súčtami dole, a druhý so súčtami hore.

Zčervenanie nastalo pri vkladaní/prehadzovaní stĺpcov, Excel si domyslel kopírovanie PF zo stĺpca A. Bolo pôvodne iba v A:A. To jedno písmenko (z A8:B17 na A8:A17) v PF ste mohol zvládnuť prehodiť aj sám.

Žlté asi odstrániť nepôjde. Je to súčasťou objektu Tabuľka. A ten objekt Tabuľka potrebujete pre to automatické naťahovanie vzorcov. Tie šípky s výberom operácie tam proste budú. Nepodarilo sa mi ich bez problémov odstaviť ani zamknutím daných buniek a zabezpečením hárku, lebo potom je zase problém, že nejde ťahanie (zväčšovanie Tabuľky), čo je hlavná vec, pre ktorú sme ju tam dali.
Takže si asi na ten spodný súčtový riadok budete musieť zvyknúť.

Ak by sa dali súčty hore, niekde pri Celkový súčet, tak Vám tam "zavadzať" nebudú.
Možno niekoho napadá lepšie riešenie.

Takto by to mohlo byť bez ohľadu na medzery. Jeden vzorec pre všetky riadky. Medzera sa nepovažuje za prerušenie série rovnakých krokov (proste nieje to zmena, nezvyšuje dátum).

Nerozumiem...

No dobre, ešte raz to skúsim. Do poľa Počet nemusíte zadať nič (počíta sa ako 1), keď tam niečo je, kontroluje sa v tabuľke akcií, či sa nejedná o typ "h", teda sa pomocou PF pridá "h". V tabuľke akcií to "ks" nemusí byť, to je tam len pre ilustráciu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse