Příspěvky uživatele

Když dáš

With Worksheet("List1")
.Activate
.range("A1").value = "BLA BLA"
End With

With Worksheet("List2")
.range("A1").value = "BLA BLA"
End With

Activate ti nastaví list aktivní.
Pokud to nepoužiješ na ostatní listy, tak si zapisuj co kde chceš ... jen musíš definovat do kterého listu se to má zapsat, jinak se zapisuje do aktivního listu.

Worksheet("List8").Range("A1").value = "BLA BLA"

Ještě něco
- Pokud použiješ "WorksheetFunction" a do buňky(buněk) Ti někdo vloží nesmysl, pak Ti funkce vytvoří chybu a interpret pozastaví makro. Buňku musíš nejdříve testovat a pak použít a nebo ošetřit chyby.

- Kdyby Ti lehnul Excel, tak je možné, že důvod je použití GOTO 1 v cyklu FOR. Předčasný odchod z cyklu je EXIT FOR. Interpret VBA v EXCELU 2000 na to byl dosti háklivý. Další verze Excelu nevím.
R.

Do proměnné si ulož aktuální sešit, a list a pak nastav ...
Workbooks("userform_ukazka.xls").Activate
Worksheet("List1").Activate
Range("A1").Value = "Něco"

Pak se vrať do sešitu a na list

A nebo jen zkontroluj, zda Tvůj sešit je otevřený a pak přímo piš ...
Workbooks("userform_ukazka.xls").Worksheet("List1").Range("A1").Value = "Něco"

Určitě se to může udělat makrem. Je ale skutečností, že makra ve VBA jsou jen interpretovaný jazyk. Takže nejlepší je použít vestavěné vzorce. Zkus třeba
C2 =KDYŽ(A(STEJNÉ(A1;A2);STEJNÉ(B1;B2));A2;"")
Porovnáváš 2 + 2 buňky na shodu, pokud je shoda pak ve sloupci C bude obsah ze sloupce A. Můžeš to různě modifikovat.
Pokud Tě zajímá jen ten počet, pak použij funkci COUNTIF(sloupec_nebo_oblast; co_hledat)
R.

To není moc dobré dávat to pod Excel. Ten seznam funguje jen na první písmeno. Řešením by bylo udělat to mimo seznam, ale aby to vypadalo jako seznam. Já jsem něco podobného měl, a potřeboval jsem jen přesvědčit usera, že je to lepší. Použil jsem možnost dialog s textboxem + list s výsledky a podle toho co tam vložil jsem volal SELECT s LIKE do MySQL, který se aktivoval CTRL + ENTER a při výběru se seznam načetl do listboxu. Odejít mohl myší a nebo Esc. Uživatel napsal par znaku a klepal na enter nebo něco připsal. Konečný výběr byl na tlačítko. Není to nic moc ale šlo to. Pokud nemáš možnost to vložit do DB tak je řešením použít SQL SELECT s LIKE (pokud to funguje) třeba jak bylo napsáno v příspěvku "ADO přístup k sešitu".

??? Jak to myslíš. Pokud si uděláš seznam a setřídíš jej podle svých požadavků, pak se Ti stejně nabízí. Pokud chceš měni třídění při vyskytu nějaké změny, pak to udělej makrem OnChange (přetřídíš jinak)

... na konci ;) znamená že jsem byl pochopen nebo ne :) ???

Kdybys chtěl jinou verzi na složitější výpočet s i více podmínkami, tak napiš. Původně mi to nedocvaklo a udělal jsem něco podobného co "Lano" jen přes makro a jeden vzorec.
R.

To je celkem jedno. Myslím, že počítat není co. Přes SVYHLEDAT vybereš (označíš) jen řádky, které Tě zajímají a protože jsou jediněčné, pak máš výsledek. Všechny cesty vedou do Říma :)

Ahoj. Pokud je Tvé zadání správné, pak není co počítat. Píšeš, že díly jsou stejné na různých střediscích a není možné aby byly dvakrát. Pak ale tabulka A je stejná jako tabulka B.
R.

Podle mne to nejde v Excelu. Excel, zná jen nějakou čínštinu nebo co to je. Spíš si myslím, že by ses měl podívat do Ovládacích panelů a vyzkoušet jiné národní nastavení ... třeba Anglicky ... a restartovat PC.

Můžeš to upřesnit ??? V anglické abecedě chybí ch a háčky čárky. Když je nepoužiješ a normálně setřiďíš ... máš to podle "anglické abecedy".

- A co ten webový dotaz ?
- A co natáhnout to do stringu, nebo pole a pak najít/nahradit pomlčku za středník ?
- Zkus se podívat na import a hledej rozdělení podle oddělovače. Středník nebo tabulátor. Standardně z off z www stranek leze tabulátor přes schránku.
- A co to nakopírovat přes clipboard ? Zkusit jak to pochopí OpenOffice.
- A co apostrof před text aby to nečetl vůbec a pak to rozdělit přes vzorce část()
- A co nejdříve naformátovat celé sloupce (né části) a pak to zkusit natáhnout přes schránku ?
- A co to nejdříve vložit jako HTML do buffru (třeba skrytý list) a pak kopírovat jako hodnoty a vložit do formátovaných sloupců.

Jestli mě ještě něco napadne, tak se ozvu. R.

Nevím, o tom, že by Excel byl něco extra v tomto ohledu. Někdy je jednoduché řešení si vytvořit FileScript objekt, načíst jej řádek po řádku a vložit do buněk. Všimni si, že výsledky i kurzové nabídky, mají nějaký formát a sázkové kanceláře je nabízejí v prostém txt souboru. Potřebuješ to vložit do textového editoru, s proporcionálním písmem, abys měl vše hezky pod sebou. Ve VBA pak načteš řádek, nějaký select case mid(radek,1,5) case "" ... třeba prvních 5-ti znaku a rozhodneš co je to za řádek. Nebo zkontroluješ, jestli se jedná o Tebou vyjmenované ligy apod. Nebo jsou to pomlčky a je nutné skočit na další řádek. Pak víš že třeba další řádek začíná od pozice 10 a obsahuje číslo zápasu (6 znaku), zapas domáci - hosté (20 znaku a rozděluje je pomlčka) a pak od pozice 50 začíná kurzová sázka ... bla bla bla

Pokud je v OpenOffice možnost webového dotazu, tak je to bezpochyby ještě jednodužší. Můžeš to aktualizovat přímo z NETu a nemusíš stahovat soubor na disk a pak jej nabízet Excelu.
R.

A votom to je ... posílat to již nemusíš. Hlavně že Ti to funguje :) R.

Ahoj.

Máš pravdu ... From tam nenajdeš.
OutApp má pod sebou Session což je typ NameSpace.

OutApp.GetNameSpace("MAPI") může být jeden výsledek
OutApp.GetItemFromID(???) může být druhý výsledek

V podstatě musíš znát jméno pro Session nebo NameSpace. To pak představuje účet který požaduješ nastavit a až nakonec z nastaveného objektu volat Set OutMail = OutApp.CreateItem(0)

To je úvaha, nemám to jak vyzkoušet, když tak pardon ... budeš muset sama zkusit.
R.

Je to stejné.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje