СПАСИБО БОЛЬШОЕ!!!  Именно то, что  надо))

такой вопрос, есть столбец в котором в одну из ячеек присваивается  ноль(он может быть в любой  ячейке диапазона -присваивается по заданному  ранее алгоритму), необходимо заполнить этот столбец цифрами по попорядку  начиная от нашего нуля в обе стороны, вверх от 0 пошли положительные цифры, вниз от 0 отрицательные, вроде  не стложно ,но реально я завис)))

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

{quote}{login=f_aleks}{date=20.12.2010 09:46}{thema=}{post}Вопрос тогда у меня скорее риторический:  
А зачем переносить в таком случае таблицу в презентацию? Нельзя ли саму таблицу демонстрировать?.. =)  
 
По существу помочь не могу. Успехов!{/post}{/quote}  
 
А как это можно сделать?

ну хотя бы приведите пример с метафалом....  
(чтобы таблицу "порвать" по страницам + шапка на каждый лист)

Нужно, чтобы осталась возможность редактирования объекта (даже при отсутствии исходного файла экселя)

Скахите пожалуйста, есть ли простой способ вставки таблицы из экселя в поверпоинт.  
Есть длинная таблица в экселе, которую нужно оформить в виде презентации.  
Ничего кароме как скопировать шапку таблицы на каждый из листов и после под шапку вставляю (например) по 25 строк из экселевской таблицы.(через спец. вставку, т.к. нужно, чтобы таблица имела четкий вид и в виде изображения не пойдет)  
А есть ли способ скопировав всю таблицу и вставить в презентацию, чтобы в ней получись сами собой перносы на следующие строки? (ну как, если бы это вставлялось в Word)  
C уважением,  
Андрей.

Помогите!  
Как изменить заливку ячейки, если содержащийся в ней текст не весь визуально виден.  
Ну тоесть сделал пренос по словам, но когда выводиш на печать бывает "не красиво", часть строк ячейки не видны ( ну а если разтянуть высоту строки , то все ОК.)  
Ну а если выделить столбец с возможными такими ячейками, включить усл.форматирование например и все не-до-конца видемые ячейки покрасятся в красный цвет!  
Может кто предложит какой вариант решения проблемки!  
(писал макрос - красил последнюю букву предложения в ячейке, потом проверял во всез ли ячейках видна эта крашеная буква, но немногоне удобно - глаза устают, вот если дефектные ячейки краситть полностью...)

прошлый пост тоже мой...  
 
Вот чать содержимого этого блокнота:  
10038545 "01.00.Прокат толстолистовой" ТОННА 1 Active Приобретенная позиция  
10046730 "01.00.Прокат толстолистовой+" ТОННА 1 Active Компонент под проект  
 
и таких строк > 65 000 !!!  
 
интересует поиск по 8ми-значному коду и по второму столбцу.  
 
например в поиске забили "10046730" - результат должен быть "01.00.Прокат толстолистовой+"    
 
и наоборот в поиске "01.00.Прокат толстолистовой+", а результат "10046730"

Можно ли организовать поиск данных в строках обычного блокнота ?  
база данных находится в блокноте, пока этот блокнот открываю в XL, но близко то время когда строк там будет более 65 000 :0  
Вот и задумался, а можно ли поиск производить непосредственно в блокноте ?

Вот, что в итоге получилось :  
 
Sub сумма()  
' подсчитывает сумму хаотично выделенных ячеек с  
' числами на листе и помещает ее в буффер обмена  
' корректно работает при назначении "горячей" клавиши на старт макроса  
' горячая клавиша Ctrl+Shift+c  
Dim MyData As DataObject  
Set MyData = New DataObject  
If TypeName(Selection) <> "Range" Then Exit Sub  
sums = 0  
For Each cell In Selection  
If IsNumeric(cell) Then  
sums = sums + cell  
Else: MsgBox ("ОШИБКА !!! Присутствует текст !")  
End If  
Next  
MyData.SetText sums  
MyData.PutInClipboard  
Application.StatusBar = "Сумма активных ячеек =  " & sums & "  значение помещено в буфер обмена"  
End Sub

{quote}{login=Артем}{date=14.10.2008 02:16}{thema=}{post}видимо да, Microsoft Forms 12.0  
прикладываю файлик на всякий случая, там все работает{/post}{/quote}  
Спасибо...теперь все работает..  
 
Но я хочу этот макрос запхнуть в надстройку...  
Но не получается назначить горячую клавишу макросу надстройки....  
 
Может кто знает как это сделать ???

может какую библиотеку подключить нужно ???

Низнаю почему, но у меня выдает ошибку компилирования на те строки...  
И в справке я не нашел PutInClipboard...   (  
 
пишет  - Keyword Not Found

{quote}{login=Артем}{date=14.10.2008 01:09}{thema=}{post}Как то так  
Sub Ìàêðîñ1()  
Dim MyData As DataObject  
 
   Set MyData = New DataObject  
 
sums = 0  
For Each cell In Selection  
   If IsNumeric(cell) Then  
       sums = sums + cell  
   End If  
Next  
'MsgBox sums  
MyData.SetText sums  
MyData.PutInClipboard  
End Sub{/post}{/quote}  
 
Артем  
Артем  
Артем, спасибо.  
Работает, но там немного лишнего(строки) пришлось пострелять....  
 
А как переменную sums загнать в буфер обмена ???  
sums.Copy   - не работает (.copy - только работает с    
cells() и т.д., т.е. с рабочим листом)...

{quote}{login=}{date=14.10.2008 12:38}{thema=}{post}А каская разница в данном случае - ячейка или переменная ну и присвойте это значение переменной а не ячейке{/post}{/quote}  
 
Большая!  
 
Вот макрос который пока состряпал :  
 
Sub xxx()  
If TypeName(Selection) <> "Range" Then Exit Sub  
Summa = "=SUM(" & Selection.Address & ")"  
Summa.Value = Summa.Value  
Summa.Copy  
End Sub  
 
Но в нем при построчном выполнении (через F8) видно, что    
Summa = "=SUM(" & Selection.Address & ")"  
 
а должно там быть не текст, а суммарное число....

Range("A1:B3").Formula = "=SUM()"  
- это я знаю, но нужен аналог этой функции, не для ячейки листа, а для переменной (значение которой и можно будет скопировать в буфер)  
 
Вот аналоги которые я уже знаю :  
 
'ПСТР=MID  
'ПОДСТАВИТЬ=Replace  
'СЖПРОБЕЛЫ = TRIM  
'НАЙТИ = InStr

ну с горячей клавишей понятно....  
А как на VBA написать функцию "сумм"  ?  
 
 
**  
Как в VBA выглядела бы строка ?  
Summa = "=SUM(" & Selection.Address & ")"  
 
только без ковычек - как значение..

это то все понятно,....  
Но вопрос стоит в программном решении задачи

Вопрос такой:  
 
Есть рабочий лист с кучей данных, и вот действия :  
Я при помощи Ctrl (удерживаю его) и мышки хаотично выделяю    
ячейки на листе...  
И после этого или при помощи "горячей" клавиши или  
дополнительной строки в контексном меню XL в буфер обмена ложу  
сумму ЗНАЧЕНИЙ ТЕХ САМЫХ ВЫДЕЛЕННЫХ ЯЧЕЕК.  
А потом -  при помощи Ctrl + V    
вставляю уже куда угодно (хоть на этот лист, хоть в другую    
книгу - да хоть в Блокнот).  
 
Еще бы не помешала проверка на содержание выделенных ячеек,  
т.е. чтобы не слаживать текст с числами(если вдруг зацепили и ячейку  
с текстом).  
 
И как программно задать "горячую клавишу" на выполнение этого макроса ?  
 
 
Помогите с несложной (только не для меня) задачкой...

ДА...  
Второй вариант  - -это какраз то , что нужно...  
 
Спасибо ВСЕМ.

Помогите организовать услови проверки выделенной на листе ячейки (или группы ячеек)  - если число - "Ок", но если текст или смешенное, то "Сообщение о том, что ОШИБКА"

Держи макрос.  
Была и уменя подобная ситуация...  
Это макрос из моей надстройки...(всегда под рукой)

Помогите обработать MultiPage1  
 
Вопрос в том , что нужно открыть книгу при выборе 2 закладки MultiPage1 (всего их 5). А если выбрали или перешли на другую, отличную от 2, нужно книгу закрыть , если мы ее уже отрыли...

Помогите организовать поиск в .txt  копируем строку в .xls  
Имеется база данных из двух столбцов в блокноте(.txt)  
например :  
 
ФИО           таб.№  
 
Иванов А.А    2351  
Петров В.А.   1258  
...................  
 
И есть книга XL в которой есть макрос который по табельному номеру (таб№) далее прорабатывает ФИО соответствующего человека.  
Проблема возникла из-за размера базы... Ранее я ее держал прямо на листе книги надстройки, но она довольно большая (40 000 строк) - и это сказывается на работе всего XL.    
Вот и решил сделать базу вне надстройки.. По объемам - в блокноте выходит гараздо меньше нежили в .xls .  
 
Но как сделать это обращение к блокноту, причем желательно, чтобы его окно не открывалось, произвести в нем поиск по критерию, после найденную строку с критерием перенести в рабочую книгу...

Спасибо за отклики, я уже сам состряпал...  
Может немного запутаннно , но работает.  
 
'///////////////////////////////////////////////////////////­//////////////////////////  
' 1* Вставляем в примечание ячеек колони  "Номенкл. №" истенное описание из _  
' Прода, оторое соответствует введенному номеру  
If Target.Cells.Count > 1 Then Exit Sub  
       If Not Intersect(Target, Range("I4:I1000")) Is Nothing Then  
       nomer = Sheets("Движки в Проде").Cells.Find _  
       (What:=Target.Value, After:=ActiveCell, LookIn:=xlFormulas, _  
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _  
       MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value  
               If Target <> vbNullString Then  
'               Target.Comment.Delete  
               Target.AddComment (nomer)  
               'Target.Comment.Delete  
               End If  
               If Target = vbNullString Then Target.Comment.Delete  
'***** ' Проверка на соответствие номенклатурному номеру !!!  
'ПСТР=MID  
'ПОДСТАВИТЬ=Replace  
'СЖПРОБЕЛЫ = TRIM  
'НАЙТИ = InStr   (старт, где ищем, что ищем)  
'ДЛСТР= Len  
'x1 = ПСТР(A2;1;НАЙТИ(" ";A2;1)-1)  
'x2 = =ПСТР(A2;ДЛСТР(ПСТР(A2;1;НАЙТИ(" ";A2;1)-1))+2;НАЙТИ(" ";A2;ДЛСТР(ПСТР(A2;1;НАЙТИ(" ";A2;1)-1))+2)-(ДЛСТР(ПСТР(A2;1;НАЙТИ(" ";A2;1)-1))+2))  
If Target.Cells.Offset(0, -7) = "a" Then GoTo x1 Else GoTo x2  
x1:  
           x1 = ""  
           x2 = ""  
           x10 = 0  
           x20 = 0  
           v1 = 0  
           v2 = 0  
           AAA = Replace(Target.Cells.Offset(0, -2), ",", ".")  
           nomer1 = Replace(Replace(nomer, ",", "."), " ", "")  
'            nomer1 = Trim(nomer0)  
           х1 = Mid(AAA, 1, InStr(1, AAA, " ") - 1)  
           x2 = Mid(AAA, Len(Mid(AAA, 1, InStr(1, AAA, " ") - 1)) + 2, InStr(Len(Mid(AAA, 1, InStr(1, AAA, " ") - 1)) + 2, AAA, " ") - (Len(Mid(AAA, 1, InStr(1, AAA, " ") - 1)) + 2) - 3)  
       v1 = InStr(1, nomer1, х1)  
       v2 = InStr(1, nomer1, x2)  
       If v1 <> 0 Then x10 = 1  
       If v2 <> 0 Then x20 = 1  
       v1 = 0  
       v2 = 0  
'  pause  
       If x10 + x20 = 2 Then GoTo x2 Else MsgBox "!!! ОШИБКА в номенклатурном номере !!!"  
x2:  
'*****конец  Проверка на соответствие номенклатурному номеру !!!  
   
       End If  
' Конц 1*

пример

Прошу помочь определится, как можно проверить следущее в VBA :  
 
в А1 допустим тест : "АРФ43-6 1,2кВт 1500об/мин"  
В С1 стоит текст (каталожный номер), к которому я уже подтягиваю ВЕРНОЕ описание электродвигателя (например 10020231).  
Так вот А1 (это текст с внешнего бумажного документа) , примечание С1 - это истенноое описание позиции.  
 
Нужно избежать ошибки, которая сейчас встречается в моей работе :  
 
Мне приносят документ, в котором написано: АРФ-43-6 ....  и напротив него рукой дописано 10020231 , но это 8-ми значное число частенько могут приврать, из-за лени заглянуть в справочник - а я доверяю и вношу все как есть... - потом дают по рукам.  
 
Так вот, хотелось бы, чтобы после ввода информации проверялось соответсвие наличия куска текста (с 1-й позиции до первого пробела) в тексте примечания С1. Если начало текста присутствует в тексте примечания, то можно на 90% на это положиться. А то бывало пишут сварочный источник, а позицию (8-мизначный №) дают совершенно другого оборудования.  
 
Может немного запутано написал - извеняюсь.  
Жду от Вас помощи.

Логично.  
Попробовал скопировать в .txt -получилось 2Мб - это терпимо.  
Но как с ним работать ?  
Принцип работы с базоц заключается в следующем:  
есть 8-ми значное число, по которому производился поиск на листе(базе данных) и с найденой строки бралась инфа (привязанные к этому числу описения - они находятся в одной строкеи и числа все идиальные, т.е. без повторений). Как производить поиск в блокноте при помощи ВБА, я незнаю...  
Можно как-то найти, скопировать всю найденную строку в буфер обмена и вставить в новую книгу(должно сработать разбиение по столбцас, т.к. в строке блокнота присутствует Табуляция)...  
Как это будет выглядеть в коде ВБА ???

См. вложение