šírka bunky deleno počet znakov:-)

Akurat, ze napr. I ma mensiu sirku ako A atd. Takisto male pismena maju mensiu sirku ako ich velke pismena.

aha:-))

To zavisi od typu pisma, Curier ma vsetky pismena rovnako siroke

Neviem o tom, ze by sa toto nejako dalo urobit.

Naco to potrebujes?

Typ pisma je Tahoma

A potrebujem to, lebo v do tabuliek pisem nazvy otazok. A mam tam nastavene opakovanie riadkov a pri zalamovani na tlac pri viacerych stranach to kus otazky usekne. A ja potrebujem ten kus dostat an tu dalsiu stranu.

A ako ti ma pomoct v tomto sirka znakov v bunke?
Nechces sem prilozit taky subor?

ak by si vedela aj iny sposob, rad uvitam.

Nie je mi jasne ani z toho suboru, co ma byt vysledkom

Nepomoze ti zlucenie buniek na tom riadku do jednej, v ktorej nastavis zalamovanie textu?
Potom sa bude otazka rozkladat do viacerych riadkov podla jej dlzky ....

P.S.o opakovanie riadkov som v prilozenom subore nenasla ....

V makre žiadne WIDTH nebolo ani nie je jasné ktorej bunky sa to týka ani čo s tým chceš urobiť. Skrátka čo tým básnik chcel povedať?

ten *.xls subor sluzil nazorne co chcem zautomatizovat

Moja predstava bola taka ze si spravim makro ktore presne bude vediet sirku kazdeho pismena a ked sa dostane k sirke stlpca tak usekne TEXT a nakopiruje ho do dalsej bunky

pridam makro pre lepsie pochopenie:

Sub Makro1()


a = 0
c = Range("A1").Characters.Count
d = Columns("A:A").ColumnWidth
'd = 6

For s = 1 To c

a = a + 1
b = a + 2

Range("A" & b) = Mid(CStr(Range("A1").Value), a, 1)

Next s

e = 0
f = c + 2
d = d - 0.08

For y = 3 To f

Select Case Range("A" & y).Text
Case Is = "A"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "Á"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "Ä"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "B"
d = d - 1.1
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "C"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "Č"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "D"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "Ď"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "E"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "É"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "É"
d = d - 1.05
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "F"
d = d - 0.9
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "G"
d = d - 0.83
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "H"
d = d - 0.83
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "I"
d = d - 0.28
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "Í"
d = d - 0.33
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
Case Is = "J"
d = d - 0.58
Select Case d
Case Is < 0
e = e - 1
GoTo dalej
End Select
End Select
e = e + 1

Next y

dalej:


Range("B1") = Mid(CStr(Range("A1").Value), e)

End Sub

samozrejme ta ABCEDA nieje uplna lebo neviem sirku pismen .)

iny sposob prevedenia celkosti textu v liste rad uvitam .)

nepomoze zlucenie lebo text bere prave z toho miesta kde je nastaveny pre dalsi list: tj usekne ho

daj si nahled pre tlac tam to je dobre vidiet

A naozaj nestačí vo Format/zarovnanie, zaškrtnúť najprv prispôsobiť bunke a potom zalomiť text, ako sa s tým makrom takto "hrajkať"?

Viď súbor.
---------------------------------------

PS. Už som to upravil. Je to ono?

- nepomoze

Namalujem


ale tiez hladam nejaku inu alternativu ako by sa to dalo urobit

Už som to tam upravil. A nepíš, že ďalší list(teda hárok, alebo sheet), keď myslíš ďalšiu stranu.
Naformátuj si bunku A1, ako som napísal už skôr.

asi som to zle znazornil v prvom *.xls subore prikladam dalsiu prilohu kde to uz musi byt na 100percent jasne aspon dufam

ked nie dajte si prehlad listov pre tlac

Veď si to mohol hneď takto ukázať.

V prílohách si pozri. Definuj si hlavičku - Súbor/nastavenie strany/hlavička alebo päta, alebo si to daj do dvoch riadkov.

1. sposob da nazov len hore, skoda ze si nemozem vybrat polohu toho textu a dalsia vec ci by sa to dalo napasovat prave do A2:L2 (A potom ci by sa tam este dalo nastavit pre kazdy sheet iny text)
2. ten text praveze musi byt roztiahnuty v A2:L2 (nepaci sa to klientovi ked mu takto hodim tabulky)

- ja som skusal aj take ze ten text dam len do bunky D2 a centrovat
- alebo som skusal ze ho dam do bunky L2 a tam ho dam zobrazit doprava

u nas plati to ze nas zakaznik nas pan .... len mne to robi problem ze to musim potom rucne spracovavat tie odrezane casti (hrozne pracna robota ked mam 200+ sheetove tabulky)

To sú aké tabuľky? Máš tam iba jeden sheet(hárok).
A to makro1 čo by malo vlastne robiť?
A to dlhé makro, čo si tu pridal? Ak zmeníš výšku písma, potom budeš prerábať všetky šírky písmen? Ani som sa nepokúšal zisťovať, čo ktorá premenná predstavuje. Myslím, že aj ty budeš mať po čase s tým problém.

- staci jeden sheet kedze kazdy dalsi sheet je toho isteho charakteru
- to makro vobec nieje dokoncene a asi v nom ani pokracovat nebudem (sirka pismena nieje az tak jednoducho zistitelna ako som si myslel .))

makro pracuje na principe:
- zisti sirku A1 bunky
- postupne odsekava pismenka a odratava od celkovej sirky bunky A1 (zaroven ich zapisuje podseba)
- ked sa dostane k 0 hodnote tak pripocita jedno pismenko a zbyvajuci text dopli do B1 bunky

to makro bolo len v skusobnom mode a niesu tam vsetky pismena doplnene kedze neviem ich sirku (makro je robene pre Excel2003)