{quote}{login=KuklP}{date=09.04.2010 08:04}{thema=}{post}Offset(1) - это куда?  
Sheets("дата-рейс").Range("B" & param1 & ":B" & param2).End(xlDown).Offset(1,0) = ComboBox1.Value{/post}{/quote}  
 
У меня,возможно ошибаюсь,нахождение первой пустой строки.Попробывал Offset(1,0) результ тот же.

Спасибо работает.

Здравствуйте.Раз в месяц приходится переписывать координаты ячеек,например вместо ("B283:B295")- ("B300:B330").Есть идея обьявить переменные-проблемма с реализацией.  
Вот так вылетает ошибка:  
Dim param1 As Integer, paeam2 As Integer  
   param1 = 283  
   param2 = 295  
 
Sheets("дата-рейс").Range("B(param1):B(param2)").End(xlDown).Offset(1) = ComboBox1.Value  
 
как это должно выглядеть.спасибо заранее.

О - настурило прозрение.Вообщем модуль это папка с любым количеством скриптов- макросов,которую в свою очередь можно экспортировать, архивировать. VovaK еще раз спасибо.

Спасибо VovaK.Я и хотел навести порядок - пришлось откатываться на состояние до.Если не сложно подскажите у какого автора можно почитать о иерархии Мodule -    
макрос - процедура -внешняя процедура.

Можно попробывать 2003 портайбл - интересно там поддержка макросов есть или нет.

Показывать и не знаю что.Смысл в том,что name Module11 меняю на name Arhive - просто для удобного быстронахождения и редактирования.Результат- не работает макрос.Если его запускать через Run или "Выполнить" в книге - выпадает ошибка.  
 
Извиняюсь - хотел показать ошибку и не смог - все работает.Глюки экселя однако.

Здравствуйте.В рабочей книге существует макрос вида:  
 
Sub Get_Arhive_File()  
....  
....  
End Sub    
 
В обозревателе VBA Project он имеет имя Module11-при попытке его переименовать макрос перестает работать.Пробывал в названии модуля указывать рус,англ. буквы-не помогает.  
Принудительный запуск выдает ошибку компиляции.

{quote}{login=Владимир}{date=07.11.2009 05:34}{thema=Re: }{post}{quote}{login=xampp}{date=07.11.2009 05:14}{thema=}{post}Попробывал просто перетащить .txt в окно excel и тогда можно файл excel сохранить как отдельную книгу.затем приходится присоединять к основной.Вобщем  drug-in-drop.{/post}{/quote}  
 
... как Вы это делаете? Помещаете все данные в одну ячейку? И что дальше...{/post}{/quote}  
 
У меня выходит обычное копирование.Кнопка ""открыть"-кого-где" в excel и перетаскивание файла в ручную должно приводить к одинаковым результатам.Тоже самое позволяет ,например opera, да почти весь новый софт.

Попробывал просто перетащить .txt в окно excel и тогда можно файл excel сохранить как отдельную книгу.затем приходится присоединять к основной.Вобщем  drug-in-drop.

Работает.Получается "cell" - имя конст.меню excel,а "text" - word.

Извиняюсь - флейм.работает только в ворде.Не внимательно прочитал-сначала пробывал в excel-ну и помересчилося.Интересно, а видоизменить макрос можно ,чтобы excel тоже его понимал.

В excel аналогично - пробывал - работает.Там ссылка на сайте с ID номерами команд,которые нам разрешают встроить.Список больше чем нужно

Красиво!!!VBA с лентой не работает , но убить смогло.

{quote}{login=Cat}{date=01.11.2008 09:04}{thema=MS Excel 2007. "Ленту" кто-нибудь научился отключать?}{post}Помнится, пол года назад я здесь спрашивал, как в Эксель отключить все минюхи, скроллбары и прочее, в тч и т.н. "Ленту". {/post}{/quote}  
 
 
Ribbon Customizer - позволяет добавить свои вкладки в меню,скрыть стандартные а также reser настроек ленты по умолчанию.ссылка -по теме

Посмотрите по ссылке-может подойдет http://www.computerra.ru/gid/318844/.Классический интерфейс для 2007 и не только.Единственный минус триал и оплата в перспективе,начальству подойдет ,а для себя и решить можно - google поможет.

{quote}{login=Dachnik_Garik}{date=10.10.2009 11:59}{thema=}{post}Но делается все это не в VBE, а в Блокноте. Посмотрите книги по этой теме, например "RibbonX Customizing the Office 2007 Ribbon"{/post}{/quote}  
 
 
Спасибо.По вашей наводке нашел ссылку - может кому интересно http://msdn.microsoft.com/ru-ru/magazine/cc163469.aspx  Но там уже действительно xml,C# или в лучшем случае VB.NET .

{quote}{login=VovaK}{date=07.10.2009 04:01}{thema=}{post}Примеры и файлик с перечнем ID и переменных.{/post}{/quote}  
 
В 2007 ни один пример не заработал.( - прогресс).

Не получается-попрежнему прошу помощи

Спасибо-методом тык все получилось.До этого пол дня исканий.  
Если кому интересно:  
 
Dim sozdaty, vvod    
       sozdaty = CreateObject("Scripting.FileSystemObject")  
       vvod = InputBox("Имя файла для создания:например --.txt,--.xls,--.doc")    
       sozdaty.CreateTextFile("vvod.xls")  
       MsgBox("Создан файл: " & vvod)

Здравствуйте, просьба подсказать.Отрывок кода:  
 
Dim sozdaty, vvod    
       sozdaty = CreateObject("Scripting.FileSystemObject")  
       vvod = InputBox("Имя файла для создания:например --.txt,--.xls,--.doc")    
       sozdaty.CreateTextFile("" & vvod )    
       MsgBox("Создан файл: " & vvod)    
 
По событию on click пользователь вводит в окно название создаваемого файла с указанием расширения.Вопрос как сделать чтобы расширение файла устанавливалось програмно.То есть  
или всегда xsl или doc.Не смог найти ни одного примера по синтаксису.

Можно ли как то настроить формат даты в редакторе vba.Дело в том, что excel дату отображает в виде 01.09.09 а редактор кода убирает нули автоматом.P.S:у меня стоит office2110.

Не работает.Читает только первый блок цифр.Еще и рег.настройки прийдется по-моему в конфликт вводить.

Еще вопрос в продолжение темы.По наступлению определенной даты происходит событие \месседж бокс\.Проблема в том,что макрос не различает в дате месяц и год, то есть для него 1.1.09 и 1.12.10 это одно и тоже.  
 
Sub TehOsmotr()  
  Dim ArtB As Date  
  Dim ArtC As Date  
  ArtB = 1 / 12 / 9  
  ArtC = Range("A1:A1000").End(xlDown)  
  If ArtC > ArtB Then UserForm6.Show  
End Sub  
 
Подозреваю что дату надо как то обрабатывать-никакой инфы не нашел или не знаю как ее звать.

Спасибо сделал как было нужно.Про рождество ничего не слышал.

Подскажите пожалуйста.Макрос переносит вводимую дату с одного листа на другой,при этом формат 20.09.09 меняется на 40076.региональные стандарты норм.Это что отсчет от последнего потопа?

Макрос работает, а формула нет.Макрос устраивает полностью.Спасибо

Спасибо The_Prist.  
Спасибо Лузер™.          
Было интересно и поучительно.Разобрался -все работает.Ресурс-супер.

Добрый день.Переменными не владею.Пробую из подобных примеров.у меня получается вот такой код:  
 
 
Sub ср_расход()  
Dim iLastRow As Integer  
 iLastRow = ActiveSheet.Range("B2:B24").End(xlDown).Select  
 iLastRow = iLastRow - 12112  
 Range("B25") = iLastRow  
End Sub  
 
Последнюю ячейку находит,но в переменную присваевается значение (-1) и соответственно в В25 оказывается значение (-12113).Просьба объясните в чем ошибка-поиск по форуму ничего не дал,кроме нахождения последней ячейки.