Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Leksey
5 / 5 / 1
Регистрация: 14.03.2011
Сообщений: 55
#1

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

28.03.2011, 17:15. Просмотров 929. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Поиск и замена значений в ячейках (VBA):

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

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

Поиск и замена значений - VBA
Друзья, помогите с макросом. Делаю эту задачи через фильтры , но хочется решение поизящнее :) Требуется в столбце А:А найти ячейку,...

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

Поиск и замена списка значений - VBA
Доброго всем дня! Вопрос 1. Имеется таблица для поиска и замены включающая в себя множество строчек (1000 и более). Если всякий...

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

3
Ципихович Эндрю
1361 / 319 / 16
Регистрация: 10.04.2009
Сообщений: 4,953
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
Привет! Вот еще темы с ответами:

Поиск и замена всех значений на листе на заданное - VBA
Привет, в общем, есть в Excell лист, на котором может быть любое кол-во цифр &quot;14&quot;, нужно заменить их на цифру &quot;7&quot;, а также заполнить ячейку...

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

Поиска символов в ячейках и их замена - VBA
Нужно найти определенное слово в ячейке и заменить без изменения остальных слов в этой ячейке. Написал макрос: Dim x As Range:...

Замена части текста в ячейках Excel - VBA
Добрый день. Нужен совет. Необходимо заменить ячейки, содержащие определенные части текста, пустыми значениями. То есть, в ячейки вида...


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

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

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