Не могу написать макрос в Excel

[Porterbery]

интервал CMKOL
2.00 Отсутствует
10.00 Отсутствует
2.00 Отсутствует
2.60 Отсутствует
9.00 Отсутствует цемент за колонной
2.00 Сплошной
15.20 Сплошной
8.20 Сплошной
1.80 Сплошной
9.60 Сплошной
21.40 Сплошной
6.60 Сплошной
2.00 Сплошной
20.80 Сплошной
2.40 Сплошной
46.60 Сплошной
2.80 Сплошной
17.80 Сплошной
7.20 Сплошной
11.60 Сплошной
6.60 Сплошной
6.80 Сплошной
4.00 Сплошной
16.80 Сплошной
4.60 Сплошной
2.20 Сплошной
6.40 Сплошной
7.40 Сплошной
1.60 Частичный
41.40 Частичный
2.60 Частичный
3.20 Частичный
1.60 Частичный
1.60 Частичный
2.20 Частичный
4.80 Частичный
7.20 Частичный
7.40 Частичный
1.00 Частичный
1.40 Частичный
1.00 Частичный
3.80 Частичный
2.40 Частичный
2.00 Частичный
2.20 Частичный
49.40 Частичный
17.00 Частичный
9.40 Частичный
19.80 Частичный
4.80 Частичный
2.60 Частичный
1.20 Частичный
2.00 Частичный
левый столбец - это интервал в метрах, правый - это контакт цемента с колонной. Нужно посчитать сумму интервалов для каждого контакта.

 

[Porterbery]

похоже что никто ничем мне помочь не может
все равно спасибо за попытку...

 

[Abraxas]

похоже что никто ничем мне помочь не может

фтыкай в формулы в столбце Д
_http://aleksandra.hotbox.ru/primer.xls

 

[Porterbery]

фтыкай в формулы в столбце Д
_http://aleksandra.hotbox.ru/primer.xls

Блин в экселе есть и такое? Спасибо. Теперь можно будут сделать мою работу быстрее, но мне уже поставили задачу намного сложнее этой....буду читать. Надо написать прогу, чтобы в экселе была кнопочка загрузить файл *.dbf и в этом файле некоторая последовательность действий...результат заносился в таблицу...АД!:bac:
Все равно, Огромное спасибо.

 

[Abraxas]

буду читать

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

 

[Porterbery]

Sub Макрос1()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
Range("Chr(34) & A & chr(34) & Строкаввода").Select
End Sub

Мне нужен макрос, который запрашивает у пользователя с какой строки ему начинать работу и перемещаться в эту строку, столбец д.б. "A".
Я вроде все делаю правильно, запрашиваю номер строки, присваиваю этот номер переменной и потом выбираю строку в столбце "A" c этим номером.
Chr(34) - это вроде бы как кавычки...у меня выдает ошибку времени исполнения, не могу понять что не правильно.
Подскажите пожалуйста.

 

[Porterbery]

Ещё вот так пробовал, потомуц что в конечном итоге-то мне надо чтобы мой макрос заменял все нулевые значения не нулевыми <1 с определенной строки. Тоже не получается.

Sub Макрос2()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="A194")
Cells.Replace What:="-*.", Replacement:="0.", LookAt:=строкаввода, _
SearchOrder:=xlByRows
End Sub

 

[Sacrator]

Первый макрос должен выглядеть примерно так

Sub Макрос1()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
ThisWorkbook.ActiveSheet.Range("A" & Строкаввода).Select
End Sub

Во втором не совсем понятно что на что меняем. Приведённый ниже макрос заменить все ячейки, начинающиеся с символа "-" на нули
Sub Макрос2()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
ThisWorkbook.ActiveSheet.Range("A" & Строкаввода & ":A65536").Replace What:="-*", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows
End Sub