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

Příspěvky uživatele

Zlý popis, skoro žiadny príklad, nevhodný design. A k tomu mi nejde (alebo neviem) použiť v rozšírenom filtry filtrovanie čísla, ktoré obsahuje nejaké číslo. Ani keď je to "číslo" ako text. Každopádne v List 2 uchovávajte dáta (neviem, prečo musia byť medzi nimi prázdne stĺpce). Filtrované dáta sa Vám budú zobrazovať v List1, s tým, že v prvom stĺpci ID sa berie do úvahy iba kompletná zhoda, kdežto v druhým 2 stĺpcoch už akýkoľvek výskyt. Množstvo riadkov si to nájde samé.

Nedávno som robil iný druh filtru, kde prebehlo všetko v poliach a v stĺpcovom ListBoxe vo formulári, a fungovalo to ako chcete a rýchlo. Skúste toto, či bude vyhovovať, lebo na úpravu spomínaného riešenia do zverejniteľnej podoby nemám ani čas ani chuť, aj keď je to krpaté.

Ostatné makrá som Vám neskúmal, ale všimol som si že máte rovnaké makrá aj v module aj v List1.

Snáď Vám prípadne niekto poradí s filtrovaním časti čísla ID.

Slovom "označiť" myslíte ľavý klik myši ? Alebo slovom "označiť" myslíte vyfarbiť a pod. To je zásadný rozdiel v skladbe makra. To sa sa prehľadávaná oblasť mení, je najmenší problém, to sa dá vyriešiť jednoducho Definovaným názvom. Ale od významu slova "označiť" záleží či sa použije funkcia, alebo makro naviazané na udalosť listu (klik).

Netuším, či chápem správne. Tento kód do listu "Hárok1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
If Err = 0 Then Cells(2, 6) = R Else Cells(2, 6) = CVErr(xlErrNA)
End If
End Sub
V liste "Hárok2" sú v D1:D10 hodnoty, ktoré prehľadáva. Táto adresa sa dá zmeniť v makre alebo zameniť za definovaný názov. podľa toho ako ju chcete meniť.

EDIT: Alebo označiť bunku, a nie len nájsť bunku ? Označiť bunku v neaktívnom liste snáď ani nejde. Neviem, potom asi takto.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
Application.ScreenUpdating = False
If Err = 0 Then Application.Goto Worksheets("Hárok2").Range("D1:D10").Cells(R) Else Application.Goto Worksheets("Hárok2").Range("A1")
Application.Goto Target
Application.ScreenUpdating = True
End If
End Sub

Uložte si niekam vlastnosť TextBox1.ListIndex. To je Index (poradové číslo) vybranej položky. Ďalej si to už ľahko spracujete podľa potreby.

Tu máte príklad na Import/Export makro. Ale ako poriešiť ešte to upravenie diakritiky popravde neviem a ani sa mi nechce skúmať ...

Vyskúšajte toto

Voľný čas a ja sme momentálne nekompatibilný. A nevidím zatiaľ ani vyhľadovo nejaké zlepšenie.
Zatiaľ - Vy chcete :
-1 list sklad
-každý ďalší list ma iba 1 Tabuľku
...???

Prečo to musí byť formulár ? Podľa mňa je vhodnejší (ľahšia manipulácia) list na zadávanie, ako som Vám poslal.
Tak ako je to s ďalším spracovaním v ďalšom programe ? Vyžaduje sa mať data pod sebou, ako ste popísal v 1. príspevku, alebo vedľa seba ako ste poslal v 2. príspevku ?

Príklad ...

Filter neviem rozbehať na všetky riadky korektne. Snáď niekto poradí prečo. Inak vzorec či minimakro.

Čo myslíte pod pojmom "automatického posunu posuvníku" ? Pretože posuvník hýbe grafom (jeho konečnou hodnotou), a zároveň aj reaguje na priame zadanie konečnej hodnotu v C3. Tak skúste popísať, čo máte na mysli, a/alebo čo chcete so zošitom robiť, a čo za zobrazenie od neho očakávate.

Dajte k dispozícii nejaké dáta, nech máme na čom stavať. Pokiaľ ma pamäť neklame tak graf nevyhodnocuje hodnotu N/A. Teda zakomponujte do dát podmienku.

Aby ste mohol zasielať prílohy, musíte sa zaregistrovať.

Function ENTRANSLATE(HDN As String) As String
Dim T()
T = Array("é", "+", "ľ", "š", "č", "ť", "ž", "ý", "á", "í")
ENTRANSLATE = LCase(HDN)
For i = 0 To 9
ENTRANSLATE = Replace(ENTRANSLATE, T(i), i)
Next i
End Function

Na to nepotrebujete tabuľku rozdeľovať. Stačí nejaký takýto obdobný vzorec. Je nastavený na oblasť G10:NG10 (teda 365 dní). V riadku 10 od stĺpca G nesmie byť medzera medzi dátumami.

PS: Celé by som to ale na Vašom mieste otočil. Máte iba 13 žiakov, ale stovky dní. A vertikálne scrolovanie je podstatne pohodlnejšie ako horizontálne.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse