Добрый день.  
Есть много ячеек формата (2,2,2,6,1,2,2,3,2,6,5,2,5,2,5,5)  
Как посчитать формулой количество определенных цифр в ячейке?  
Например сколько в ячейке цифры 2  
 
счетесли не помогает  
 
Что можно еще применить?

Написал макрос, но никак не могу назначить заполнение данных на выделенном листе.  
Он всегда делает все на первом.  
У меня около 30 листов и хотелось бы, чтобы макрос обрабатывал данные на выделенном листе и вносил бы данные на этот лист, а не на первый  
Что-то здесь нужно поправить:     Sheets.Select  
 
А это полный макрос  
 
   Sheets("123").Select  
   ActiveWindow.SmallScroll Down:=12  
   Range("C186:G187").Select  
   Selection.Copy  
   Sheets.Select  
   ActiveWindow.SmallScroll Down:=174  
   Range("C186").Select  
   ActiveSheet.Paste  
   Range("D186").Select  
   Application.CutCopyMode = False  
   ActiveWindow.SmallScroll Down:=15  
End Sub

Всем привет.  
Есть макрос, который рисует полукруг (арку).  
На версиях, до 2010 Excel все работает корректно.  
Но в Excel 2010 не рисует арку.  
В чем может быть проблема, привожу фрагмент макрос.  
 
Или как можно запусить файл под предыдущей версией?  
 
'радиус вписанного круга  
 
               'рисование внешнего полукруга (L профиля)  
               Call MyArc(Xr, Yr, lr, hr, Конструкция.Цвет.Значение)  
 
               If .Открывание <> 8 Then  
                   'рисование внешнего полукруга Z профиля  
                   Call MyArc(Xr + DeltaX(.dys1 * nScale, .dys2 * nScale), Yr + .dys1 * nScale, lr - 2 * DeltaX(.dys1 * nScale, .dys2 * nScale), hr - (.dys1 + .dys2) * nScale, .Цвет.Значение)  
               End If  
                 
               'рисование внутреннего полукруга (стекла)  
               Call MyArc(Xr + DeltaX(.dyg1 * nScale, .dyg2 * nScale), Yr + .dyg1 * nScale, lr - 2 * DeltaX(.dyg1 * nScale, .dyg2 * nScale), hr - (.dyg1 + .dyg2) * nScale, .Тонировка.Значение)  
               Call PaintAngle(Xr + DeltaX(.dyg1 * nScale, .dyg2 * nScale), Yr + .dyg1 * nScale, Xr + lr - DeltaX(.dyg1 * nScale, .dyg2 * nScale), Yr + hr - .dyg2 * nScale)  
               If .X + .L > Xmax Then  
                   Xmax = .X + .L  
               End If  
               If .Y + .H > Ymax Then  
                   Ymax = .Y + .H  
               End If  
               ' конец обработки арочной створки  
           End If

Есть файл с огромным количеством строк.  
Мне нужно Из всего это списка сформировать таблицу по каждому месяцу, по каждому магазину с 10 наибольшими товарами по продажам.  
 
То есть отсортировать по дате и магазину это понятно, что элементарно.  
А как вывести только 10 позиций с максимальными значениями за каждый месяц по каждому магазину?  
 
Никак не могу понять.  
Помогите пжл.

Столкнулся с реально сложной задачей.  
Нужно Вывести текст на отдельный лист из ячеек, в которых есть зеленая заливка и вторым списком, список, где используется красная заливка  
 
Имеется несколько листов.  
Как это можно сделать? Таблица неправильная и листов много

Добрый день  
Есть простая таблицы с условиями  
Есть 2 ячейки для ввода информации  
Как рассчитать столбец согласно условиям матрицы?  
 
Прописывать для каждого значения условие?

Добрый день.  
Есть много txt файлов, которые нужно открыть из Excel и разбить по столбцам.  
Все данные нужно объединить в одну таблицу из всех файлов.  
 
Как это возможно? Даже не знаю с чего начать

При выполнении макроса возникает ошибка  
(во вложении)  
Раньше все работало в предыдущей версии Excel  
Сейчас 2007  
и макрос останавливается на этом макросе  
 
 
Set PolyLine = Worksheets("Êîíñòðóêòîð").Shapes.AddPolyline(Coord)  
   With PolyLine  
       .Fill.ForeColor.RGB = FillColor  
         
       With .Nodes  
           .SetEditingType 1, 1    'msoEditingCorner  
           .SetEditingType 4, 3    'msoEditingSymmetric  
           .SetEditingType 7, 1    'msoEditingCorner  
         
           .SetSegmentType 7, 0    'msoSegmentLine  
         
           If hm > lm / 2 Then  
               .SetSegmentType 11, 0   'msoSegmentLine  
           End If  
         
           .SetPosition 2, Xa + Vx, Ya - Vy  
           .SetPosition 5, Xm + lm / 2 + Vy, Ym  
           .SetPosition 6, Xm + lm - Vx, Ya - Vy  
       End With  
   End With  
End Sub

Добрый день.  
Не могу догадаться сделать, чтобы было выпадающее меню в ячейке и чтобы при выборе опреденного показателся была бы ссылка на другой лист.  
 
Выпадающее меню сделал, а как чтобы при этом была бы еще и гиперссылка не знаю.  
Помогите пжл

Появляется ошибка (принскрин). Что делать для восстановления файла?

Добрый день.  
Не могу понять как реализовать:  
есть много файлов - выгрузка из салонов и есть один сводный из 1С.  
Все в формате Эксель.  
 
Как сделать, чтобы система проверила стобец с номерами договоров во всех других файлах в заданном столбце.  
Если номер не найден ни в одном файле, то номер бы выделялся и если найден лишний, то дописывался и тоже выделялся цветом

Добрый день.  
Помогите не с стандарной проблемой.  
Был установлен Office, но перестал работать Windows Xp, переустановил (просто переустановил). Офис не трогал.  
После установки Windows был чистый рабочий стол, ни одной программы.  
Попытался установить Oficce, но после установки он не работает, пишет, что возникла ошибка.  
 
Как можно полностью удалить пакет офис с компьютера, чтобы заново установить?  
 
Спасибо

Добрый день.  
А как можно посчитать кол-во букв на листе в Excel?  
 
Спасибо.

Добрый день.  
Почему не получается перенести блок по услугам в Эксель (импорт) с сайта http://moscow.megafon.ru/services/  
Появляется ошибка, что не удалось подключиться.  
Как можно исправить?  
 
Спасибо.

Добрый день. Подскажите пжл, может кто знает появится ли версия Office новая - 2009 -2010?  <BR><STRONG>Реклама удалена!</STRONG> [Модераторы]

Добрый день.  
Подскажите пжл как можно сделать, чтобы например каждые 15 минут Excel обновлял связи, тем самым подгружая новые данные.  
 
Спасибо.

Добрый день.  
Подскажите пжл возможно, чтобы при запуске файла Excel автоматически создавалось письмо в Outlok с отправителем? параметры письма "текст"  
 
Теме письма определелась бы при запуске данного файла.  
Возможно такое?

Добрый день.  
Подскажите пжл, есть большая таблица (вложение), нужно все объединить в одну.  
Название столбцов чередуются и одинаковые.  
Может есть функция, устал объединять в одну вручную

Добрый день, коллеги.  
Столкнулся с проблемой выставления счета без НДС.  
К примеру нужно выставить счет на 352 рубля с НДС. При этом нужно внести сумму в специальную программу без НДС в программе.  
 
Сделал програмку, которая переводит, но из-за погрешностей ничего не получается.  
К примеру на той же цифре 352.  
 
Сумму можно разбивать на несколько счетов, но вот как автоматизировать не могу придумать. Т.е. к примеру, если сумму 352 разбить на 2 счета по 176, то все ок. Выходим на 352 с НДС.  
Вот только как выводить.  
Подскажите пжл.

Добрый день.  
Есть файл с огромными данными.  
Очень бы хотелось реализовать следующее:  
Было маленькое окошко открыто (как при вводе пароля обычно), где мы вводим номер договора и программа бы нашла строчку с данным номером и подсветило ее (чтобы явно видно было).  
 
Никак макрос не могу придумать и домыслить.  
Cntr+f не очень подходит  
 
Может у кого-нибудь есть такой или может помочь.  
Заранее огромное СПАСИБО

Как назначить макрос к кнопке?  
 
 
 
Sub Ìàêðîñ1()  
'  
' Ìàêðîñ1 Ìàêðîñ  
' Ìàêðîñ çàïèñàí 25.07.2008 ()  
'  
 
'  
   Range("A1:L19276").Select  
   Range("G3").Activate  
   Selection.Copy  
   Range("A1:L14962").Select  
   Application.CutCopyMode = False  
   Selection.EntireRow.Delete  
   Windows("ÂÏÑ òàáëèöà.xls").Activate  
   Selection.Copy  
   Windows("ÂÏÑ-íîâîå(òåñò).xls").Activate  
   ActiveSheet.Paste  
   Application.CutCopyMode = False  
End Sub

Есть куча файлов(Excel'овских) и есть один файл общий...Необходимо, чтобы, когда меняешь в одном(или нескольких) файлах, менялось(добавлялось) автоматически в общем файле...Очень нужно плиз. Заранее благодарю

Как можно сделать, чтобы при  определенном значение ячейки E1, закрашивалась ячейка E2.  
Условное форматирование не подходит

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

Добрый день.  
В папке есть 20 файлов по 1 листу в каждом (одинаковые таблицы,только данные разные).  
Возможно макросом объединить их все в одну книгу? Чтобы каждая таблица была на листе, т.е. чтобы в итоговом файле стало 20 листов?  
 
Возможно ли это?

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

Добрый день.  
Возможно сделать слудеющее.  
Есть документ с фамилиями (более 500 шт.). Все они собраны в файле в хаотичном порядке. Как можно в данной форме сделать, чтобы отсортировать фамилии в алфавитном порядке?  
 
Стандартным способом не получается.  
Есть другие варианты?

Добрый день.  
На 2-х компьютерах установлены одинаковые версии Excel.  
 
В обоих нарисованы фигуры.  
 
так вот на одном компьютере при нажатии на рисунок он разгруппировывается автоматически, на другом-нет. Требуется нажать свойства и разгруппировать.  
 
Как можно сделать, чтобы рисунок разгруппировывался нажатием на мышку?  
 
В настройках я не нашел

Добрый день.  
подскажите, пжл,как можно сделать, чтобы при определенной комбинации закрашивалась выделенная часть рисунка (вложение)?