Příspěvky uživatele

Uprava prikladu ("-" znamena prazdnu buku)
A B C D
4 1 - 2
5 2 2 -
6 3 - -
7 2 - -
8 3 - -

Je mozne pomocou funkcie hodnotu duplicity v stlpci (napr B4:B8), zadanu v nejakej bunke (D4=2), zobrazit v susednej bunke ( stlpec C) na tom istom riadku, ako je prva hodnota zadanej duplicity (Vysledok C5=2)? Dakujem. Vid priklad
B C D
4 1 2
5 2 2
6 3
7 2
8 3

Peknu nedelu prajem,
s makrom pre zaskrtavacie tlacitko z ovladacich prvkov formulára a prepojenim na nejaku bunku mi to bolo jasne od zaciatku. Moc mi nevyhovuje prepojenie resp zviditelnenie tej bunky, preto som hladal nieco podobne ako je to s prvkami z ActiveX. Kedze si mi tvrdil od zaciatku, ze to ide podobne aj pre prvky z formulara, tak som chcel vediet ako. Teraz je mi to jasne, ze to nejde.
Aj tak Ti dakujem za znacny cas venovany asi dost jednoduchemu problemu.

V ceskom exceli ak vlozim nasledovne makro pre policko z formulara tak to nejde

Sub políčko1_Klepnutí()
Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

nejde to ani ked vlozim:
Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

Ano zaškrtávacie políčko z ActiveX klape, ale problem mam so zaškrtávacím políčkom z formulara a o tom je cele vlakno

Ked makro zmenim ako je to dalej, stale to nefunguje:
Sub CheckBox1_Click()
'Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F:G").Hidden = True
End If

'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F:G").Hidden = False
End If
Range("A3").Select
End Sub

Ano, tlačítko je z ovládací prvky formuláře ako som uviedol v zadani. Znamena to, ze takto vlozenemu ovladaciemu prvku (zaskrtavacie tlacitko) nejde pridelit makro? Dakujem

Zial mne to nefunguje. Vypisuje mi to hlasku:
Makro Sesit1!CheckBox1_Click nelze spustit. Toto makro neni pravdepodobne v sesitu k dispozici nebo jsou zakazana vsechna makra.
Makro mam ulozene v List1. V nastaveni maker mam Povolit vsechny makra

Zdravim majstrov vo VBA.
Na liste1 mam vlozene zaskrtavacie tlacitko z formulara, ktore by malo zobrazovat/skryt stlpce. Mam nasledovne makro, ktore mi nechodi. Mozno ze je chyba v tom, ze tlacitku nedokazem priradit uvedene makro cez Priradit makro. Poradi niekto? Dakujem

Private Sub CheckBox1_Click()
' Skryt stlpce F a G
If CheckBox1.Value = True Then
Columns("F,G").Select
With Selection.EntireColumn
.Hidden = True
End With
End If
'Zobrazit stlpce F a G
If CheckBox1.Value = False Then
Columns("F,G").Select
With Selection.EntireColumn
.Hidden = False
End With
End If
Range("A3").Select
End Sub

Konecne som sa dostal k pocitacu. Dakujem za vzorec. Moje zadanie nebolo uplne, pretoze som predpokladal, ze bunky formatovane podmienenym formatovanim sa daju priamo spocitat podla farby pozadia. Az na zaklade odpovede od Stalkera a Tvojej odpovede som si spomenul, ze je to mozne len nepriamym sposobom cez vzorec, ktorym bola bunka formatovana. Preto som uviedol aj jeden zo vzorcov pouzity pre podmienene formatovanie. V dalsej odpovedi pri popise formatovania, som pod vplyvom casovej tiesni nie spravne vysvetlil co vzorcom sledujem. Preto sa ospravedlnujem. Ale Tvoj vzorec ma nakopol a prisposobil som ho mojim potrebam a funguje.
Kedze nemam WinRAR, na inom pocitaci som nasimuloval a vytvoril vzorku, ktora sa priblizuje mojmu riesenie. Po preneseni sesit.rar do mojho pocitaca, som ho chcel vlozit do prilohy k tejto odpovedi, ale nepodarilo sa mi ho tam skopirovat - stale mi to odkazuje na zosit v mojom adresari. Neviem, kde robim chybu.

Zosit je velky (cca 1,6 MB) a nemozem ho zverejnit. Popis formatovania: Bunky ktore su formatovane maju obecny format- obsahuju bud ciselnu hodnotu, alebo text. Bunka B3 sa porovna s bunkami B3:B51. Ak sa najde zhoda (napr B3=B5), potom sa sucasne porovna bunka C3 so zodpovedajucou bunkou z rozsahu C3:C51 (pre priklad ze B3=B5, porovna sa C3 s C5). Ak sa sucasne B3=B5 a C3=C5, potom je splnena podmienka a bunka je v podmienenom formatovani zafarbena. Neviem, ci som to dostatocne objasnil.

Dakujem za odpoved.
Mozno ze by to slo pomocou COUTIF, ale neviem ako do tejto fcii zapracovat podmienku, ktorou boli bunky v stlpci pri podmienenom formatovani naformatovane. Ta podmienka pre jeden stlpec je strasne dlha v tvare asi takato:
NEBO(A(B3=$B$30;C3=$E$30);A(B3=$B$31;C3=$E$31);
A(B3=$B$32;C3=$E$32);A(B3=$B$33;C3=$E$33);
A(B3=$B$34;C3=$E$34);A(B3=$B$35;C3=$E$35);
...

A(B3=$B$50;C3=$E$50);A(B3=$B$51;C3=$E$51))

Zdravim vsetkych,
poprosil by som o riesenie, ako je mozne spocitat bunky v jednotlivych stlpcoch (napr. C2:C20, E2:E20, ...), ktore su zafarbene danou farbou (napr vypln cervena farba pozadia). Oznacene su podmienenym formatovanim podla vzorca - 3 farby s tromi vzorcami. Spocitat je potrebne pri kazdej zmene farby v danom stlpci. Dakujem

V pripade ze dve bunky na tom istom liste su prepojene s dvoma Comboboxami (Comboboxi su na liste nie v Userforms) a ktorakolvek z bunek zmeni svoju hodnotu, ako vytvorit podmienku a aktivovat makro?
Vďaka

Mozem rozsirit tuto otazku?
Ak niektora bunka v nejakom rozsahu napr. J10:M10 zmeni svoj obsah odkazom na inu bunku na inom liste napr J10 =list2!A5, K10 =list2!C8), ako aktivovat makro? Dakujem

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje