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

=СУММ(G5:G172)/СУММ(C5:C172) исходная формула, находится допустим в ячейке А1
нужно считать ее с листа, понять нижнюю границу диапазона (172), прибавить 24 и записать новыю формулу в ту же самую ячейку,
т е СУММ(G5:G172)/СУММ(C5:C172) было
нажали кнопку
стало СУММ(G5:G196)/СУММ(C5:C196)
или по другому расширить диапазон по нажатию кнопки на 24 строки вниз...
Спасибо!!!

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

Задача такая нужно на выходе получить транспонированный диапазон в виде связей, см лист (выход 2)    
Заранее Спасибо!!!

Задача такая ежемесячно отправляю документы,для этого нужно сделать сопроводительное письмо..., каждый раз документы отправляю разные, но все они есть в теории на листе "База". Как  накопилось 20 штук то делаю сопроводительное и отправляю... Задача такая чтобы в листе "База" проставить  некие метки, галки и эти документы встали в лист Выход, думаю в примере будет все видно и понятно...  
Заранее спасибо!!!  
 
И второй вопрос приходится ...как сделать в ворде макрос ...  
<EM><FONT color=#99000><STRONG>На Планете не впервые, но основ так и не усвоили?  
Один вопрос- одно тема.  
Каким боком макросы Word на форуме по Excel?</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Здравствуйте товарищи!  
Подскажите не могу разобратся, как сделать что-бы при создании нового файла Excel через контекстное меню Windows файл создавался с определенным шрифтом свойствами документа итд... У меня получилось сделать чтобы при открытие непосредственно исполняемого файла EXCEL.EXE создавался докуумент с моими настройками. для этого засунул сохраненный шаблон в C:\Program Files\Microsoft Office\Office12\XLSTART (2007)    
А вот при создании файла контекстным меню неполучается... SOS... HELP...  
Спасибо!!!  
62226

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

Народ подскажите, почему-то некоторые файлы если зайти в свойства имеют вкладку сохраненные копии, или типа того непомню точно на работе такое увидел, и там можно восстановить ранешнее состояние файла, я так понял из справки чо это фича 2010 экселя, но почемуто в некоторых файлах вкладка есть, а восстановить старые копии непредлагается, причем файлы с такой возможностью если изменять в 2007 то резервные копии сохраняются, а в тех что пустые т е без резервных копий копии не сохраняются, подскажите может надо где-то в файле настроить что-нибудь?

Как с помощью макроса описать Любовь одного человека к другому?

на листе в определенном диапазоне есть значения различные, как сделать так чтобы если к примеру в диапазоне есть слово "мама" то в ячейке А1 был адрес ячейки где это слово есть

На работе вместо подключения к интернету сделали прокси сервер,  где в экселе прописать прокси и порт чтобы была доступна интернет справка, и вебзапросы?  
Эксель 2003

как в опред ячейку вывести имя листа в которой она расположенна

пример А1=4 В1=6 С1=8   если С1=В1 тогда присвоить ячейке А1 значение 0 иначе присвоить значение 1 макрос это сделает без проблем, а можно ли это сделать формулами, только формула не должна быть в ячейке А1  
 
и вообще можно ли в экселе прописать чтонибудь в одной ячейке чтобы при этом изменилось значение другой, в так называемой другой нет никаких формул...

в общем надо выбрать месяц с которого появляются первые цифры  
реализовал это через если если если если... но хочется понять как можно по другому...

есть некий диапазонна листе 1, в столбце А названия фирм  
надо или штатными функциями или пользовательской сделать так чтобы на другом листе 2 я ввожу часть названия фирмы в ячейке А1, ехсель просматривал бы лист 1 на наличие теекста и в листе 2 яч В1 вписывался бы адрес ячейки например (А227) где текст был найден либо возвращался не адрес а полное содержание ячейки где текст найден  
т е я ввожу автолюбитель в А1, эксэль мне в В1 выводит из листа 1 ООО "Автолюбитель"  
 
както так...

Здравствуйте, в документе много обьектов, неких картинок, нужно их всех удалить,  
Sub 1()  
k = 0  
u = 300  
   For i = 1 To u 'Step 1  
       On Error GoTo Error_del  
 ActiveSheet.Shapes("Picture " & i).Delete  
Error_del:     k = k + 1  
   Next  
   MsgBox k  
   MsgBox u - k  
End Sub  
проблема в том что вылазиит ошибка что объекта с таким именем не существует, как избавиться от этой ошибки?

Здравствуйте!  
как сделать чтобы в одном файле во всех листах кроме одного вычисления проводились бы автоматически, а в одном листе вручную

Здравствуйте!  
   Set coll = FilenamesCollection(путь к папке, ".xml", 3)  
как сделать чтобы считывались пути и к ".xml" и к ".XML"

=СУММПРОИЗВ(('1 с потерями'!$AH$2:$AH$30625>=$AJ12*2-1)*('1 с потерями'!$AH$2:$AH$30625<=$AJ12*2)*('1 с потерями'!$AG$2:$AG$30625=P$1)*('1 с потерями'!$AI$2:$AI$30625="плюс")*('1 с потерями'!$B$2:$B$30625))/1000-СУММПРОИЗВ(('1 с потерями'!$AH$2:$AH$30625>=$AJ12*2-1)*('1 с потерями'!$AH$2:$AH$30625<=$AJ12*2)*('1 с потерями'!$AG$2:$AG$30625=P$1)*('1 с потерями'!$AI$2:$AI$30625="минус")*('1 с потерями'!$B$2:$B$30625))/1000  
 
собственно все сказано в названии, может дело в сравнении текста "плюс","минус", вообще операция сравнения текста быстрее или медленнее операции сравнения чисел?

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

Как в VBA избавиться от появления этого окошка, и при этом не сохранять то что оно предлагает

Private Sub CommandButton1_Click()  
Dim i As Byte  
Dim iU As Byte  
Dim iV As Byte  
iU = Range("U1")  
iV = Range("V1")  
   With ListBox1  
   For i = 0 To iU - 1  
       If .Selected(i) = True Then  
iAdress = Range("F" & i + 2)  
   Dim Ex As New Excel.Application  
       Ex.Workbooks.Open iAdress ', LoadOption:=xlXmlLoadImportToList  
       Ex.Visible = False  
           iNameXMLfile = Ex.ActiveWorkbook.Name  
           Ex.ActiveWorkbook.Sheets.Application.Range("A2:N333").Copy  
    MsgBox iNameXMLfile  
    Sheets("Пути").Range("z333").Select  
    ActiveSheet.Paste  
   Application.CutCopyMode = False  
      Application.Workbooks(iNameXMLfile).Close  
       End If  
   Next i  
   End With  
  End Sub  
 
Добрый день Открываю макросом ХМЛ файл, он открываеться, происходит копирование, но неполучаеться его закрыть, переменная iNameXMLfile принимает значение "80020_3803100520_20100802_1_3800000900.xml" это реальное имя открытого файла,    
 
вот такая ошибка вылазиит Subscript out of range (Error 9)

суть задачи такова что макрос производит некоторые действия со столбцами, столбец должен выбирпаться с помощью формы, но переменая zz не определяеться , подскажите что не так

идет суммирование чисел, точность которых не превышает 0.001, а в результате получаеться число с точностью 0.0000000001  
немогу понять почему это произходит

Доброго времени суток, подскажите, допустим имееться выделенная ячейка, как относительно этой ячейки выделить диапазон в любом месте листа, т е с использованием смещения допустим  
Range("C1").Offset(4, -1).Select    
выделяеться ячейка B5, а как выделить диапазон например A1:E8

Лист "Вылет", копирую последний день вместе с диаграммой и вставляю ниже с помощью ВБА  
но вновь скопированая диаграмма ссылаеться на предыдущий день, не пойму как можно обратится в ВБА к новой диаграмме чтобы изменить ссылки...

Есть 2 диапазона одинаковой размерности , необходимо закрасить ячейки если во втором диапазоне значения не равны 0  
вот что пришло мне в голову, правда не уверен в правильное ли я  направление выбрал ...  
Sub CALO()  
Dim a(), b()  
a = Range("a1:j24")  
b = Range("l1:u24")  
For i = 1 To 24  
For j = 1 To 10  
i = i + 1  
j = j + 1  
If b(i, j) <> 0 Then  
'Range("a(i, j)").Select  
a(i, j).Select  
   With Selection.Interior  
       .ColorIndex = 6  
       .Pattern = xlSolid  
   End With  
End If  
Next  
Next  
End Sub  
P.S условное форматирование не предлагать.

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

Добрый день, подскажите возможно ли уменьшить время выполнения цикла?  
 
 
k = 4  
i = 0  
 
Sheets("PIRKUTEN").Select  
 
Do While i <> 30650  
i = i + 1  
ProveCell = Range("R" & i)  
   If ProveCell <> 0 Then  
       k = k + 1  
       Range("R" & i).Copy ThisWorkbook.Sheets("Status").Range("A" & k)  
       Range("L" & i).Copy ThisWorkbook.Sheets("Status").Range("B" & k)  
       Range("O" & i).Copy ThisWorkbook.Sheets("Status").Range("C" & k)  
       Range("P" & i).Copy ThisWorkbook.Sheets("Status").Range("D" & k)  
       Range("Q" & i).Copy ThisWorkbook.Sheets("Status").Range("E" & k)  
       Range("N" & i).Copy ThisWorkbook.Sheets("Status").Range("F" & k)  
       Range("M" & i).Copy ThisWorkbook.Sheets("Status").Range("G" & k)  
   End If  
Loop

Для чего мне это необходимо: мне нужно каждый день снимать факт погоды за вчерашний день, на конце ссылки стоит дата например http://pogoda.mail.ru/archive.html?city=590&date=2010-07-7, для того-чтобы в вебзапросе заного не вводить адрес, мне и нужно чтобы ссылка бралась из ячейки, а уж в ячейке собрать ссылку непроблема.