|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.07.2014, 16:30 | #1 |
Пользователь
Регистрация: 23.07.2014
Сообщений: 12
|
Замена значения ячейки
Привет всем! Нужна помощь в построении макроса
Надо чтоб при запуске макроса менялись значения, допустим Сыр на Сыр 10 Волк на Собака и тд т.е. ввести данные и указать на какие менять. Получается, макрос должен найти нужное занчение (старое) и поменять его на новое. |
24.07.2014, 17:16 | #2 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Эта функция уже реализована в excel: вкладка главная - найти и выделить - заменить
|
24.07.2014, 17:42 | #3 |
Пользователь
Регистрация: 23.07.2014
Сообщений: 12
|
что то не могу найти...
когда я смотрел подобные, то там не было того что мне надо реализация нужна в Excel 2013г Последний раз редактировалось Ukhanev; 24.07.2014 в 18:00. |
24.07.2014, 18:12 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
нажмите Ctrl+H и увидите это
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
25.07.2014, 11:47 | #5 |
Пользователь
Регистрация: 23.07.2014
Сообщений: 12
|
Sub Макрос 6()
Dim R As Range, p1, p2, p3, p4 p1 = Range("A34").Value p2 = Range("A26").Value p3 = Range("A33").Value p4 = Range("A27").Value Set R = Columns("C:C").Find(What:=p1) If Not R Is Nothing Then R.Offset(0, 0).Value = p2 End If Set R = Nothing Set R = Columns("C:C").Find(What:=p3) If Not R Is Nothing Then R.Offset(0, 0).Value = p4 End If Set R = Nothing End Sub надо было через переменную |
25.07.2014, 12:00 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Зачем .Offset(0, 0)? И только один сыр и волк что ли на листе?
Через замену было бы проще.
webmoney: E265281470651 Z422237915069 R418926282008
|
29.07.2014, 09:09 | #7 |
Пользователь
Регистрация: 23.07.2014
Сообщений: 12
|
Да вот не так силен в макрос...если покажешь вариант через замену, буду очень рад
|
29.07.2014, 09:45 | #8 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Включаете рекордер, проделываете замену по Ctrl+H, выключаете рекордер - вот Вам и готовый код. Далее его можно дорабатывать для универсальности, для замены всех "зверей".
webmoney: E265281470651 Z422237915069 R418926282008
|
29.07.2014, 11:17 | #9 |
Пользователь
Регистрация: 23.07.2014
Сообщений: 12
|
я изначально пробовал через Ctrl+H, не записывает замену
|
29.07.2014, 11:22 | #10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Как это не записывает?
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Редактирование ячейки и перенос значения ячейки через форму на другой лис | Susven | Microsoft Office Excel | 2 | 11.06.2013 09:18 |
Замена значения | Aleksandr | БД в Delphi | 5 | 10.04.2013 08:56 |
Активирование значения ячейки, на основе другой ячейки | Mark.ru | Microsoft Office Excel | 5 | 13.12.2010 16:23 |
Замена части значения ячейки | maksim_serg | Microsoft Office Excel | 4 | 26.03.2010 12:21 |
Замена шрифта части ячейки | bukarenko | Microsoft Office Excel | 2 | 25.03.2010 18:43 |