napisał: kyzak
postów: 27
 umieszczony:
15 stycznia 2006
09:50
|
|
Wypełniam dokument wydania materiału,w którym wiersze od 1 do 25 są już zdefiniowane. Po wierszu 14, pod nazwą materiału wstawiam makrem wiersz zawierający w Kol. A-Lp.,w Kol. B i C- nazwę materiału, w Kol.D-jm, E-ilość, D-cenę, F-Vat itd.
Komórki z Kol.B i C są scalone.Niestety jeśli nazwa jest dłuższa niż szerokość obu kolumn tekst jest obcinany, a chciałbym aby był zawijany z równoczesnym zwiększaniem wysokości wiersza. |
|
|
napisał: Trebor
postów: 1209
umieszczony:
15 stycznia 2006
09:25
|
|
| Cytat: Wygląda na to że u mnie ten kod działa, to znaczy zmienia wysokość wierszy.
Chyba, ze czegoś nie rozumiem... możesz opisać problem jaśniej?
Kod działa poprawnie gdy wpisany tekst mieści się w kolumnie 2 i 3.
Gdy wpisany tekst jest dłuzszy tzn. w czasie pisania "wychodzi" na czwartą kolumnę autodopasowanie nie działa.
Nie wiem czy o taki problem chodziło autorowi, ale przy takiej długości wpisu kod nie działa poprawnie.
Pozdrawiam |
|
|
napisał:  admin
postów: 613
umieszczony:
14 stycznia 2006
22:09
|
|
Wygląda na to że u mnie ten kod działa, to znaczy zmienia wysokość wierszy.
Chyba, ze czegoś nie rozumiem... możesz opisać problem jaśniej? |
|
|
napisał: kyzak
postów: 27
umieszczony:
14 stycznia 2006
01:12
|
|
Proszę o podpowiedź, jak uzyskać automatyczne zwiększenie wysokości wiersza jeśli tekst jest wpisywany do dwóch scalonych komórek np.
c = (a - 1)
Range(Cells(c + 1, 2), Cells(c + 1, 3)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Rows.AutoFit
dla pojedynczej komórki to działa, a dla scalonych z kol B i C już nie. Czy mogę liczyć na pomoc ? |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
