powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск последнего значения и его замена
16 сообщений из 16, страница 1 из 1
поиск последнего значения и его замена
    #39238468
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имеется столбец excel в котором написаны числа. Числа написаны с 1 по 30 строку. В этих строках встречается несколько раз цифра 5. Нужно найти самую последнюю строку с этим значением и заменить её на текст, к примеру ОК.
Пробовал с помощью application max. Но находил только последнюю строку, а заменить не получалось!
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238476
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что есть "application max"?
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238477
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что в вашем понимании строка? Как ее заменить на текст?
Изложите внятнее, приложите пример и код своих попыток.
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238485
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

имеется таблица в экселе в первом столбце написаны числа с 1 по 30 строку в этих строках повторяется число 5. например число 5 написано во второй третьей и десятой строке. нужно найти самую последнюю строку с числом пять в данном случае это десятая строка как я написал. и заменить эту строку на текст к примеру "выполнено"
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238490
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ekaelзаменить эту строку на текст к примеру "выполнено"
Какими средствами?
Без VBA задача не решается.
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238492
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina,
так я и прошу через vba мне нужен код!!!
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238494
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ekael,
Я же тему размещаю в разделе VBA
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238511
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
EkaelЧисла написаны с 1 по 30 строку.Ekaelчисла с 1 по 30 строкуЕсли вы не можете сказать по-русски, как я уже просил - приложите образец файла.

В экселе строка - это набор ячеек. Как набор ячеек заменить на текст - я лично не понимаю. Может нужно заменить текст в ячейке, где найдено число? или в первой ячейке строки? Или что еще?
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238562
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

вместо числа в ячейке поставить слово
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238574
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну тогда просто устраиваете цикл по ячейкам от 30 до 1, при первой встрече значения 5 записываете в ячейку нужный текст и выходите из цикла. Что именно вызывает проблему?
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238584
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Sub rep()
For i = 30 To 1 Step -1
If Cells(i, 1).Value = 5 Then
Cells(i, 1).Value = "ok"
End If
Next i
End Sub


Shocker.Pro,
вот этот цикл но он не работает
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238587
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во-первых, я уже дал ссылку - как оформлять сообщения, и в частности код (вы бы еще желтым цветом писали, чтобы уж совсем не видно было).
Во-вторых, я уже дважды просил приложить образец файла, на первый взгляд код правильный и должен работать (за исключением того, что вы не вышли из цикла, после первой же замены)
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238589
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
Range("A1:A30").Find(What:=5, LookAt:=xlWhole, Searchdirection:=xlPrevious).Replace What:=5, Replacement:="выполнено"
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238593
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,

О как, значит Searchdirection есть в поиске, а какого фига его нет в диалоговом окне (по крайней мере в 2010)?

Такой подход, конечно, напрашивался, но я не увидел в диалоге указания направления поиска и решил, что его нет ))
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238597
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina,
у меня всё получилось и работает. но есть один вопрос, если у меня в ячейках уже будет написано не просто "5" , а "€ 5" то можно будет рядом с пятёркой указывать этот знак в той строчке котоую вы написали, потому что формат этих ячеек будет не обычный, а денежный
...
Рейтинг: 0 / 0
поиск последнего значения и его замена
    #39238608
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Формат ячейки не влияет на содержимое ячейки. То есть сам знак € в ячейке не лежит, соответственно, искать его не требуется.
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск последнего значения и его замена
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]