С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Leksey
5 / 5 / 1
Регистрация: 14.03.2011
Сообщений: 55
1

Поиск и замена значений в ячейках

28.03.2011, 17:15. Просмотров 1028. Ответов 3
Метки нет (Все метки)

Уважаемые товарищи!
подскажи как реализовать данную задачу :

имеется книга EXCEL, там много листов. на этих листах цифры посчитанные в другой программе. в некоторых местах программа дает сбой и там возникает ошибка ERROR.

как сделать, чтобы EXCEL искал эти ERROR и там где он имеет соседние значеия, т.е. вот так

235
ERROR
321


вместо него пересчитывал в эту ячейку среднеарифметическое этих значений т.е. ERROR=(235-321)/2

а там где значений ERROR подряд идет больше,

236
ERROR
ERROR
ERROR
238
365

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

пересчитывать ERROR нужно в столбцах "B" и "C"
файл образец книги с цифрами имеется..
0
Вложения
Тип файла: rar tank2.rar (1.32 Мб, 6 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 17:15
Ответы с готовыми решениями:

Поиск одинаковых значений в двух ячейках строки и сложение суммы
Доброго вам времени суток, товарищи! Мне необходима ваша квалифицированная...

Поиск значений из списка в ячейках, где имеются значения+текст
Имеется Excel-таблица, в которой номера телефонов в каждой ячейке указаны...

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

Поиск и замена значений в файле
Приветствую всех ! Нужна процедура которая бы искала в текстовом файле...

Поиск и замена списка значений
Доброго всем дня! Вопрос 1. Имеется таблица для поиска и замены...

3
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,040
28.03.2011, 17:24 2
Цитата Сообщение от Leksey Посмотреть сообщение
в некоторых местах программа дает сбой и там возникает ошибка ERROR.
так ошибка только на бумаге?
0
Busine2009
Заблокирован
28.03.2011, 21:40 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Для активного листа:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Макрос2()
Dim Лист As Excel.Worksheet
Dim Найдено As Excel.Range
Dim Адрес As String
Set Лист = ActiveSheet
With Лист.Range(Лист.Cells(2, 2), Лист.Cells(Лист.Rows.Count, 3))
    Set Найдено = .Find(What:="Error", LookIn:=xlFormulas, _
        LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
    If Not Найдено Is Nothing Then
        Адрес = Найдено.Address
        Do
            If Найдено.Offset(-1, 0).Value <> "Error" And _
                    Найдено.Offset(1, 0).Value <> "Error" And _
                    IsNumeric(Найдено.Offset(-1, 0).Value) And _
                    IsNumeric(Найдено.Offset(1, 0).Value) Then
                Найдено.Value = Round((Найдено.Offset(1, 0).Value - Найдено.Offset(-1, 0).Value) / 2, 2)
            End If
            Set Найдено = .FindNext(Найдено)
        Loop While Not Найдено Is Nothing And Найдено.Address <> Адрес
    End If
End With
MsgBox "Работа выполнена", vbInformation
End Sub
Для всей книги не получается сделать: не работает код (зависает и всё).
1
Leksey
5 / 5 / 1
Регистрация: 14.03.2011
Сообщений: 55
29.03.2011, 10:18  [ТС] 4
ошибку дает программа, которая записывает данные в .txt которые я в дальнейшем запихиваю в excel для дальнейших расчетов
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2011, 10:18

Поиск, сравнение и замена дублирующих значений макросом
Здравствуйте, ув. форумчане! Столкнулся со следующей проблемой. Есть таблица из...

Поиск и замена всех значений на листе на заданное
Привет, в общем, есть в Excell лист, на котором может быть любое кол-во цифр...

Поиск и замена текста: все работает, кроме значений в колонтитулах
Добрый день, уважаемые форумчане. Опишу ситуацию. 1) Есть файл выгрузки из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru