Запись в ячейки

[Катя]

Заранее прошу прошение за вопрос,
искала через поиск, но не нашла ответа.

У меня есть макрос, который в процессе своей работы вносит некоторые данные в таблицу в Excele.
У таблицы все столбцы имееют определенную ширину (при выводе на печать надо уместить все данные на страничке), но при записи значений в таблицу через макрос ширина всех столбцов приводится к стандартной.

Подскажите, пожалуйста, что надо сделать, чтобы ширина столбцов таблицы не менялась?

[GAGArin]

Имеющийся код в студию. Телепаты в отпуске.

[uhm]

Если не разбираться с действующим кодом, то можно последней строкой выполнить команду:

Код: Выделить всё

Columns("A:IV").ColumnWidth=x


где x - ширина колонки в символах (см. хелп по ColumnWidth). Можно вместо ColumnWidth написать просто Width и тогда ширина будет в поинтах.

[Катя]

Приведу часть кода
For j=1 to 32
for i=1 to 44
......
If (pnn1(i, j) = 0) Then
pzp1(i, j) = 0
ActiveCell.Value = pzp1(i, j)
ActiveCell.Offset(0, 1).Select
pbonus1(i, j) = 0
ActiveCell.Value = pbonus1(i, j)
Else
pzp1(i, j) = pzp1(i, j) / pnn1(i, j)
pbonus1(i, j) = pbonus1(i, j) / pnn1(i, j)
ActiveCell.Value = pzp1(i, j)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = pbonus1(i, j)
End If
......
next i
next j


Вот, размеры столбцов не должны меняться, а они меняются ((
Прошу заметить, что VBA я только начила осваивать, поэтому сильно не ругайтесь из-за вопроса ))))

[uhm]

Код засовывай, пожалуйста, в теги [ code ] (кнопочка такая есть) - тогда он читаться будет нормально.

Приведенный фрагмент кода ничего с шириной столбца не делает. Проблема где-то еще.

[alibek]

Если у столбца установлена ширина "Авто", то он может подстраивать свою ширину под содержимое ячеек. Укажи конкретное значение для ширины столбца.

[Катя]

Спасибо большое , с шириной столбцов я разобралась (прописала ColumnWidth).
Но возник еще один вопрос:
мне надо вывести данные на определленый лист, я задаю имя листа через TextBox, как потом сделать этот лист активным (имя листа хранится в переменной)

[uhm]

Worksheets(переменная).Activate