видимо формула работает на диапазоне и ищет имено значение в ячейке.  
А у меня в ячейке целый набор символов

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

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

Я кажется разобрался.  
Он копирует формулы, а нужно значения на сводный лист.  
 
И еще название листов в столбце B не выводится.

Установил макрос.  
А на какой лист он должен данные записывать?  
 
Не изменяется ничего после запуска макроса

А как можно со всех листов собрать данные из диапазонов С186:G187 каждого листа и вывести все на один лист.  
Добавив название листав каждой строчке?

Супер.  
Спасибо огромное.  
Все в одну строчку оказалось

А откуда берутья данные?  
У меня формулы копируются с листа.  
 
А здесь не понял как макрос работает

Написал макрос, но никак не могу назначить заполнение данных на выделенном листе.  
Он всегда делает все на первом.  
У меня около 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  
 
В 2007 рисует правильно (как 1/2 полукруга)

Всем привет.  
Есть макрос, который рисует полукруг (арку).  
На версиях, до 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 наибольшими товарами по продажам.  
 
То есть отсортировать по дате и магазину это понятно, что элементарно.  
А как вывести только 10 позиций с максимальными значениями за каждый месяц по каждому магазину?  
 
Никак не могу понять.  
Помогите пжл.

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

Спасибо.  
Разобрался.  
Прекрасно решение.  
Спасибо.

По введенным данным ответ должен быть 20%  
не нашел в поиске.  
Как в поиске запрос задать?

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

Сделал.  
Подскажите, пжл, если  база sql размещена на localhost, то могу я с локального ноута настроить экспорт данных?

я написал макрос, но он открывает новый файл.  
А как сделать, чтобы файл загружался на лист файла из которого я запускаю макрос  
 
   ChDir "C:\Users\Documents\Остатки"  
   Workbooks.OpenText Filename:="C:\Users\Documents\Остатки\all.txt" _  
       , Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _  
       xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _  
       Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _  
       Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _  
       Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _  
       , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _  
       Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _  
       28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _  
       Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _  
       41, 1), Array(42, 1)), TrailingMinusNumbers:=True  
End Sub

Супер. Получилось.  
А как макросом удалить все столбцы с названиями столбцов?  
v_products_id  
v_products_model  
v_products_name_1  
v_products_price  
v_products_quantity

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

{quote}{login=Михаил}{date=17.04.2010 11:22}{thema=}{post}А что мешает скопировать неработающий макрос в чистую книгу?{/post}{/quote} Вот полный макрос <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

{quote}{login=Михаил}{date=17.04.2010 10:58}{thema=}{post}Вообще-то, вместо рисунка было б лучше файлик. Не знаю, это ли вам нужно  
Sub Дуга()  
   ActiveSheet.Shapes.AddShape(msoShapeArc, 301.5, 233.25, 36, 36).Select  
   Selection.ShapeRange.Adjustments.Item(2) = 88.8767  
End Sub{/post}{/quote}  
 
файл около 3Мб, здесь не получается разместить

При выполнении макроса возникает ошибка  
(во вложении)  
Раньше все работало в предыдущей версии 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

{quote}{login=Hugo}{date=11.04.2010 12:23}{thema=}{post}Что-то непонятно - изначально есть оба файла, или из xls надо сгенерить тхт? Или дополнить уже существующий? Или переделать?  
И как должен выглядеть файл2.txt - только данные без шапки? Его пример тоже бы неплохо увидеть.  
И вообще, все файлы можно в один архив положить...{/post}{/quote}  
 
А через импорт нельзя?

{quote}{login=Юрий М}{date=04.03.2010 11:58}{thema=}{post}Вот так.{/post}{/quote}  
 
Спасибо, Юрий.  
Только я не смог разобартьься как, можно пжл по шагам?

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

{quote}{login=тухачевский}{date=12.12.2009 09:18}{thema=}{post}сухари сушить{/post}{/quote}  
То есть не восстановить?  
Может утилита какая-нибудь есть?

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