< návrat zpět

MS Excel


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

Zaslal/a 10.12.2019 13:54

kabakaDo 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

Příloha: zip45228_makro-uprava-sirky-stlpcov.zip (33kB, staženo 10x)
Zaslat odpověď >

icon #045230
avatar
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
#045231
avatar
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
#045233
kabaka
@ 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: zip45233_makro-uprava-hlavicky.zip (34kB, staženo 10x)
citovat
#045236
avatar

kabaka napsal/a:

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


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

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
#045238
avatar
Range("P2") = "Príchod pac." & Chr(10) & " na op. sálu"
a takto to nestačilo? Tie SELECTY sú také potrebné?citovat
#045241
kabaka

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

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

VBA vyhledat a zapsat

Stalker • 27.9. 23:02

VBA vyhledat a zapsat

Fantasyk • 27.9. 22:15

VBA vyhledat a zapsat

Stalker • 27.9. 22:04

VBA vyhledat a zapsat

Fantasyk • 27.9. 21:03

vyhledávání s maticí

Fantasyk • 26.9. 11:35

Automatické doplnění

marjankaj • 25.9. 14:27

Automatické doplnění

Dingo • 25.9. 14:25