Sub Çàïîëíèòü()
Dim Str1 As String, TimeService As Date, event_type_id As Integer, y As Integer
i = 1
serviceid = 1
While ActiveSheet.Cells(i + 1, 1).Value
i = i + 1
Str1 = "=E" + Str(i + 2) + "-" + "E" + Str(i)
serviceid = ActiveSheet.Cells(i, 7)
event_type_id = ActiveSheet.Cells(i, 2).Value
If event_type_id = 6 Then
If ActiveSheet.Cells(i + 1, 2).Value = 28 Then
ActiveSheet.Cells(i, serviceid).Formula = Replace(Str1, " ", "")
' TimeService = TimeService + ActiveSheet.Cells(i, 9)
y = y + 1

End If
If ActiveSheet.Cells(i + 3, 2).Value = 28 Then
ActiveSheet.Cells(i, serviceid).Formula = Replace(Str1, " ", "")
' TimeService = TimeService + ActiveSheet.Cells(i, 9)
y = y + 1
End If
End If
ActiveSheet.Cells(i + 1, 9).Value = i
Wend
Str1 = "=ÑÐÇÍÀ×(I2:I" + Str(i + 1) + ")"
ActiveSheet.Cells(i + 2, 10).FormulaLocal = Replace(Str1, " ", "")

End Sub

Кот Чеширский
А теперь для непонятливых: к чему этот макрос прикручивать, в каком порядке и как заставить работать?
(С макросами не работал ещё )

знаю только excel даже на вижл васеке могу писануть чего.
а exel - не знаю

сделал!
Все оказалось просто! =ПОИСК("полу";B3)
всем спасибо


тоже интересно!

excelvba.ru
planetaexcel.ru

Добавлено спустя 38 секунд:

http://planetaexcel.ru/forum/

хеллоу ворлд

Кот Чеширский
Соскочил, короче, да?
Нет бы в двух словах объяснил, а то ведь послал
На чужом форуме искать нужную инфу бывает непросто...

веришь нет так лениво объяснять

тоже вопрос.Как написать формулу(какой символ перед номером ячейки),что бы она ситала так.Равно,СИМВОЛ,взять вторую ячейку слева и умножить,СИМВОЛ на первую слева от равно? Короче,чтобы в другой строке она не считала,например,G4*G5,а считала которые именно слева от нее.

Добавлено спустя 13 минут 38 секунд:

други,до 16:00 надо сделать.А то пораньше домой не сьипусь.

Мегалодон
Давай подробнее, лучше скрин

Добавлено спустя 2 минуты 20 секунд:

Ты хочешь "протащить" формулу, но при этом, чтобы одна ячейка была фиксированной?

короче вот
1 ячейка умножается на 2.В 3 уноженное.
Надо,чтобы куячила на автомате.Т.е. брала 1,умножала на 2 и в третьей результат.

кнопочка вопрос сверху жмакни и напеши туда

Мегалодон
А в чем проблема? В первой строке пишешь формулу, а потом за правый нижний угол тащишь вниз по столбцу и автоматически во всех строках будет считаться.

Добавлено спустя 1 минуту 34 секунды:

Или в свойствах ставишь стиль ссылок R1C1 и пишешь формулу =RC[-2]*RC[-1]
Но её также нужно будет "тащить" вниз

Картинки вставлять на форум умеет, а в экселе протянуть за правый нижний угол нет

+1
Можно не тащить а жмакнуть коротко 2 раза - формула продлится ровно на то количество строк, сколько заполнено слева

Andreanich
Прикольно))) Не знал...