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

Příspěvky uživatele

Jen testuju rychlost vyhledávání položky v POLI. Teď mi vychází, že For Each je rychlejší než Match. Ale nevím jak vrátit Index(pořadí) nalezené položky, bez toho abych v tom cyklu připočítával ID=ID+1, dokud není položka nalezena.

edit:
Tak For ID je vůbec nejrychlejší.Private Sub PoleRevFor()
xCas = Timer
For ID = 1 To UBound(Pole, 1)
If coF = Pole(ID, 1) Then
MsgBox ID & " / " & Pole(ID, 1) & " / " & Pole(ID, 2), , "For = " & Timer - xCas
Exit For
End If
Next ID
End Sub

Al díky! Ale pokračuju. Dám to sem, snad nevadí.Private Sub PoleRevEach()
For Each rdPV In Application.Index(Pole, , 1)
If rdPV = coF Then
' ID = rdPV.Index ''JAK VRATIT INDEX rdPV ?
End If
Next rdPV
End Sub

UžID = Application.Match(coF, Application.Index(Pole, , 1), 0)

Ahoj! Hledám způsob jak vyhledávat v části POLE. Mám např. POLE(1 to 10, 1 to 2). Když bych POLE vložil do Listu, získám 2 sloupce po 10 řadách. A já chci vyhledávat jen v jednom sloupci. Ví někdo jak na to ?

Smazal jsem ho, protože jsem si až potom všiml, že můj Sort byl neúspěšný a tím pádem Kolekce byla OK. Ano je to tak jak tu píšete. Pokud se do Kolekce přidává bez Value, tak se vlastně přidavají Range a ne Value. Sory.

No snad to bude ono.

If Pritomnost_Kriteria Then
'Filtrovat
'Kopirovat
Else
'Nedelej Nic
End If

Filtrem nevím, ale jednoduché makro by to zvládlo.

Snad SUM(Rows.Height) aSub Resize()
With Application
.WindowState = xlNormal
.Left = 1
.Top = 1
.Width = 500
.Height = 600
End With
End Sub

No už jsem něco podobného dělal. Měnil jsem Top i Height Labelu, aby nebyl mimo ActiveWindow. Naplnil jsem POLE Rows().Top a pak v POLI vyhledával (MATCH) odpovídající hodnoty. Při tom mohly být Rows().Height různé.

?. No já mám v helpu "XlBuiltInDialog Enumeration" s odpovídajícími "Value". Jinak jak píše eLCHa.

Nebo INDEX(POZVYHLEDAT)

ActiveWorkbook.Sheets("xy").SaveAs Filename:="C:\Users\Michal\Desktop\XXX.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Ne. Ale můžeš si přidat list, nebo nový Workbook, dát si tam co potřebuješ, uložit ho do csv a odstranit(list).

ActiveWorkbook.Sheets("xy").SaveAs Filename:="C:\Users\Michal\Desktop\XXX.csv", _
FileFormat:=xlCSV, CreateBackup:=False

Už to jde. Změna v
"RsAdo.Open strSQL, CnnAdo, adOpenKeyset, adLockBatchOptimistic, adCmdTable"
na
"RsAdo.Open strSQL, CnnAdo, adOpenKeyset, adLockOptimistic, adCmdTable"
nevím proč, ale zatím OK.
ps.
Při 50T záznamů úspora 0,2sec.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse