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

Příspěvky uživatele

Po proklikání vzorců bude řekl bych jasné, o co jde.

Ehm...
Hledal jsem ty Vaše vzorce, ale nenašel ;)

1. Registrace nebolí.
2. Tato úloha je zcela určitě velmi jednoduchá. To, že ještě není vyřešená ukazuje, že není dobře popsaná. Začínám na sobě pozorovat, že jsem čím dál tím "pomalejší" a moc jsem to nepochopil.
Zkuste ještě vložit jednu přílohu, kde bude vidět jak má vypadat výsledek.

Další možnost je COUNTIF ;)=KDYŽ(COUNTIF($A2;"*BOD*");"ano";"ne")

@kp57
Tak tedy na popud eLCHa ještě jeden.

A ten první nefachčí, nebo co? Mně se teda líbí.

Pokud ten můj půlnoční výkřik ze tmy vyzněl jako kritika, tak to nebyl záměr. Pokud ten kód dělá to co má, tak je to v pořádku. A pokud se Vám navíc líbí, co více si přát? ;)))

Přišlo mi zbytečné vytvářet dávku a tak jsem na to upozornil.
Váš následující kód je zhruba to, co bych napsal já, jen je tam na můj vkus moc proměnných. A určitě bych tam nedával DoEvents (proč tam je? proč pouštět další události do běhu kódu?)
Vlastně jsem to zkusil napsat téměř úplně bez proměnných - ale pokud jsem chtěl použít fci Dir, tak to neprošlo. Musím načíst seznam adresářů. Ale je to úloha, u které lze využít proceduru, která volá sama sebe.
Jen pro ukázku - výpis souborů pdf včetně podsložek - na tom jsem to testoval. Aby vyhovělo zadání, už bych jen změnil typ souboru, v první proceduře otevřel ty dva zdroje a místo Debug.Print ve druhé bych dal - Open, Save, Close.Sub subListFiles()
Call subCreateList("V:\TISKY PDF\SAP", ".pdf")
End Sub

Sub subCreateList(ByVal sFolder As String, ByVal sFileType As String)
sFolder = sFolder & IIf(Right(sFolder, 1) = "\", vbNullString, "\")

Dim sFolders() As String
ReDim sFolders(0)

Dim vVal As Variant
vVal = Dir(sFolder, vbDirectory)

While Not vVal = vbNullString
If Not vVal Like ".*" Then
If GetAttr(sFolder & vVal) = vbDirectory Then
If Not sFolders(0) = vbNullString Then
ReDim Preserve sFolders(UBound(sFolders) + 1)
End If
sFolders(UBound(sFolders)) = sFolder & vVal
Else
If vVal Like "*" & sFileType Then
Debug.Print sFolder & vVal
End If
End If
End If
vVal = Dir
Wend

If Not sFolders(0) = vbNullString Then
For Each vVal In sFolders
Call subCreateList(vVal, sFileType)
Next vVal
End If
End Sub

@kp57
Mno já nevím. Jsem bez excelu, je půlnoc, navíc sobota. Takže ted́ tu nic dávat nebudu. Ale řešit tohle pomocí dávkového souboru?
Není jednodušší prostě všechny soubory otevřít (Dir + Open) včetně zdroje (pokud jsem pochopil, je jeden), překalkulovat a zavřít?

@AL
Asi není třeba makro
Povolil jsem propojení a změnil hodnotu v C2 (diel) - vyskočila hláška o neplatném zdroji dat a hned na to okno pro výběr nového umístění (to staré, patrně z MSQuery).

@AL
Mno, rozšířený filtr by asi nebyl moc výhodou, to už bych se klonil k MSQuery - dávám přednost vzorcům, protože tam je vše tak říkajíc online. Filtr potřebuje makra a těm se snažím vyhnout.

Len pre zaujímavosť, dokázal ste ten môj súbor rozchodiť? Mám na mysli: prekresľujú sa dáta v tabuľke a graf pri zmene zelených buniek?
Ano - byly tam nějaké problémy (házelo to nějakou hlášku - už si nepamatuji), asi po pěti minutách jsem to rozjel. Docela jste mně dostal tím RANDBETWEEN - pořád jsem koukal, jak to že to háže pokaždé jiné hodnoty, než mi to došlo ;))

@AL
Pokud se ubíráte správným směrem, tak zatím se lze obejít bez MSQuery i kontingenční tabulky - stačí zdrojová data. Vykradl ;) jsem ten Váš soubor a zkusil to (nedal jsem tam to omezení data, ale to je jen jednoduchá úprava). Pokud je to tak, stačí obyčejná tabulka s jedním vloženým sloupcem (já osobně bych dal přednost opravě chybných hodnot (= bez pomocného sloupce), protože i Vaše LIKE i moje NAJÍT může přibrat nesprávné hodnoty).
Jinak dobrá práce - ve statistice se s Váma přít nebudu, protože jsem ji měl naposledy někdy kolem roku 1995).

Pokud máte excel 2013 - můžete kouknout zde http://oco-carbon.com/coding/google-excel-distance-function/

Mno - nejdříve, když jsem to četl, tak jsem si s prominutím řekl, co je to zase za ...
Pak jsem to přečetl ještě dvakrát a začalo mně to zajímat ;)))

Se synchronizací počítačů moc zkušeností nemám, z toho co o tom vím bych se asi snažil, aby to na všech vypadalo stejně - tzn. pohrát si s nastavením synchronizace. Pokud to ale nelze (nemohu posoudit ani vyzkoušet), tak by cestou mohlo být testování, zda existuje soubor.
Tzn:
UDF něco jakoFunction FILE_EXISTS(path As String) As Boolean
FILE_EXISTS = Not Dir(path) = vbNullString
End Functiona pak na listu např. místo:='C:\ADR\[Soubor.xls]List1'!$A$1=KDYŽ(FILE_EXISTS("C:\ADR\Soubor.xls");'C:\ADR\[Soubor.xls]List1'!$A$1;'D:\ADR\[Soubor.xls]List1'!$A$1)
Nemám to vyzkoušené, jen uvažuji nahlas (btw: napadá někoho ekvivalent slova nahlas, když nemluvím, ale píšu ;)) )

@Don_Rododendron
Rád bych si vše vyřešil sám
+1

Četl jsem to dvakrát, pro jistotu. Ono bez dat se těžko radí, ale než se začnete hrabat v MSQuery, zkuste nejdříve kontingenční tabulku + graf...

Jednoduchý trik:
Vyberte si sloupec, který skryjete.
Ve stejném řádku naformátujte v tomto sloupci buňku stejně, jako máte sloučené buňky - v podstatě zkopírujte formát, ale jen do jedné buňky.
Sloupec skryjte.
Do této buňky vložte také hodnotu z textboxu.

Např.
A1:B1 - sloučené
sloupec C skrytý
Private Sub Test()
Range("A1").Value = "Test" & vbLf & "Test"
Range("C1").Value = Range("A1").Value
Range("A1").EntireRow.AutoFit
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse