Příspěvky uživatele
< návrat zpět
Majte všetko v správnom formáte, čo pre Váš prípad znamená Text. Nestačí dať iba Formát bunky na Text, ale ešte aj urobiť z toho skutočne text tak, že sa dočasne vytvorí stĺpec =""&A2 a tieto hodnoty sa nakopírujú ako "Hodnoty" namiesto pôvodných. Dočasný stĺpec zmazať. Vo vzorci iba zmeniť adresu kontrolovanej bunky z C2 na A2. Basta-fidli.
Ujasnime si pojmy a dojmy.
Vy zisťujete, či číslo "HS" začína ktorýmkoľvek číslom "Vyloucene"? Ako toto spĺňa "Vyloucene" číslo 9202101000 ???
Žiadne číslo "HS" nezačína ničím z 9202101000. Ani ak by sme posledné 0 vynechali a bolo by to 9202101.
Premyslite si poriadne čo požadujete, aké dávate príklady, a tieto príklady vysvetlite - na prílohe, pričom dbajte aby boli požadované príkladné výsledky správne. Nestačí iba povedať "nefunguje", keď dostanete návrh na riešenie.
Nuly na začiatku čísel "Vyloucene" nemôžete odstrániť, viď pr4.
Polepšite sa 
Nedal som nič nevyskúšané. Všetko u mňa na Vašich dátach funguje (Excel 2019). Som teraz len na mobile, keď prídem, pošlem Vám to vo Vašom súbore.
že by takto (maticový vzorec Ctrl+Shift+Enter):
=IF(SUM(COUNTIF(C2;Vyloucene!$A$1:$A$61&"*"))>0;"ANO";"NE")
=KDYŽ(SUMA(COUNTIF(C2;Vyloucene!$A$1:$A$61&"*"))>0;"ANO";"NE")
alebo normálny nematicový naiesto SUM/SUMA dať SUMPRODUCT/SOUČIN.SKALÁRNÍ
Aha, takto. A ja som to páskoval pred alebo za :) Škoda, že to nejde ešte na ten čudlík s PrintOut. Nuž ale čo, aj tak je to prd platné, lebo tých možností výplní a farieb, ktoré by bolo treba odstraňovať sú mraky. Napadlo ma, či by nebolo jednoduchšie vyrobiť tlačový list, do ktorého by sa natiahli iba nefarebné dáta + tie ikony, alebo prípadné vytváranie dočasnej kópie listu a odstránenie farieb a PF (okrem ikon) a následné jeho zmazanie...
Ale je čas spať.
Barth, eLCHa: Tak som si to vyskúšal, a nejako mi to hlava neberie, ako je to myslené. Skúste prosím doplniť do môjho pokusného súboru, kam by sa malo to Cancel = True vsunúť, prípadne, ako to upraviť. Makro samozrejme nečaká na nabehnutie driveru tlačiarne (skúšam na Bullzip PDF). Vymaže farby, spustí tlač, a skôr ako nabehne tlač, je všetko obnovené a makro ukončené. Rovnako pri Ctrl+P aj PrintOut.
Ď.
PS: Makro je iba rozpracované, Opakujú sa v ňom podobné časti, a ak to bude takto použiteľné prerobím na param. procedúry.
Akože sa majú ignorovať iba posledné nuly, či čo ??? V tom prípade spĺňa podmienku iba jediné. Na jednom liste čísla, na druhom text, určite je to správne?
Tým "černobílý tisk" myslíte snáď šedú škálu, lebo už som dosť veľa rokov nevidel ČB tlačku :)
Ale to je nepodstatné. Platí to čo som písal. Treba vedieť odchytiť koniec tlače, aby ste mohli vrátiť farby späť. Inak to nepôjde. Počkajte na iný názor a potvrdenie/vyvrátenie.
Podľa mňa nepotrebujete 4 stĺpce v ListBoxe ale stačia 3, a tretí nebude zobrazený. To zoradenie B chcete makrom alebo si to zoradíte v zozname v liste a až potom načítate do ListBoxu?
Každopádne napr takto:
wsListocek.Cells(LbTovar.List(LbTovar.ListIndex, 1) + 1, 2).Activate
EDIT: Prípadne ukážka:
Takže Vy chcete tlačiť v šedej škále písmo, orámovania, šípky a objekty, ale nie vyfarbené oblasti ? Tak to nepôjde.
Jedine makrom pred začiatkom tlače nastaviť výplne na prázdne, a po skončení tlače naspäť. Snáď ma niekto opraví, odchytiť počiatok tlače sa dá v procedúre Workbook_BeforePrint, ale koniec tlače len tak neodchytíte. Taká požiadavka sa tu už riešila, ale nepamätám si, že by sa našlo schodné riešenie.
Mám na toto už dávno jeden nápad (v triede spracovávať prekresľovanie prvkov ribbonu alebo API FindWindow), ale to vyžaduje dlhé skúmanie, a to sa mi v tomto období teda nechce ...
Dajte v nastavení tlačiarne šedú škálu, nie čiernobielu. Nastavenie listu nechajte na default.
Dajte tento vzorec do B5, tú B5 dajte kopírovať, označte B5:AH32, pravý klik, Možnosti prilepenia - Vzorce.
=IF($A5="";"";VLOOKUP($A5;data!$B$2:$AJ$26;COLUMN(C5)))
=KDYŽ($A5="";"";SVYHLEDAT($A5;data!$B$2:$AJ$26;SLOUPEC(C5)))
Ale. Veď tie údaje v "Prosinec" sú potom kópia údajov v "data". Veď ich teda rovno vložte ako hodnoty do Prosinec. Alebo len nerozumiem potrebe mať presne rovnaké údaje v 2 listoch.
Ďalšia vec je, či Vy v Prosinec máte zoznam jedinečných ID (osobných čísel), alebo aj ten potrebujete tvoriť. A s tým suvisí aj to, či sa môže v "data" vyskytovať viackrát riadok s rovnakým ID - potom na hodnoty použiť SUMIF.
Zatiaľ nieje potrebné použiť makro.
Tak od boku skúste toto. Keď vravíte rozsiahla tabuľka, tak sa obávam o rýchlosť. No skúste.
Ešte to skrátime:
Private Sub cbVyrobce_Change()
Dim ADR As String
On Error Resume Next
ADR = "=vstupni_data!" & wsData.Range("MODEL").Address
cbModel.ListFillRange = ADR
Range("E6").ClearContents
End Sub
Definovaný názov MODEL obsahuje odkaz na správnu oblasť modelov podľa vybraného výrobcu. Je to zabezpečené pomocou OFFSET/POSUN a MATCH/POZVYHLEDAT.
Pri zmene výrobcu, alebo jeho vynulovaní, dôjde k tomu že sa do premennej ADR pokúsi priradiť adresu správnej oblasti MODEL. Ak nastane chyba (výrobca je prázdny, alebo bez modelu,...) ADR bude "". Teda sa zoznam v cbModel vlastne vynuluje. Ak ale bude výrobca validný, tak sa do cbModel načíta správna oblasť. Prípadná predchádzajúca hodnota v cbModel sa vymaže pomocou ClearContents na jej prepojenej bunke.
Tak ono by sa to dalo skrátiť aj takto:
Private Sub cbVyrobce_Change()
Dim ADR As String
On Error Resume Next
If WorksheetFunction.CountIf(wsData.Range("MODEL"), Range("E6").Value) = 0 Then ADR = "=vstupni_data!" & wsData.Range("MODEL").Address
cbModel.ListFillRange = ADR
Range("E6").ClearContents
End Sub
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