{quote}{login=Pavel55}{date=22.10.2008 09:23}{thema=}{post}Предлагаю такой вариант  
 
Sub Макрос1()  
Dim iLastRow As Long  
Dim iFirstRow As Long  
Dim Rng As Range  
 
   iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
   iFirstRow = Cells(iLastRow, 1).End(xlUp).Row  
   Set Rng = Range(Cells(iFirstRow, 1), Cells(iLastRow, 4))  
   Rng.Select 'выделяем границы для примера  
End Sub{/post}{/quote}  
 
Интересная тема. а если диапазон определен конкретным значениям сверху и с низу, как его можно описать кодом VBA?

Мне помогла функция из пакета надстройки PLEX  
=substring(искомая_ячейка;разделитель;номер_элемента)  
В 1ц, субконто, например в карточке счета или в журнале проводок стандартно разделено символом абзаца, запихать в формулу в качестве разделителя можно подставив СИМВОЛ(10)  
 
=substring(искомая_ячейка;СИМВОЛ(10);номер_элемента)  
 
См. пример (необходима надстройка PLEX)

Проверить Сервис - параметры - вычесления - автоматически

{quote}{login=Lioness}{date=25.03.2008 10:37}{thema=Как автоматически раздвинуть ячейки}{post}Доброе время суток. Проблемка такая:  
Прикопировании таблицы из одного файла в другой, ширина ячеек остается неизменной и соответственно весь текст не виден. Приходится раздвигать все это вручную. Подскажите, можно ли это сделать автоматически, чтобы все ячейки сразу раздвинулись по ширине текста?{/post}{/quote}  
 
Специальная вставка - ширины столбцов

слэн, смог бы, вопрос бы не возник, логично?...

dl, если вас не затруднит, можно по-подробнее объяснить конструкцию?  
Как я полагаю, результат вычислений - произведение 3 пар матриц, причем в 2-х парах одна из сомножителей-матриц - это проверка искомого условия, которая возвращает матрицу либо 1, либо 0. Вопрос, какого вида получаются эти матрицы? если не затруднит можно-ли изобразить логику расчета поэтапно, в 3-х таблицах excel.

pavel, вы хотите от экселя какого-то алгоритма расчета кривых, которого сами не знаете? не можите сформулировать в функциях? нечто вроде изменения "узлов" при моделировании в пакете векторной графики вроде "корела"? наврятли что-либо выйдет при таком подходе.

pavel, вы хотите от экселя какого-то алгоритма расчета кривых, которого сами не знаете? не можите сформулировать в функциях? нечто вроде изменения "узлов" при моделировании в пакете векторной графики вроде "корела"? наврятли что-либо выйдет при таком подходе.

Добрый день, существует ли возможность добавить в контекстное меню ряд дополнительных функций? В частности интерисует возможности "специальной вставки", например сразу вставить значения, формулы и пр.

Добрый день, существует ли возможность добавить в контекстное меню ряд дополнительных функций? В частности интерисует возможности "специальной вставки", например сразу вставить значения, формулы и пр.

Я взял из форума этот макрос, все хорошо вот только второй не запускается в указанное время!?!?!  
Sub InTime()  
  'Запуск одного из двух макросов "  
  'Один запускается по утрам в 10.00, другой - через 1 минуту,  
  'начиная отсчет от момента выполнения метода OnTime  
  If Now < "10:00:00" Then  
        Application.OnTime TimeValue("10:00 am"), "Первый"  
  Else  
        Application.OnTime Now + TimeValue("00:01:00"), "Второй"  
  End If  
End Sub

У меня есть таблица! В таблице постоянно меняются значения! Мне нужно брать значения в определенный момент времени например в 9-00 в 10-00 в 11-00… И чтобы значения записывались в столбик! И значения в столбике не менялись, а оставались с теми значениями, которые были в 9-00 в 10-00 в11-00…    
HELP!!!