Příspěvky uživatele

Upustím od konfrontačného tónu a uvediem dôvod, prečo som uviedol svoje riešenie. Z odpovedí a i svojich vlastných riešení sa zvyčajne dozviem viac, než z otázok samotných. Uznávam, že OP v tomto prípade moja odpoveď možno iba zamotala hlavu, naivne ale dúfam, že niekomu z ostatných kolegov môže byť ku prospechu. Sám neobvyklejšie riešenia vítam, naučím sa z nich viac. Záleží asi na tom, kam sa jeden chce so svojimi znalosťami dostať.
P.S. Výhodou môjho riešenia proti viacerým úrovniam IF je pmn jeho škálovatelnost.

@vovka Celé by to ovšem mohlo fungovat, jen když E3 bude vyjádřeno přímo v hodinách
áno, ale predpokladám u tázateľa istú mieru inteligencie a nemám ani čas ani chuť podchytiť všetky eventuality len preto, že niekto nedá prílohu, z ktorej je jasné, či hodiny sú skutočne vkladané ako hodiny, t.j. 1/24 dňa.. Mne prišlo zaujímavé skúsiť vec inak než cez IF (česky KDYŽ, keď je tu teda potrebné písať všetko lopatisticky), otázku okolo 4,5 vs. 4:30 som skutočne neriešil, to nie je problém do vzorca zapracovať..

má to síce svoje muchy, ale výsledok podľa zadania sa dá i takto:=E3-CHOOSE(MATCH(E3;{12;10,5;4,5};-1);1;0,5;0)

Už ležím v posteli a píšem z mobilu. Takže riešenie nenaservírujem. Ale je to skutočne banalita. Daj si do Google Goal Seek Excel a som si istý, že nájdeš hromadu odkazov, z ktorých pochopíš, čo sa chce...
Napr. tu http://m.dummies.com/how-to/content/how-to-use-the-goal-seek-feature-in-excel-2013.html

Za našich dôb sme rovnice o jednej neznámej i kvadratické rovnice riešili už na ZŠ, pokiaľ ma pamäť neklame. Dnes na to máme chvalabohu Excel... Zostaviť graf je trivialita, to isté platí o použití Goal Seeku. K riešeniu príkladov do školy sme tu poniektorí trochu neochotní...

Jj, toho som si vedomý. Ale vychádzal som zo zadania a z neho Tebou uvedená eventualita priamo nevyplývala. Ošetriť by šla, ale kód by narástol na objeme a nemám istotu, či to nie je zbytočné, keď OP píše, že moje riešenie postačuje.

Príliš som to neladil, ale upresnenému zadaniu by mohlo vyhovovať toto:Sub DoplnPoznamkuModified()
Dim OblastPoznamky As Range 'Oblast poznamky
Dim cell As Range, mArea As Range, rReduced As Range, mRng As Range
Set OblastPoznamky = Selection 'Nastaveni mista pro vlozeni tabulky
For Each mArea In OblastPoznamky.Areas
Set rReduced = mArea.Resize(mArea.Rows.Count, 1)
For Each cell In rReduced
Set mRng = Range(cell, cell.Offset(0, 2))
With mRng
.Merge
.Value = "Poznámka"
.Interior.Color = vbYellow
.HorizontalAlignment = xlCenter
End With
Next cell
Next mArea
End Sub

Pokiaľ tým skenerom sa pri zápise do B2 spustí udalosť Worksheet_Change (to nevyskúšam, páč skener nemám), tak by teoreticky mohlo fungovať toto, zapísané do kódového okna listu:Private Sub Worksheet_Change(ByVal Target As Range)
Dim mRng As Range, wRng As Range
If Target = [B2] Then
Set mRng = [B4]
Set mRng = Range(mRng, mRng.End(xlDown))
Set wRng = mRng.Cells(WorksheetFunction.Match(Target, mRng, 0), 3)
wRng.Select
End If
End Sub... do sloupce C dopíše se stav - nepíšeš, akým spôsobom sa má ten stav dopísať, takže makro zrealizuje odskok do bunky, kam sa má ten stav zapísať..

Pri troche snahy by si si mal byť schopný kód do svojho sheetu zakomponovať, alebo?

Príloha je tajná, že? Takže moja bude tajná tiež. Kód:Sub CheckBox1_Click()
With ActiveSheet
If .CheckBoxes(1).Value = 1 Then
.Buttons(1).Visible = True
Else: .Buttons(1).Visible = False
End If
End With
End Sub

@marjankaj: Ono si za to do značnej miery môžeme sami, vďaka svojej ješitnosti, alebo ako to vlastne nazvať

. Pokiaľ by sme za riešenie striktne požadovali nejakú úhradu, OP by sa začali snažiť trochu viac, aby poskytli čo možno najpodrobnejšiu a najpresnejšiu špecifikáciu problému hneď na začiatku. Ale pokiaľ sa nájde niekto, ochotný radiť zadarmo (a to poväčšine, k našej škode, platí), tak sa niet čomu diviť, že existujú vlákna na 4 a viac strán i v prípadoch, že pri zrozumiteľnom zadaní a dodaní prílohy, z ktorej bude hneď jasné, čo sa chce, by stačila na vyriešenie jedna odpoveď. Za seba ale hovorím, že bedhov problém som, trúfam si tvrdiť, pochopil hneď z jeho úvodných príspevkov.

Zastanem sa trochu bedhu. Myslím, že postupne sa dopracoval k presnému popisu problému, ktorý rieši, a nakoniec sem vložil i prílohu (palec hore!). Do prílohy som síce nepozeral, ale dovolím si tvrdiť nasledujúce:
1. Funkcia INDIRECT skutočne neumožňuje načítať dáta zo zavretého súboru.
2. K uvedenému problému, citujem: Pokud mám 5 souborů, tak do 5 buněk ve sloupci B ten odkaz vypíšu (B1='C:\složka\[1.xls]List2'!$C$3 B2='C:\složka\[2.xls]List2'!$C$3 ... B5='C:\složka\[5.xls]List2'!$C$3)

A já potřebuji aby to co je v hranaté závorce bylo bráno ze sloupce A (v tomto případě A1=1, A2=2...A5=5), ale pokud napíšu B1='C:\složka\A1.xls]List2'!$C$3 tak se to jako rozkopírovatelný vzorec nechová. Už si rozumíme nebo mi poradíte i knihkupectví kde mám knihu zakoupit?

...ma napadá riešenie makrom (asi nič prekvapivé, že?), kedy je, domnievam sa, možné poskladať FORMULu (FORMULA alebo FORMULALOCAL) ako textový reťazec, ktorý si bude príslušné časti ťahať zo zmieneného stĺpca A (a prípadne ďalších pomocných stĺpcov). To makro ale písať nebudem, nemám na to čas

Data preklopíš napr. takto:Sub test()
Dim myArr As Variant, i As Byte, j As Byte, k As Byte
myArr = Sheet1.[B2].CurrentRegion
k = 3
With Sheet2
.Cells.Clear
For i = 1 To UBound(myArr, 1)
For j = 2 To UBound(myArr, 2)
If myArr(i, j) <> "" Then
.Cells(k, 2) = myArr(i, 1)
.Cells(k, 3) = myArr(i, j)
k = k + 1
End If
Next j
Next i
End With
End Sub

formátovanie si už dorobíš, mám za to, že ti ide primárne o tú transformáciu..

http://lmgtfy.com/?q=force+macros+to+be+enabled

mno, ono to vovkovo riešenie je funkčné len v prípade, že sa vyberie súvislá oblasť, pretože:

When applied to a Range object that's a multiple-area selection, this property returns columns from only the first area of the range. For example, if the Range object has two areas — A1:B2 and C3:D4 — Selection.Columns.Count returns 2, not 4. To use this property on a range that may contain a multiple-area selection, test Areas.Count to determine whether the range contains more than one area. If it does, loop over each area in the range.

ale pokiaľ píšeš, že funguje, tak to asi takto stačí..

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje