Příspěvky uživatele
< návrat zpět
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?
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