MS Excel

Do makra nám pribudli nové stĺpce.

Len neviem, ako zakomponovať, aby sa šírka stĺpca automaticky prispôsobila textu.

Takáto je šírka stĺpcov:
30.7 44.2 53.9 3.6 22.9 29.3

Keď som v kóde vymenila 16 za 21 vyhodilo mi chybu.
For i = 0 To 16

Zaslat odpověď >

AL(10.12.2019 14:38)#045230

Staci naucit sa pocitat. Kolko prvkov sa nachadza v poli Sirky? Kolkokrat ma prebehnut cyklus pre i od 0 do 21 s krokom 1?
Pominiem to, ze namiesto natvrdo zadanych hodnot od do pre i by sa dalo pouzit LBbound a UBound pre array, s tym ta trapit radsej nebudem.
Chce to pouzivat viac vlastnu hlavu a menej akurat kopirovat kody, ktorym nerozumies.
Kolko casu si venovala rieseniu problemu sama, nez si to sem postla?citovat

Ladys(10.12.2019 14:44)#045231

Na řádku před For i = 0 to 21 si pole Araay rozšiřte o jeden sloupec (není jich 21, ale vlastně 22, protože počítadlo cyklů Vám jede od nuly). Právě ten chybějící sloupec Vám tam háže tu chybu - nedostupná hodnota.citovat

kabaka(10.12.2019 14:51)#045233

@ AL
@ Ladys

Ďakujem za nasmerovanie. Dala som 20 a je to ok.
Vďaka.

DOPLNENIE - úprava hlavičky

Ešte neviem ako dosiahnúť v makre zalomenie v bunke.
V súbore v tabuľke po makre je naznačená hlavička od 16. po 21. stĺpec po aplikácii makra ako by to malo vyzerať.

Příloha: zip

45233_makro-uprava-hlavicky.zip (34kB, staženo 24x)

citovat

marjankaj(10.12.2019 16:41)#045236

kabaka napsal/a:

Ešte neviem ako dosiahnúť v makre zalomenie v bunke.

A nahrávanie makra si neskúšala?citovat

kabaka(10.12.2019 16:49)#045237

marjankaj napsal/a:

kabaka napsal/a:Ešte neviem ako dosiahnúť v makre zalomenie v bunke.

A nahrávanie makra si neskúšala?

Áno samozrejme skúšala a zistila som, že tam treba vložiť túto značku. & Chr(10) &

Lenže viem, upraviť hlavičku len samostatným makrom.

DOPLNENIE
Ok hodila som tie texty so značkou na samotný koniec pred End sub.

Range("P2").Select
ActiveCell.FormulaR1C1 = "Príchod pac." & Chr(10) & " na op. sálu"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Zač. anestézie" & Chr(10) & " (Ak regionálna " & Chr(10) & "tak čas podania)"
Range("R2").Select
ActiveCell.FormulaR1C1 = "Pac. je pripravený" & Chr(10) & " k op. výkonu" & Chr(10) & " z pohľadu KAIM"
Range("T2").Select
ActiveCell.FormulaR1C1 = "Prekrytie" & Chr(10) & " op. rany "
Range("U2").Select
ActiveCell.FormulaR1C1 = "Odchod pac" & Chr(10) & " .z op. sály"

Možno kostrbaté, ale funguje mi to.
Považujem za VYRIEŠENÉ.citovat

marjankaj(10.12.2019 17:36)#045238

Range("P2") = "Príchod pac." & Chr(10) & " na op. sálu"
a takto to nestačilo? Tie SELECTY sú také potrebné?citovat

kabaka(11.12.2019 7:12)#045241

marjankaj napsal/a:

Range("P2") = "Príchod pac." & Chr(10) & " na op. sálu"
a takto to nestačilo? Tie SELECTY sú také potrebné?

Vyskúšala som. Stačí to aj tak.citovat

Téma: makro - úprava šírky stĺpcov a hlavičky VYRIEŠ.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje