{quote}{login=Казанский}{date=16.12.2011 03:31}{thema=}{post}Test,  
задача-то была "не слаживать текст с числами(если вдруг зацепили и ячейку с текстом)", а Application.Sum проигнорирует такие ячейки.{/post}{/quote}  
Видимо я не до конца понимаю "смысл не слаживать текст". В процессе выяснилось, что мой предыдущий код цеплял все ячейки, даже скрытые. Поправил. А так же если выделить одну ячейку (даже пустую) выдаёт некое непонятное число явно не стоящее в выделенной ячейке. При этом если выделить одну ячейку с числом и с чем то ещё (текст, пустая), то считает верно. Пока у меня получается так:  
 
Sub Sum()  
 
If TypeName(Selection) <> "Range" Then Exit Sub  
 
Total = 0  
Total = Application.Sum(Selection.SpecialCells(xlCellTypeVisible))  
 
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  
.SetText Total  
.PutInClipboard  
End With  
 
Application.StatusBar = "Сумма активных ячеек = " & Trim(Format(Total, "### ### ### ### ### ##0.000")) & " значение помещено в буфер обмена"  
End Sub

Попробуйте такой вариант. Суммирует везде где суммирует штатная функция показывающая итог в трее. Результат выдаёт сразу, а не обходит каждую ячейку и не подвешивает Excel на больших выборках.  
 
Sub Sum()  
 
If TypeName(Selection) <> "Range" Then Exit Sub  
 
Total = 0  
Total = Application.Sum(Selection)  
 
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  
.SetText Total  
.PutInClipboard  
End With  
 
Application.StatusBar = "Сумма активных ячеек = " & Total & " значение помещено в буфер обмена"  
End Sub

заработало !

{quote}{login=The_Prist}{date=24.02.2011 02:09}{thema=}{post}Так а что не получается-то? Там все очень доступно и понятно описано. В чем у Вас проблема?{/post}{/quote}  
 
после того как выделил примечание, в 2007 оф где выбирать автофигуры ?

А у меня что-то не получается ((  
Запуская запрос, открывается Excel и выскакивает сообщение  
 
"[Microsoft] [Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию" и кнопка "ОК"

Попробуйте вставить в ячейку В2 формулу  
 
=ВПР(A2;Список!A:B;2;0)  
 
и протяните её вниз

Где-то была тема на нашем форуме, там было сделано, вроде, с помощью ComboBox'a

Рад, что разобрались )

эх, вот так захочешь помочь человеку )

Sub Кнопка_1()  
Range("A1") = Range("A1") & " литров"  
End Sub

Sub Кнопка_1()  
Range("A1") =  Range("A1") & " Штук литров"  
End Sub

Предлагаю такой вариант (через функцию). См. пример  
 
P.S. А после можно перевести формулы в значения (скопировать и вставить как значения через Специальную вставку)

C Вашего позволения тест от техподдержки...