1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Excel

Тема в разделе "Lotus - Программирование", создана пользователем Fugitive, 23 янв 2006.

Статус темы:
Закрыта.
  1. Fugitive

    Fugitive Гость

    Репутация:
    0
    В Excel можно сделать автоподбор ширины столбца (Формат -> Столбец -> Автоподбор ширины). Если посмотреть как это делается в макросе то вот :
    Sub macros1()
    Cells.Select
    Range("R13").Activate
    Selection.Columns.AutoFit
    End Sub

    Можно ли как-нибудь в лотусе сказать, чтобы у колонки был Autofit. Не пойму как обратиться....
    В лотусе я создаю лишь один обьект:
    Dim myExObj As Variant
    Set myExObj = CreateObject("Excel.application")
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Да. Такими же методами, как и в VBA.
    Например:
    Код:
    Dim myExObj As Variant 
    Dim xlWbk As Variant
    Dim xlSheet As Variant
    Set myExObj = CreateObject( "Excel.Application" )
    myExObj.Visible = True
    Set xlWbk = myExObj.Workbooks.Add
    xlWbk.ActiveSheet.Cells(1, 1) = "adas"
    xlWbk.ActiveSheet.Range("A1").Columns.AutoFit
     
  3. Fugitive

    Fugitive Гость

    Репутация:
    0
    Спасибо большое !
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей