Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  160 161 162 163 164 165 166 167 168   další » ... 283

Som teraz len na mobile, keď sa dostanem k PC tak pozriem, či sa to vôbec smie prevádzať na DEC...

A možno ani netreba RGB hodnoty, ale stačí ich previesť na DEC.

EDIT: Vymenená príloha omylom som namiesto xlNone použil vbNull 1

https://gist.github.com/lunohodov/1995178

Vo VBA je skrytý list "Pomoc", ktorý má nastavenú vlastnosť Visible na xlSheetVeryHidden, preto ten list nevidíte. Zmente si to na xlSheetVisible.
Keď vo VBA kliknete pravým na Forms - UserForm1 - View Code, nájdete tam tento kód:
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
Dim Vyska As Single

With wsPomoc.Cells(15, 6)
.Value2 = TextBox1.Text
.EntireRow.AutoFit
Vyska = .RowHeight
End With

With wsData.Cells(15, 6)
.Value2 = TextBox1.Text
.RowHeight = Vyska
End With
End Sub

Private Sub TextBox2_Change()
Dim Vyska As Single

With wsPomoc.Cells(20, 3)
.Value2 = TextBox2.Text
.EntireRow.AutoFit
Vyska = .RowHeight
End With

With wsData.Cells(20, 3)
.Value2 = TextBox2.Text
.RowHeight = Vyska
End With
End Sub


Funkčnosť tu už bola popísaná niekoľkokrát. Čo k tomu viac napísať? V TextBoxe stlačíte klávesu, napíše sa písmeno, vyvolá to metódu Change daného TextBoxu. V nej sa aktuálna hodnota Textboxu prenesie do pomocnej bunky v pomocnom liste (táto bunka má rovnakú šírku ako celá zlúčená oblasť o ktorú ide, ale len jednoriadkovú výšku), formát bunky pomocnej a zlúčenej je rovnaký, nastavené zalomenie. V pomocnej bunke sa teda potom vyvolá AutoFit
...
.EntireRow.AutoFit
...

teda sa upraví na požadovanú výšku. Táto výška sa potom prečíta a podľa nej sa upraví aj výška zlúčenej oblasti.

Každopádne je to dosť špecifické súbor od súboru, použitie od použitia, druh zlúčenia od druhu zlúčenia ...
Príloha?

Stále hovoríme o Autofit-e jednoriadkovej zlúčenej oblasti. Nie o viacriadkovej. Tam by to bolo zložitejšie.

Ak myslíte "formulárom" list a nie UserForm, tak to bude ešte zložitejšie, lebo treba ošetrovať veľa stavov (zmazanie viac buniek naraz, nesúvislá oblasť a pod...), a to sa mi moc nechce ...

Zdravím Vás.

Síce absolútne neznášam W10 a jeho systém inovácií, no včera som mal dobrú náladu, a tak som konečne povolil "inováciu" z v.1607 na v.1709. Chyba! Okrem toho, že zmizli ikony mnohého SW (Acrobat, Acrobat Reader, Nero, Skype, všetky apl. Ofice 2016, Google Earth, Corel Draw, ACDSee, ABBYY Fine Reader, ...), čo by som možno dokázal prežiť lebo SW zdá sa inak funguje, tak nejde spustiť Excel so zapnutým doplnkom Solver.xlam (Riešiteľ).
Začne inštalovať, a nikam sa nedostane ani po hodinách. Včera pri tej inštalácii vypisoval ešte chybu 400 ak som dal, že ho nechcem vypnúť (viď screen), žiaden ďalší popis.
Ak ho v nastavení skúsim spustiť, rovnaká "inštalácia", rovnako nič.

Takže som chcel skúsiť opravu inštalácie, no inštalátor Office sa nedá naštartovať ani z inštalačného média, ani z Ovládacích panelov.

Je to Office 2016 Pro SK x64, plne aktualizovaný. Nechce sa mi to tvrdo odstraňovať napr. cez Revo Uninstaller, chcem zachovať čo najviac nastavení, hlavne Outlook sa mi nechce zálohovať a znovu nahadzovať heslá, IMAP a pod. na 8 kont.

Môžem vrátiť systém naspäť, ale žiaľ zo skúseností viem, že v žiadnom prípade nieje možné veriť kecom o tom, že sa všetko vráti naspäť, nieje to tak. No a v neposlednom rade potrebujem už mať kvôli zákazníkom najaktuálnejší Win.

Kompletný Clean reinštal systému sa mi robiť nechce z časových dôvodov ...
Najradšej by som len odstránil Excel v oprave inštalácie a znovu ho potom rovnakou cestou nahodil.

Máte nejaký nápad ako opraviť ten Solver ? Alebo aspoň ako opraviť opravenie inštalácie ?

Ďakujem.

Keby ste mali tie vzorce správne (čo nemáte), tak ich odkazujete na rôzne bunky. Jeden na A1 druhý na A2.

Správne má byť (prvý riadok je SK/EN, druhý je CZ):
=IF(AND(100>A1;A1>1);TRUE;FALSE)
=KDYŽ(A(100>A1;A1>1);PRAVDA;NEPRAVDA)

=IF(AND(1<A1;A1<100);TRUE;FALSE)
=KDYŽ(A(1<A1;A1<100);PRAVDA;NEPRAVDA)


Ak v tej podmienke nechcete nič iné robiť, len vypísať TRUE/FALSE (PRAVDA/NEPRAVDA), tak vynechajte podmienku a použite len AND (v CZ je to "A")
=AND(100>A1;A1>1)
=A(100>A1;A1>1)

=AND(1<A1;A1<100)
=A(1<A1;A1<100)

V nápovede by ste mal určite nájsť. Ale ešte skôr hocikde cez Google.

Dalo by sa to aj maticovo bez pomocného stĺpca, ale na celých milión riadkov je to pomalé. Preto si obmedzte oblasť napr. do 6000. Ako píše marjankaj, príloha nekorešponduje presne s popisom. V O2 máte celkovú sumu, sem nezadávate mesiac. Mesiace máte predsa po jednom v Q2:AB2. Tam si dajte do Q2 napr. maticový vzorec (Ctrl+Shift+Enter)
=SUM((IFERROR(MONTH($H$3:$H$6000);0)=COLUMN(A1))*($H$3:$H$6000<>"")*($F$3:$F$6000))
=SUMA((IFERROR(MĚSÍC($H$3:$H$6000);0)=SLOUPEC(A1))*($H$3:$H$6000<>"")*($F$3:$F$6000))

a nakopírujte ho po AB2, a máte mesiace jednotlivo spočítané.

Ak to chcete silou-mocou urobiť podľa popisu, že zrušíte ten vzorec v O2 a nahradíte ho výberom mesiaca, tak v O3 použite predošlý vzorec ale zmente COLUMN(A1)/SLOUPEC(A1)
na O2.

V stĺpci H máte vzorec
=IF(ISTEXT(A3);TODAY();"")
=KDYŽ(JE.TEXT(A3);DNES();"")

ten sa Vám ale nebude dopĺňať ako píšete. Všetky dátumy budú rovnaké. Ak chcete pri vyplnení A zaznamenať čas v H, tak musíte zapnúť Iteračný výpočet (Súbor - Možnosti - Vzorce - Povoliť iteračný výpočet) a vzorec zmeniť napr. na
=IF(A3="";"";IF(H3="";TODAY();H3))
=KDYŽ(A3="";"";KDYŽ(H3="";DNES();H3))

Bezpečnejšie ale je zadávať dátum ručne.

Prečo by to nefungovalo. Tu som použil skrytý list na ukážku. A 2 oblasti, ktoré sa menia.

Kreslenie ? Nemyslíte tým náhodou Vložiť - Tvary - Čiary - Čarbanice (a ďalšie ...) ?

To preto, aby ste mal rovnako naformátovanú rovnakú hodnotu v bunke, ktorá nie je (!) zlúčená. A v tejto pomocnej bunke urobíte AutoFit, lebo AutoFit funguje iba na nezlúčených bunkách. Ten AutoFit nastaví ale najvyššiu výšku podľa celého riadku. Ak by to bol problém, tak použite nie skrytý stĺpec, ale skrytý list, kde nebudú vedľa iné hodnoty, ale len skopírovaná tá ktorej výšku potrebujete zistiť. Tú výšku si potom AutoFit-e prečítate a nastavíte ju na pôvodnú zlúčenú bunku.

Maticový vzorec (Ctrl+Shift+Enter) nájde najbližšiu pozíciu hodnoty zľava, bez ohľadu na počet výskytov, riadkov či stĺpcov.
=MIN(IF(A1:G5=A10;COLUMN(A1:G5)))
=MIN(KDYŽ(A1:G5=A10;SLOUPEC(A1:G5)))

Pri krkolomnom zadaní jeden krkolomný príklad:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range

Set Zmena = Intersect(Rows(10), Target)

If Not Zmena Is Nothing Then
With Zmena
If .Rows.Count < Rows.Count Then
With .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Cells.Count)
If .Value2 <> "" Then .Offset(-9, 1).Activate
End With
End If
End With

Set Zmena = Nothing
End If
End Sub

Vymazanie súboru cez Shift+Delete nieje najmenší problém. Problém je následné používanie disku. Pri mazaní sa iba v tabuľke súborového systému označí dané miesto ako voľné, ale neprepíše sa. Teda obnovovací SW nájde tieto bloky a obnoví. Xlnc to už napísal - okamžité ukončenie práce. Tým sa nemyslí iba vypnutie Wordu či Excelu, ale v ideálnom prípade urýchlené vypnutie PC. Systém totiž na HDD neustále zapisuje aj keď Vy nič nerobíte, a preto je veľká šanca že prepíše Vaše oblasti, označené ako voľné, inými dátami. A je to v p...

Najideálnejšie by bolo HDD pripojiť v inom PC a oskenovať recovery SW, alebo použiť boot verziu daného SW či Live CD s obdobným obsiahnutým SW. Ak to nieje systémový HDD (systémová partícia), tak sa to dá urobiť aj na danom PC, ale okamžite zrušiť všetky bežiace procesy aj WinUpdate a pre istotu odpojiť od siete (všetky programy dnes majú všelijaké Tasks a Updates na pozadí...).

Všetky tu menované SW som už párkrát použil, a ešte v poslednej dobe som používal Easeus Data Recovery (nieje Free).

Na požiadanie príloha bez duplicít. Na skúšku je v "Zástupce e-mail 2" pridaný mail "vedeni1@test.cz", ktorý už je vo "Vedení e-mail", a dupla sa nepoužije.

Ak má byť interval 2000-2099, tak prvé číslo nemôže byť 2001, ale 2000, ale to si len na konci zmeníte to "-1".
Na ten Váš posledný popisovaný príklad platí:
=A2&"_"&B2&"_"&C2&"_"&VLOOKUP(D2;$G$2:$H$4;2;FALSE)+COUNTIFS($D$2:$D2;D2;$C$2:$C2;C2)
=A2&"_"&B2&"_"&C2&"_"&SVYHLEDAT(D2;$G$2:$H$4;2;NEPRAVDA)+COUNTIFS($D$2:$D2;D2;$C$2:$C2;C2)

Ale v poslednom príspevku pridávate ďalšie a ďalšie podmienky. Uveďte príklad vo forme súboru (nie popisom), kde je to čo máte, a vedľa manuálne vyrobte čo s toho má byť ako výsledok.

PS: Ak sa tie čísla nesmú meniť pri zmazaní, treba to vyriešiť jedine makrom. Takže tento vzorec je pase.


Strana:  1 ... « předchozí  160 161 162 163 164 165 166 167 168   další » ... 283

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09