Příspěvky uživatele

Tak to samozrejme nejde, páč v prípade Sheetu sa jedná o datový typ Object. Ako konštantu by bolo možné ale zadeklarovať názov toho listu - aby bola istota, že v priebehu behu kódu nedôjde ku zmene objektu, s ktorým chcem pracovať. Tak som to myslel, okrem toho, z pôvodnej otázky jednoznačne nevyplývalo, že sa má jednať o datový typ Object.
Prečo to urobiť takto? Aby som potom nemusel hľadať niekde vo vnútri kódu, kde nastavujem hodnotu prípadnej premennej. Hodnotu premennej nenastavím mimo procedúry (aspoň sa domnievam, že to nejde), hodnotu konštanty áno.

Sub Test()
Const myPicName As String = "D:\meno\dokumenty\podklady\obrázky\2.jpeg"
Dim pic As Picture, i As Byte, j As Byte, w As Single, h As Single
For Each pic In ActiveSheet.Pictures
pic.Delete
Next pic
h = [A1].Height - 6
w = [A1].Width - 6
For i = 1 To 11
For j = 1 To 4
Set pic = ActiveSheet.Pictures.Insert(myPicName)
With pic
.Top = Cells(i, j).Top + 3
.Left = Cells(i, j).Left + 3
If .Height > h Then .Height = h
If .Width <= w Then .Left = .Left + (w - .Width) / 2
If .Width > w Then .Width = w
If .Height <= h Then .Top = .Top + (h - .Height) / 2
End With
Next j
Next i
End SubOptimalizáciu behu som neriešil, funkčné to je. Stačilo by veľkosť obrázku a jeho pozíciu voči bunke nastaviť iba raz a potom už pracovať s takto zistenými hodnotami. Tým by sa to makro zrýchlilo, ale ide o blbosť, i takto to beží len pár sekúnd. Autorom tých ďalších makier v tom súbore, ktorý si poslala, asi nebudeš..

Selection, cyklus For - Next, Cells(i,1).Offset(0,x)=Cells(i,1).Offset(0,x)+1
jasne, nie? :)
Nie je ovšem nutné kvôli každej blbine písať makro, v tomto prípade stačí prosté Paste Special, záleží, ako často to človek potrebuje použiť. Okrem toho, makro bude mať jednu nevýhodu, a to je nemožnosť Undo, pokiaľ sa to nejako neošetrí..

Alebo INDEX.

Otazka neznela, akym sposobom filtrovat, ale ako spocitat pocet vyfiltrovanych zaznamov. Odpoved na otazku som uviedol.

Prestuduj moznosti funkcie SUBTOTAL. Vobec nechapem, k comu by v tomto pripade mohli sluzit MIN a MAX, pokial by sa nemalo jednat o skutocne bizardny vzorec...

Po tom, co do premennej nacitas ten objekt, tak je pristupny vsetkym makram v projekte. Hodnotu premennej nastavujes samozrejme az v ramci nejakej procedury, nakolko si ju zadeklaroval ako Public, tak s jej aktualnou hodnotou pracuju potom vsetky procedury v ramci daneho projektu. Mam za to, ze otazka bola zodpovedana cela. Miesto premennej mozes samozrejme pouzit konstantu. Rozdiel medzi premennou a konstantou je jasny?

jj. Splietol som sa. Nechcelo sa mi kvoli tomu zapinat notebook a hladat to..

Zadeklarujes v niektorom z modulov. Na začiatku. Pred procedurou. A deklaracia bude Public, nie Dim. Nesmie byt v module s Option Private module. Pisem z mobilu, ale nejak tak to bude...

No, aritmetický priemer trinástich hodnôt, z ktorých každá je 2, je skutočne 2, čiže 200%. Ty si učiteľ a niečo učíš? Na tej škole bude asi niečo špatne. Študenti sú jasnovidci? Sorry za sarkazmus, ale fakt predpokladáš, že ti niekto pomôže bez prílohy? :)

Karle, skryté sloupce jsou základ a každý manažer o nich ví (prostě neberu, že ne).
No práve, takže si ich dokáže zobraziť, keď bude chcieť, čiže snaha o "utajenie" vyjde i tak vnivoč. Na druhej strane, mne sa stalo v minulosti niekoľkokrát, že som skryté stĺpce neodhalil a potom som sa s tým následne trápil. Mám rád čisté riešenia - pokiaľ sa má jednať o medzivýpočty a pod., tak kľudne zoskupiť - na sheete ich vidieť nemusím, ale hneď pri zhliadnutí sheetu viem, že nejaké pomocné stĺpce (napríklad) sú "skryté". Inak, o manageroch máš asi pomerne vysokú mienku, za svoju kariéru som zažil spústu "managerov", znalosti excelu ktorých stáli za starú bačkoru. V súčasnej práci si ale na ľudí nad sebou sťažovať fakt nemôžem, pokiaľ nevedia (nikto nevie všetko), tak zo mňa aspoň nerobia blbca. Mať nad sebou dobrých šéfov chce ale hromadu šťastia :) Spomínam si na šéfa z minulej práce, ktorý nebol schopný pomaly si vytvoriť ani blbú kontingenčku, žiadne výpočtové polia, obyčajnú kontingenčku a po mne sa chcel voziť za to, že som mu v súbore, ktorý si nemožne nadesignoval, neukotvil na nejakom sheete priečky. Keď som namietal, že ten jeden click myšou mu trvá rovnakú dobu ako mne, tak sa rozčuľoval, že to tam malo byť a on je manager. K...t! Než niečo vypotil, trvalo to večnosť, takže v práci "pracoval" od nevidím do nevidím a nechápal, že ja si po tom, čo si svoje urobím, dovolím odísť domov. Našťastie, táto moja životná etapa je už minulosťou :). Pokiaľ niekto trávi čas činnosťou, ktorú iný zvládne za zlomok času, tak je to dôkaz neschopnosti prvo menovaného a mal by za to byť trestaný. Bohužiaľ, na daných ľudí, naprosto neschopných pracovať efektívne, sa často nazerá ako na nesmierne pracovitých. To je psycho, já bych blil, velebnosti :)

@marjankaj
Autor možno opisoval a trochu to prekombinoval :)

@ eLCHa: Předpokládám, že funkce NYNÍ je tam proto, aby došlo k přepočtu po stisku klávesy F9.
Áno, to bol zrejme ten kýžený dôvod. Ničmenej, vzhľadom k tomu, že definovaný názov už obsahuje funkciu INDIRECT, ktorá je volatilná, tak k prepočtu po stisknutí F9 dôjde i bez toho, aby názov obsahoval funkciu NOW, ktorá je potom v danom vzorci skutočne zrejme nadbytočná :) Dávala by zmysel, pokiaľ by definovaný názov bol tvorený bez použitia INDIRECT: =GET.CELL(63;Sheet1!A1)+NOW()*0

Pavlus - dáva to zmysel, do momentu, kedy sa to neotočí proti Tebe: dostaneš od niekoho iného sheet so skrytými stĺpcami, nevšimneš si to a vzniká potenciálny problém.
Preto u svojich sheetov v podstate vždy dávam prednosť zoskupovaniu pred skrývaním stĺpcov. Ver tomu, že moje dashboardy sú publikované v rámci našej firmy po celom svete., ani jeden užívateľ nenamietol nič proti tomu, že v sheetoch vidí tlačítko expand/collapse. Pokiaľ si niekto z top managerov chce prezrieť, čo sa nachádza v takto "skrytých" stĺpcoch, nevidím dôvod, prečo im v tom brániť.

WorksheetFunction.Text([A1], "h:mm")?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje