Příspěvky uživatele
< návrat zpět
@elninoslov
Převod té oblasti na tabulku byl vlastně důvod, proč jsem si to otevřel. Nicméně musíte pak stejně vyřešit posun řádků té spodní tabulky. Prostým zkopírováním celého řádku máte ale zabezpečeno, že se tabulka posune a vloží se i vzorce. Ve spodní tabulce se navíc vzorce automaticky rozšíří, protože chytře (i když možná ne záměrně) jsou vedeny až těsně nad ni. Tedy sice počítají i s prázdnými buňkami nad tabulkou, ale pokud nebudou použity, ulehčí to práci. Nakonec bych to tedy na tabulku nepřeváděl (i když by to asi ničemu nevadilo).
S tím ComboBoxem jsem si myslel, že to tam asi máte k vůli přehlednosti. Nícméně - výhoda toho, že je to bez kódu u mně převýší.
Je okurková sezóna, taxem na to koukl a nestačím se divit - proboha, co jste to vytvořili?
1. Název SeznamPoložek se odkazuje na vzorec
=export!$B$2:INDEX(export!$C:$C;ŘÁDKY(export!$B:$B)-COUNTBLANK(export!$B:$B))
přitom tato oblast je v tabulce. Takže je zbytečný, nebo maximálně má odkazovat na
=Tabulka_Sklad_položky_List1[[Položka]:[popispol]]Zbytečný není v případě Ověření dat.
2. Je pravda, že jsem koukal jen krátce - ale proč ComboBox - proč ne Ověření dat - Seznam?
3. Když už teda ten ComboBox - proč nemá nastaveno Style na 2-frmStyleDropDownList abych nemohl vybrat hodnotu, která není v seznamu?
4. A nakonecHlavní dotaz - a k čemu vůbec VBA. Celé to jde udělat čistě. Přidání řádku uděláte ručně - vyberete celý řádek 24, dáte kopírovat, označíte řádek 25 a vložit kopírované buňky.
Mohl bych si s tím ještě pohrát, ale pro ukázku stačí.
@Vovka
Je to jedno, ale efektnější je prostě nedovolit zadat nečíselnou hodnotu. Např.:Private Sub TextBox1_Change()
Static sVal As String
If IsNumeric(TextBox1.Text) Then
sVal = TextBox1.Text
Else
TextBox1.Text = sVal
End If
End Sub
koukám, že nějaké nastavení je v site preferences - bod 7 - takže by to mělo jít
http://www.imdb.com/help/show_leaf?sitepreferences
jj - to jsem si všiml.
S Imdb moc zkušeností nemám. Budete muset prohlížeč přinutit, aby stahoval originály. Možná se bude stačit přihlásit k serveru a někde v nastavení si to změnit (asi to bude muset být v IE).
Pokud to nepude - je tu možnost z druhého odkazu - nechat to vše znovu projet a vyhledat si originální název.
Je to moje téma, tk si dovolím trochu odbočit.
Tak jak nadáváme na český MS za překlad funkcí - jsem rád, že nejsem polák. Ti na to šli od lesa ;)))
Anklicky Česky Polsky
ABS ABS MODUŁ.LICZBY
BIN2DEC BIN2DEC DWÓJK.NA.DZIES
CEILING ZAOKR.NAHORU ZAOKR.W.GÓRĘ
CEILING.PRECISE CEILING.PRECISE ZAOKR.W.GÓRĘ.DOKŁ
CELL POLÍČKO KOMÓRKA
COUNT POČET ILE.LICZB
COUNTA POČET2 ILE.NIEPUSTYCH
COUNTBLANK COUNTBLANK LICZ.PUSTE
COUNTIF COUNTIF LICZ.JEŻELI
COUNTIFS COUNTIFS LICZ.WARUNKI
ISBLANK JE.PRÁZDNÉ CZY.PUSTA
ISREF JE.ODKAZ CZY.ADR
ISTEXT JE.TEXT CZY.TEKST
LARGE LARGE MAX.K
RAND NÁHČÍSLO LOS
RANDBETWEEN RANDBETWEEN LOS.ZAKR
REPT OPAKOVAT POWT
SIGN SIGN ZNAK.LICZBY
SUBTOTAL SUBTOTAL SUMY.CZĘŚCIOWE
SUM SUMA SUMA
SUMIF SUMIF SUMA.JEŻELI
SUMIFS SUMIFS SUMA.WARUNKÓW
SUMPRODUCT SOUČIN.SKALÁRNÍ SUMA.ILOCZYNÓW
WEEKDAY DENTÝDNE DZIEŃ.TYG
YEAR ROK ROK
Mimochodem
http://www.omdbapi.com/
Moc jsem nestudoval, jestli se dá stáhnout ten žebříček - ale v každém případě ty HT odkazy obsahují ID filmu, takže to vypadá, žepomocí OMDb API je možno krásně stáhnout informace k filmu.
U mně prošlo normálně něco takovéhoSub subDownImdb()
Dim sConnect As String
sConnect = "URL;http://www.imdb.com/search/title?num_votes=10000,&sort=user_rating,desc&start=#START#&title_type=feature"
Dim iRow As Long
iRow = 1
With Workbooks.Add.Worksheets(1)
Dim iStart As Integer
For iStart = 1 To 501 Step 50
With .QueryTables.Add(Connection:=Replace(sConnect, "#START#", CStr(iStart)), Destination:=.Cells(iRow, 1))
.Refresh BackgroundQuery:=False
.Delete
End With '.QueryTables.Add(Connection:=Replace(sConnect, "#START#", CStr(iStart)), Destination:=.Cells(iRow, 1))
.Rows(iRow).Delete
iRow = .Cells(1).CurrentRegion.Rows.Count + 1
.Range(.Cells(iRow, 1), .Cells(.Rows.Count, 1)).EntireRow.Delete
Next iStart
End With 'Workbooks.Add.Worksheets(1)
End Sub
Prvních 550 výsledků v příloze
hmm
neregistrovaný uživatel zde vložil odkazy.
Děkuji nevyzkouším a neuvidím ;)))
Zdravím, mám tabulku kde při změně hodnoti dochází k automatickému řazení dat del tohoto makra.
Problém je v tom, že mi to vůbec neřadí.
;)))
souhlasím - je to prasárna. Ale dnes jsem se asi dobře vyspal a hned mně něco napadlo a sám jsem celkem překvapený - funguje to.
Stačí vlastní formát + zarovnání na střed výběru. Tedy bez kódu.
Pokud je jeden z nich možné nastavit jako tiskárnu, tak to nevadí. Pak byste prostě vytiskl pdf, přepnul na klasiku a ještě jednou vytiskl na papír. To vše v Before_Print. Jen s tím názvem souboru to může být problém.
Pokud ne, tak Bullzip je freeware - můžete oslovit kompíky va Vaší firmě a požádat o instalaci. U nás je na každém novém PC. Navíc se dá tisk (název souboru a další) nastavit pomocí VBA.
Ano, to bude tím. 2003 neobsahuje možnost uložit jako PDF. Nejsnadnější bude pro Vás instalace nějaké aplikace, která umožňuje tisk do PDF (např. mnou zmíněná Bullzip).
Dobrý den
Dobrý den
chci se zeptat jestli jde navázat makro na název sloupce.
Ano
ted mám makro které se udelá podle pořadí sloupce.
To se máte, že ho máte.
takže se chci zeptat jestli to jde nějak navázat na název sloupce.
Zase ano.
nebo nějaka jiná lepsí rada ??
Pravděpodobně
díky
Není zač.
Musíte vysvětlit, co přesně děláte.
V a2 v buňce D6 máte vzorec=SUMIF('[a1.xlsx]Revír _C_prispôsobený'!$I$5:$I$26;B6;'[a1.xlsx]Revír _C_prispôsobený'!$D$5:$D$26)v a1 máte ten samý vzorec=SUMIF('Revír _C_prispôsobený'!$I$5:$I$26;B6;'Revír _C_prispôsobený'!$D$5:$D$26)
Pokud ta tabulka v a2 má být kopií tabulky v a1, tak už nepočítejte to, co máte spočítané a odkažte se na výsledek.=[a1.xlsx]Tabuľka_C!D6
Nebo vysvětlete přesněji, o co jde.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články