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

Příspěvky uživatele

Ahoj,

momentálně si to nemůžu odzkoušet, ale řekl bych že tam jsou chyby 2 :-)

1) Když chyba = true nebo false znamená že je nebo není chyba. Takže bych řekl že tam chybí to = true.
2) Pokud je podmínka s procedurou při splnění na jednom řádku tak nenásleduje end if

Např.:
if a=1 then b=0
nebo
if a=1 then b=0 else b=1

end if musí být v případě:
if a=1 then
b=0
end if
toto se používá až když potřebuješ víc než jednu proceduru v případě splnění či nesplnění podmínky.

Takže by ten zápis měl vypadat asi takhle:

For Each bunka In oblast
If IsError(bunka)=true Then bunka = 0 'A tu uz snad nemame chybu
Next bunka

M@

Ahoj,

Jeden pokus v příloze, snad fungující na ty 2 tlačítka :-)

M@

Ahoj, jsi si jistý, že to nefunguje od jisté doby, nebo to spíš nikdy nefungovalo? :-) Ono to totiž standartně nefunguje :-).

Zkus:
http://office.microsoft.com/en-ca/excel-help/add-support-for-the-scroll-wheel-to-the-microsoft-visual-basic-for-applications-6-environment-HA010117590.aspx
nebo
http://www.databison.com/index.php/make-mouse-scroll-wheel-work-in-vba-editor-ide/

Já to rozchodil :-)
M@

do buňky C2 vložit třeba:
=KDYŽ(JE.CHYBHODN(INDEX(List1!C:C;POZVYHLEDAT(A2;List1!D:D;0);1));"";INDEX(List1!C:C;POZVYHLEDAT(A2;List1!D:D;0);1))

a roztáhnout :-)
M@

nebo jen: =G3-(C3/60/24)

M@

Ono vzerečky se těžko posuzují, když člověk nevidí zdrojová data a co to vlastně má dělat.

=(KDYŽ(SVYHLEDAT(D4;$A$28:$L$33;12;0)=0;0;SVYHLEDAT(A4;$A$48:$D$64;3;0)*KDYŽ(JE.CHYBHODN(SVYHLEDAT(SVYHLEDAT(A4;$A$48:$D$64;2;0);$A$36:$D$44;2;0));0;((SVYHLEDAT(SVYHLEDAT(A4;$A$48:$D$64;2;0);$A$36:$D$44;2;0)-SUMIF($B$69:$B$71;SVYHLEDAT(A4;$A$48:$D$64;2;0);$I$69:$I$71))))))

M@

Ahoj,

jen tak pro srovnání myšlenek:
Ty máš jakýsi řekněme exceleový seznam položek, ke kterým chceš hromadně přiřadit cenu z Heuréky, to znamená, že u každé položky v tvém seznamu musí být i ID produktu na Heuréce aby bylo podle čeho párovat.

To bych asi navrhl vytvořit webovou stránku (může být tvořena tím excelem, která vytvoří jakousi tabulku a co řádek to ID + kód textového baneru pro získání ceny daného ID.
Tuto stránku si nechat někde na webu a v excelu pak dát Data -> Importovat externí data -> Nowý webový dotaz -> odkaz na vlastní PHP stránku s tabulkou. Pak už by měla stačit funkce SVYHLEDAT a podle ID spárovat a ořezat tak aby zbyla jen cena od.

To by mě zajímalo jestli tohle může fungovat :-).
Jinak nevím jestli se jim bude líbit ta spousta dotazů provedených na jejich server - ale to už není téma pro mě :-).

Tak tolik k teorii :-)

M@

Ahoj,

mám Office 2003, prvek mi v editoru vložit jde, ale při zobrazení Userformu Excel spadne.

Asi budu muset jít cestou VB a ne přes VBA v Excelu, leda by měl někdo jiný nápad jak vložit tabulku na Userform (nemusí to být nezbytně Office Web Components).

Díky
M@

Což o to udělat to můžu na jiným počítači kde to půjde, ale problém je v tom, že to pak má využívat více uživatelů a tak nějak si nechci vzít na svědomí, že jim při spuštění lehne Excel se vším ostatním co budou mít rozpracované. Nejsem schopen rozeznat příčinu a tak ji ani ošetřit :-/

Tak to naštve vědět že to nefunguje jen mě :-)).

Dostal jsem to tam viz. obrázek v příloze.

Použité prvky jsou: http://en.wikipedia.org/wiki/Office_Web_Components

Teď jak přimět můj Excel aby nepadal :-)

M@

Můžu tě poprosit o test, mám to takhle jen cvičně a kdykoliv kliknu na tlačítko na listu tak Excel lehne :-/. Tak jestli to třeba nedělá jen mě.

Jinak budu muset hledat jiné řešení :-(

Díky
M@

Ahoj,

jediný co jsem našel byl prvek Microsoft Office Spreadsheet 10 případně 11 což je součástí MS Office Web Components, toto ve Visual Basicu používám běžně, ale ve VBA, když to vložím, tak je to OK, ale jakmile chci daný form zobrazit (aniž bych tam měl jakékoliv makro), tak mi to zhroutí celý Excel .
M@

Ahoj,

Hledám nějaký způsob jak na Userform vložit tabulku, cca 5 sloupců a proměnlivý počet řádků. Napadlo mě použití Listboxu a hodnoty oddělit tabulátorem, což ale není zrovna optimální, zvláště když bych občas nějaký řádek potřeboval jinou barvou.

Má někdo nějaký tip?

Na listu v excelu mám jakýsi seznam řekněme Items a na jiném listu pak doplňující údaje ke každému řádku na listu1, řekněme Subitems kterých může být několik, předem nevím kolik. Cílem je abych při výběru Item na listu1 viděl v malém okně přehled Subitem k dané položce. Nechci přepínat mezi okny.

Díky
M@

Ahoj,

myslím že ne, buď ukotvíš přímo na listu určité sloupce a řádky. Nebo to pak upravíš makrem, ale není to přímo na scrolování, ale bude to reagovat až při výběru buňky po naskrolování.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
List1.Shapes(1).Top = Rows(ActiveWindow.ScrollRow).Top
End Sub
Další možností je přidání vlastního tlačítka do panelu nástrojů excelu, což je možná lepší řešení :-)
Když někdo přijde s lepším řešením, tak se rád přiučím :-)
M@

Tak jsem to zkoušel a tvůj příklad nefunguje, protože u multivýběru nefuguje příkaz Selection.Rows.Count ten vždy vrátí 1.
Trochu jsem to zkusil obejít:
Dim radek As Single
Dim rd As Single
Dim Data(1 To 4, 1 To 30) As String

radek = 0

For Each cell In Selection
If rd <> cell.Row Then radek = radek + 1
If cell.Column < 30 Then
Data(radek, cell.Column) = cell.Value
'MsgBox cell.Value & vbNewLine & radek & " / " & cell.Column
End If
rd = cell.Row
Next
jinak kdybys to chtěl udělat svým způsobem, tak by asi bylo nejsnažší udělat Selection.copy a vložit vybraná data do "pracovního listu", kde by si z toho měl spojitou oblast :-).

S pozdravem
M@

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse