Příspěvky uživatele

Nastuduju, děkuju. Hezký večer.

Pardon, včera se to pořádně přetiahlo. Nestihol som. Teraz ráno som to ještě trochu prerobil, len už nestíhám, a nevím či som správně zeditoval všechny popisy. Dejte vědět. Riešené pomocí kolekcií. Aj unikátnosť aj vzostupné zoradenie. Na počet a súčet klasických WorksheetsFunction.
Příloha: zip53381_countifs.zip (31kB, staženo 1x)

PavDD napsal/a:

Dobrý den Barthe,

to je na mě trošku moc, nevím ani jak to nacpat do listu.

Nešlo by to trochu přiblížit?

Děkuju

P

Zřejmě stejně nesplnilo zadání, bylo různě náročné. 7
Záměrem byla pouze ukázka použití sumif a countif ve vba.
Zkopírovaný kód stačí vložit do modulu ve vba a sub si spustit (F5) či odkrokovat (F8), případně ho spustit pomocí tlačítka v listu s tím rozdílem, že se místo formuláře zobrazí listbox přímo v listu sešitu.

OK, děkuji, i z toho něco pochytím. Hezký večer.

Děkuji, tak jsem si to představoval.

Ještě detail, nezávisle na to Pruhu, chci ve formulářích nechat měnit i barvu např Label1 po určeném časovém intervalu, třeba 0,5 vteřiny/zkrátka aby to "blikalo" .Ale nevím jak a kam bych to měl napsat, do Initialize formuláře, nebo Activate ?

.. něco jako :
UserForm1.lblSeconds.BackColor = &HFF80FF 'ruzova &H00FF80FF&
UserForm1.lblSeconds.BackColor = &HFFC0C0 'FIALOVA

Díky
p

Jestli můžu poprosit i Vaše řešení, Elninoslov.
Děkuji

Dobrý den Barthe,
to je na mě trošku moc, nevím ani jak to nacpat do listu.
Nešlo by to trochu přiblížit?
Děkuju
P

Zdravím.
Potřeboval bych docílit toho, že po otevření formuláře /obsahuje vesměs jen informativní hodnoty/ se tento formulář uzavře po uvedené době a zbývající čas se bude zobrazovat graficky pruhem/např:
1. prostřednictvím ProgressBar1
2. probarvujícím se pruhem Label2
3. do Label3 se i ukáže kolik zbývá z celkového času. např 8/10 8sec z 10s atd
Děkuji za pomoc.
P

Dobrý den,pomohl by prosím někdo?
Dělám si malé statistiky .
V tabulce excelu bych si vyfiltroval např rok2022 a pak udělal sumu sl.B.
ALE

potřeboval bych to udělat ve formuláři:
vybrat si z vyskytujících se možných roků ze sl.A a možných hodnot sl.B - nabídne se v ComboBox1,ComboBox2
a do
Label8 doplnit počet těchto vyfiltrovaných hodnot a do
Label9 doplnit součet těchto hodnot

Prosím k řádkům i popis co dělají, pro další mé modifikace a pochopení principu.
Děkuji.

Musím běžet,mrknu později. Děkuju a hezký víkend.

Možná to nemám provádět ve form-initialize ale v activate ?

priloha

no,chci aby se třeba ten Label_Info.BackColor ,zmenil sám po 2sec zdržení na zelenou.

abych popsal situaci:
Po otevření sešitu, nějakého se mi objeví uvodní form, kteří když se Inicializuje, spouští různá makra a jejich výsledky se dopisují do toho uvodního formuláře, např poslední spuštění apod, a když to třeba bylo později než včera /do -14dní/ tak mi to v ´tom Labelu napíše text např "pozor, už se to dlouho nespouštělo", a ten text se vybarví v šedém Labelu jinou barvou písma a ten label se zbarví taky jinak, třeba červeně.

když jsem dopsal ***příkazy tak to nefunguje

Private Sub UserForm_Initialize()
Dim HodnotaC3 As Variant
HodnotaC3 = Worksheets("dat").Range("C3").Value
TextBox1.Text = HodnotaC3
If HodnotaC3 < 0 And HodnotaC3 > -14 Then TextBox1.BackColor = vbYellow

'Application.Wait (Now() + TimeValue("00:00:02"))
**** Label_Info.BackColor = &HC000& 'zeleny ' chci aby se to zmenilo samo po 2sec zdržení
****'call Label_Info.BackColor = &HC000& ' chci aby se to zmenilo samo
End Sub

A ještě jedna věc.
Pokouším se kodem změnit barvu podkladu Label, nebo celého form, ale nic se nezmění, a nevyhodí se ani chyba.

Label_Info.ForeColor = &HC000& zmenit písmo mi funguje
Form_Info.ForeColor = &HC000&

ale pozadí se nezmení:

Label_Info.BackColor = &HC000& nebo 16761087.

jak je to se zápisem těch kodu barev?
Musí se přidávat nějaký další příkaz aby se to ve formuláři nějak"znovunačtlo" s tou novou barvou?
díky

Dobrý den,
prosím jak správně napsat podmínu do vba:
chci pro hodnotu C3 <0 a > -14

If Worksheets("dat").Range("C3").Value = and(<0;>-14) Then
díky

Zkusím jak píšete.
jojo,,ten Cells(1, 4) vidím že je to preklep.
Date jsem neznal,bude to jednodušší.
O Historii,hm, to jsem nevěděl,přejmenuju to.
Děkuji.

Protože Mám jiné makro , které se spustí podle toho, jestli v určené buňce je dnešní den. (A ten tam doplNuje /nejdříve jako vzorec a pak ho zkopíruje sám na sebe jako hodnotu*aby se automaticky zítra nezměnila, zas jiné makro, aby se poznalo, jestli už v tento den bylo to druhé spuštěno.
Pokud se dnes spustilo, zapíše dnes , a při znovu otevření sešitu dnes, se vyhodnotí ,že už bylo spuštěno a neudělá nic.

Nebo by jste to řešil nějak jednodušeji?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje