Наши преимущества

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

интервал 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 Частичный
левый столбец - это интервал в метрах, правый - это контакт цемента с колонной. Нужно посчитать сумму интервалов для каждого контакта.
 
похоже что никто ничем мне помочь не может:(
все равно спасибо за попытку...
 
Как увидеть ссылки? | How to see hidden links?
фтыкай в формулы в столбце Д
_http://aleksandra.hotbox.ru/primer.xls
Нажмите, чтобы раскрыть...

Блин в экселе есть и такое?:) Спасибо. Теперь можно будут сделать мою работу быстрее, но мне уже поставили задачу намного сложнее этой....буду читать. Надо написать прогу, чтобы в экселе была кнопочка загрузить файл *.dbf и в этом файле некоторая последовательность действий...результат заносился в таблицу...АД!:bac:
Все равно, Огромное спасибо.
 
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) - это вроде бы как кавычки...у меня выдает ошибку времени исполнения, не могу понять что не правильно.
Подскажите пожалуйста.
 
Ещё вот так пробовал, потомуц что в конечном итоге-то мне надо чтобы мой макрос заменял все нулевые значения не нулевыми <1 с определенной строки. Тоже не получается.

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

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
 
Для ответа нужно войти/зарегистрироваться
Верх