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

Příspěvky uživatele

Např:
with cells(2,2)
select case .interior.color
case vbblack: .font.color = vbwhite
case else: .font.color = vbblack
end select
end withnebo místo celého toho řádku s ElseIf napsat jenom Else

Je to psané hodně neohrabaně, ale zas tak daleko od cíle nejste. Jenom v popisu problému pracujete s buňkou B1 a v kódu s I1. To nejspíš pokládáte za drobný detail .
Jestli se vám ještě dlouho nikdo neozve, tak ten váš kód přepíšu do spisovnější podoby.
Když jsem to začal upravovat, scvrklo se mi to na tuto událostní proceduru (nutno umístit do modulu pro list):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Check As Range
Set Check = Range("I1")
If Intersect(Check, Target) Is Nothing Then Exit Sub
Select Case Check.Value
Case 1, 2, 10
Sheets(2).Rows("45:50").Hidden = False
Case 3 To 9
Sheets(2).Rows("45:50").Hidden = True
End Select
End Sub
Označení Sheets(2) je volání listu s těmi skrývanými řádky

Nekonečný příběh: nepřesný popis problému lze zpravidla upřesnit ukázkou sešitu. Lidé, kteří se sem chodí ptát, se snad občas podívají jak se ptají ti druzí. Zjistili by, že dotaz s přílohou má nepoměrně vyšší šanci než dotaz bez ní.

Tento typ spolupráce se blíží mé představě, jak by to mělo tady na fóru vypadat: smyslem podle mne není dodávat hotová (a často neprůhledná) řešení. Smyslem je ukázat cestu tazateli, který pak po té cestě dokáže dojít tam, kam dojít chce a potřebuje. Mám velmi dobrý pocit, že jste se dostal na správnou oběžnou dráhu...

Nevím, jestli jsem správně pochopil. Jeví se mi to tak, že máte v úmyslu vybrat víc buněk najednou, a pak tento výběr najednou shodně naplnit pomocí Ctrl+Enter? Z první to vypadá dost nadějně; mělo by stačit nastavit trochu jinak filtr v událostní proceduře. S tímto způsobem zadávání hodnot nemám zkušenost, musím chování událostní procedury otestovat.
Mírně jsem událostní proceduru upravil, aby to bralo i více buněk včetně nesouvislých oblastí. Zdá se, že to běhá. Prosím o otestování. Úprava je v příloze.

Míjeli jsme se v posílání zpráv. Nechtělo se mi čekat na vaši úpravu rozhodovací tabulky, takže jsem si ji ještě sám upravil a podle té úpravy jsem napsal ovládání řádkových semaforů. Teď jsem dostal vámi upravenou rozhodovací tabulku. Z ní jsem využil nápad pro označování jednotlivých vadně vyplněných buněk.
Mám pro vás návrh. Pokud tomu správně rozumím, chcete si z toho udělat mustr pro příští opakované použití. Z toho důvodu jsem celý VBA projekt pro vás velmi pečlivě okomentoval a předělávku bych musel okomentovat znovu a trochu jinak. Do toho se mi nechce. Posílám proto svoji verzi s tím, že si z ní můžete odvodit verzi se svou vlastní rozhodovací tabulkou. Pokud to s tím mustrem myslíte vážně, je to ideální příležitost, jak si ověřit použitelnost nabídnuté metody pro vytvoření svého vlastního sešitu s vlastní semaforovou logikou.
Pokud někde narazíte, rád poradím, co s tím.

Hav-Ran, kamarát, prepáč! Málo a ešte aj zle som sa pozrel...
Prostě jsem očekával odpověď v jiné podobě a zmátlo mne to. Je dobře, že jsi tady a že máš chuť poradit .

to Merlin99 z 19:38
Přikládám plně okomentovanou UDF Zasoba(buňka). Nevím, jak víc s jejím pochopením pomoci.

to Jan887:
- pokud dostanete víc odpovědí, reagujte prosím s označením, na koho vaše reakce směřuje,
- pokud se budete příště ptát, nezapomeňte na přílohu s ukázkou. Jinak snadno dostanete odpověď na něco jiného, než na co chcete opravdu zeptat.
Pokud vaše reakce směřuje ke mně, pak jí vůbec nerozumím. K výpočtu UDF jsem připojil vlastní aplikaci, která vůbec nemusí souviset s vaším dotazem. Kromě toho, že dokumentuje na praktickém příkladu, jak ta UDF počítá.

V příloze je můj návrh rozhodovací tabulky, podle níž by se měla barva nastavovat. O-1, P-1,O-2 a P-2 odpovídá sloupcům E:H z vašeho příkladu. "Dat" je datum, "nic" je prázdná buňka, "***" jsou vaše hvězdičky, "?" je cokoliv (případně i nesmysl).
Prosím o případné úpravy. Proceduru dodám, až bude tohle dohodnuté.
Pokud si chcete vytvořit metodiku pro podobné úlohy, zahrňte do ní i tu rozhodovací tabulku.

Připadá mi, že se Hav-Ran překlepl při výběru přílohy . Mezitím jsem k nabízené UDF připsal i malou skladovou aplikaci, která to UDF využívá.

Uživatelská funkce listu by to řešila jednoduše. Vzorec mne nenapadá. Někoho jiného snad něco napadne.

Sotva jsem se do toho řešení pustil, zjistil jsem v něm nějaké logické nepřesnosti (nejsou definovány všechny možné stavy sloupců E:H, neplatí "vyhodnocení - prázdná / neprázdná buňka" kvůli odlišnému hodnocení ***). Asi by to chtělo lépe zpracovat rozhodovací tabulku "stav buněk / barva semaforu". Kdybych to udělal sám podle sebe, nemuselo by to odpovídat potřebám úlohy. Zvažte, jestli dodáte přesnější rozlišení stavů / rozlišení necháte na mně / necháte to bez řešení.

I tak dík za odpověď. Dozvěděl jsem se z ní to podstatné, abych se mohl sám podívat na EN verzi Excelu Cz ...

Elninoslov poslal velmi přehledně vytvořený mustr na použití CDO k odesílání mailů. Jen bych dodal (pro ty, kteří se s ním dosud nesekali), že vlastnosti SendUserName a SendPassword musí patřit vaší existující adrese na Gmailu, který použil elninoslov jako SMTserver ve své proceduře. Podobně lze za SMTserver zvolit např. i Seznam, pokud vaše schránka leží tam.
Proceduru lze snadno rozšířit o odesílání na více adres najednou a zejména o přikládání příloh k mailu. V této úpravě používá podobnou proceduru můj klient již dva roky s frekvenci mnoha odeslaných mailů za den, a to bez jakýchkoliv avizovaných poruch. Podstatné pro moji tehdejší volbu bylo, že klient nevlastnil velký Outlook, bez nějž jiné mně známé metody nedovolovaly přidávat přílohy k mailu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse