Příspěvky uživatele
< návrat zpět
Do zlúčených buniek sa nedá zapisovať. Ale je možné tam nechať nejaké hodnoty.
Všimni si rozdiel medzi 1. a 2. riadkom.
Draincz napsal/a:
Děkuji za odpověď ale tento způsob je pomalejší než klasickým zadáváním :(
Hmm... A prečo to teda nezadávaš klasicky?
Možno ti robí problém označovať bunky? SHIFT+klik myškou alebo CTRL+ klik myškou ťa nenaučili? Najvyšší čas ísť na nejaké školenie excelu.
Venali napsal/a:
marjankaj: tak to potom jo, ale zapomněla jsem, že jsem vyměnila ve vzorcích 0 za mezeru, proto mi to nefungovalo. Děkuji.
Ale my sme to nemohli tušiť. Ty môžeš napísať jedno a my si myslíme niečo iné. Preto je dobré dávať tú prílohu. Tam sa to presne ukáže. Aj keď niekedy by bolo dobré vedieť, ako si predstavuješ výstup. Z popisu to vždy nemusí byť jasné.
Ten prvý kód od elninoslov úplne stačil. Ale bez tej prílohy nemohol tušiť, čo porovnávaš.
Sub Tisk()
Dim sOblast As String
With ThisWorkbook.ActiveSheet
sOblast = Replace(WorksheetFunction.Trim("$A$1:$I$95 " & _
IIf(.Range("B96") = "", "A96:I143 ", "") & _
IIf(.Range("B144") = "", "A144:I187 ", "") & _
IIf(.Range("B191") = "", "A191:I232 ", "") & _
IIf(.Range("B238") = "", "A238:I282 ", "")), " ", ",")
.PageSetup.PrintArea = sOblast
.PrintOut Preview:=True
End With
End Sub
alebo v tých vzorčekoch treba vymeniť =IFERROR(MATCH(List2!A1;$B$89:$B$93;0);"")
za
=IFERROR(MATCH(List2!A1;$B$89:$B$93;0);0)
Treba vedieť čo porovnávaš.
@venali
Ale ZIP snáď funguje. Zbaľ to do ZIPu.
A keď to elninoslov nemal možnosť, kde by ten kód overil, tak to je ťažké. Možno to písal z mobilu.
eLCHa napsal/a:
Já poprosím všechny zúčastněné, aby kód vkládali do tagu code - to je to tlačítko $ (dolar)
Kdo to má číst.
Děkuji
@Venali
žádnou urážku jsem nenašel - pokud tam je, specifikujte
Už som to napravil.
Tá "urážka" asi bola na mňa. Ale je to chyba zadávateľky, ak nechápe ako funguje SELECT. Zapíše ich niekoľko za sebou a potom sa diví, že to funguje inak, ako si predstavovala.
Anonym napsal/a:
Upravená verze, snad bude stačit
Toto vyzerá fajn.
Range("A96:I143").Select
ActiveSheet.PageSetup.PrintArea = Range("$A$1:$I$95," Selection.Address).Address
ActiveSheet.PrintOut Preview:=True
End If
If Range("B144").Value > 0 Then
Range("A144:I187").Select
ActiveSheet.PageSetup.PrintArea = Range("$A$1:$I$95," Selection.Address).Address
ActiveSheet.PrintOut Preview:=True
End If
No keby si to zadala takto tak by to bolo o inom. Ale ťažko radiť, keď nevieme ako má presne vyzerať výstup.
Toto nie je o skúsenostiach s VBA, ale o logiku. Platí to pre všetky jazyky, nielen pre VBA.
Predpokladám, že ten kód od elninoslov si ani nevyskúšala.
Problém bude medzi stoličkou a klávesnicou.
Ak v B191 bude "4" a v B238 bude "0", tak sa vytlačí A1 až A234
Ak v B238 bude "4" tak sa vytlačí všetko bez ohľadu na to či bude v ostatných bunkách "0"
Venali napsal/a:
protože at dělám co dělám,
Doporučujem pokračovať v tom "dělání". Bez prílohy to tu ťažko za teba niekto urobí.
Možno toto makro ti naznačí, čo robíš nesprávne.
Sub Makro1()
Range("A8:A14").Select
Range("A18:A24").Select
Range("A1:A5", Selection).Select
End Sub
A taktiež si pozri aj tento príkaz, možno ti to zapne.
Union(Range("A1:A5"), Range("A18:A24")).Select
@elninoslov
Jasné, "=" som zabudol vymazať. Už som opravil.
No chyba je aj tu =SUMIFS(LASER!V3:W1048576....
Netuším, čo chce zadávateľ vypočítať, ale asi takto.
=SUMIFS(LASER!V3:V1048576;LASER!T3:T1048576;">="&F4;LASER!T3:T1048576;"=<"&H4)+SUMIFS(LASER!W3:W1048576;LASER!T3:T1048576;">="&F4;LASER!T3:T1048576;"=<"&H4)
No asi neexistuje. Ale môžeš si ho vytvoriť.
Ono je to správne. Len si tam musíš dať vlastný formát.
[h]:mm;@
ad 2
Ak si to prevedieš na tabuľku, tak by to malo fungovať.
A čo tak tie úvodzovky okolo B vyhodiť?
{=MAX(KDYŽ(B:B=B2;C:C))}
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články