точно. Глаза не смотрят куда нажимают!

Ячейка ексель имеет выпадающий список значений, есть ли возможность "вызвать" этот список и выбрать один из вариантов без использования курсора мыши?

Пока писал вопрос нашел вариант решения:
В ячейке со списком нажимаем сочетание клавиш Alt+(стрелка вниз), выбираем значение, и нажимаем ВВОД.

Помогло, спасибо!
Application.InputBox(prompt:="Введите число", Type:=1)это понятно.

Поиском не нашёл.
бывает нужно присвоить переменной значение в виде числа. Но число введенное через InputBox остается текстом, точнее заключено в кавычки. Помогите преобразовать цифры в число.

Точно! Дело было не в бабине... значение переменной iKol я задал через Inputbox вроде цифры, но в кавычках.  

есть ещё одна ошибка с объединенными ячейками
код выдает ошибку
Cells(y,iKol) = <application-defined or object - defined error>
нужно чтобы програмка понимала что там нет числа

Слава богу, в моем случае этого учитывать не нужно.

Извините за ОФФ. я конечно давно зарегистрировался, уже не вспомнить, но...  Регистрация: 1 Янв 1970, - я ж тогда ещё и не родился.  

The_Prist, спасибо!

IsNumeric - точно.
Спасибо!!!

собственно вопрос в названии темы.
Нужно определить средствами VBA  является значение ячейки числом или же это текст.
использую
If Cells(1, 1) > 0 Then
но не всегда корректно работает

Kuzmich, огромное спасибо!

Исправил расширение

Kuzmich, не работает. пытался и так. Уточнение у меня 2010 excel/
Вот пример. Макрос в теле листа, реагирует на изменение периода

Помогите.
записал макрорекордером
пытаюсь внедрить



все равно сворачивает весь фильтр

Спасибо! range заменил на Resize

то что искал!

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

так и делаю.

Нужно перенести значения группы ячеек из другой открытой книги
если переносить значения 1 ячейки то работает
Cells(lastrow, 3).Value = Workbooks(iUchet).Sheets("1"    .Cells(5, 4).Value работает
а нужно перенести несколько ячеек
Range(Cells(lastrow, 3), Cells(lastrow + 3, 4)).Value = Workbooks(iUchet).Sheets("1"    .Range(Cells(5, 4), Cells(7, 5)).Value ' размеры одинаковы
выдает ошибку run-time error `1004
Application-difened or object-defined error
пока пользуюсь copy а потом PasteSpecial
каков самый шустрый вариант переноса значений группы ячеек из другой книги?

{quote}{login=Ластик}{date=28.01.2012 03:14}{thema=}{post}может так )  
 
Sub Test()  
   Application.SendKeys "^p"  
End Sub  
 
Запускать через Alt+F8 или с кнопки на листе, в пошаговом режиме не работает{/post}{/quote}  
 
Спасибо. Всё гениальное просто!

получается что (предварительный просмотр) и (просмотр и печать) разные вещи! Вот так выглядит (предварительный просмотр), а нужен (просмотр и печать).

{quote}{login=webley}{date=15.09.2010 09:01}{thema=}{post}Добрый день  
Sheets("Лист для печати").PrintPreview{/post}{/quote}  
В эксель 2010 данная функция выглядит не очень удобно. Как бы так объяснить? как можно кодом "нажать кнопку" (Просмотр и печать) ?

спасибо!

функция используется, как часть кода VBA.

хочу округлять до значений из справочника  
т.е. 1,25 до 1,3  
12,25 до 12,5  
51,25 до 51  
...  
нужна функция в VBA

Спасибо!  
Но, нужен макрос который 2-й и 3-й динамический диапазон приведет к виду 1-го. Суть в том, что 2- список больше 1-го а 3-й меньше и при копировании возникают ошибки. 1-й список эталонный.В файле 2 и 3 списки находятся в других книгах. Мля, как ведь сложно я это сформулировал.

как обновить список другим динамическим списком?

Можно и так. Спасибо!

Sub NameShapes()  
Dim Shp As Shape  
For Each Shp In ActiveSheet.Shapes  
Shp.Select  
MsgBox Shp.Name  
Next  
End Sub  
у меня как бы без обновления экрана, т.е. после выполнения макроса выделяется  последняя кнопка а не после каждого сообщения (но может это 2010 эксель). Ну да ладно, главное ошибку исправил.

А если кнопок много? Я бы может сам дал им названия:)  
Добавил строку Shp.Select чтобы выделить просматриваемый объект, что не помогло его увидеть.

Спасибо! Сам бы , ну никак, не догадался.  
А как можно узнать имя формы или рисунка на листе? В свойствах нет.