Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Приведение данных к одинаковой форме - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Приведение данных к одинаковой форме (Макросы/Sub)
Приведение данных к одинаковой форме
eIIIkuHkoT Дата: Вторник, 24.11.2015, 09:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток.
Есть два файла, в первом файле в столбце "Адрес" данные записаны как "г. Ангарск, кв-л. 17-й, д. 2", во втором файле в том же столбце данные записаны как "17 кв/л-2". Задача заключается в том чтоб во втором файле данные в столбце "Адрес" привести к такой же форме как и в первом файле. Количество строк не ограничено. Как можно реализовать такую задачу путем макроса?
[moder]Покажите пример в файле[/moder]


Сообщение отредактировал Manyasha - Вторник, 24.11.2015, 10:12
 
Ответить
СообщениеДоброго времени суток.
Есть два файла, в первом файле в столбце "Адрес" данные записаны как "г. Ангарск, кв-л. 17-й, д. 2", во втором файле в том же столбце данные записаны как "17 кв/л-2". Задача заключается в том чтоб во втором файле данные в столбце "Адрес" привести к такой же форме как и в первом файле. Количество строк не ограничено. Как можно реализовать такую задачу путем макроса?
[moder]Покажите пример в файле[/moder]

Автор - eIIIkuHkoT
Дата добавления - 24.11.2015 в 09:07
eIIIkuHkoT Дата: Вторник, 24.11.2015, 10:35 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Примеры этих двух файлов
К сообщению приложен файл: 9200599.xlsx (14.6 Kb) · 5825640.xlsx (15.4 Kb)


Сообщение отредактировал eIIIkuHkoT - Вторник, 24.11.2015, 10:49
 
Ответить
СообщениеПримеры этих двух файлов

Автор - eIIIkuHkoT
Дата добавления - 24.11.2015 в 10:35
Wasilich Дата: Вторник, 24.11.2015, 13:29 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Так, что ли?
К сообщению приложен файл: eIIIkuHkoT.xls (61.0 Kb)
 
Ответить
СообщениеТак, что ли?

Автор - Wasilich
Дата добавления - 24.11.2015 в 13:29
Kuzmich Дата: Вторник, 24.11.2015, 13:51 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Я бы добавил проверку
[vba]
Код

    If Cells(I, 2).Font.Bold <> True Then
[/vba]
 
Ответить
СообщениеЯ бы добавил проверку
[vba]
Код

    If Cells(I, 2).Font.Bold <> True Then
[/vba]

Автор - Kuzmich
Дата добавления - 24.11.2015 в 13:51
Wasilich Дата: Вторник, 24.11.2015, 14:17 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Я бы добавил проверку

Согласен, с
[vba]
Код
Else
     Cells(i,3)=Cells(i,2)
[/vba]Но, думаю, это все не так и это не все. :)
 
Ответить
Сообщение
Я бы добавил проверку

Согласен, с
[vba]
Код
Else
     Cells(i,3)=Cells(i,2)
[/vba]Но, думаю, это все не так и это не все. :)

Автор - Wasilich
Дата добавления - 24.11.2015 в 14:17
Kuzmich Дата: Вторник, 24.11.2015, 14:33 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
У ТС еще кросс на PlanetaExcel
 
Ответить
СообщениеУ ТС еще кросс на PlanetaExcel

Автор - Kuzmich
Дата добавления - 24.11.2015 в 14:33
Wasilich Дата: Вторник, 24.11.2015, 21:50 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Есть такое,
http://www.planetaexcel.ru/forum....y-forme
и не сообщил ни там, ни тут.


Сообщение отредактировал Wasilic - Вторник, 24.11.2015, 21:55
 
Ответить
СообщениеЕсть такое,
http://www.planetaexcel.ru/forum....y-forme
и не сообщил ни там, ни тут.

Автор - Wasilich
Дата добавления - 24.11.2015 в 21:50
eIIIkuHkoT Дата: Среда, 25.11.2015, 09:03 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо за оперативность. Макрос работает отлично. Подправил кое где, чтоб отображалось именно как мне нужно. Еще раз огромейнейшее спасибище =)
 
Ответить
СообщениеСпасибо за оперативность. Макрос работает отлично. Подправил кое где, чтоб отображалось именно как мне нужно. Еще раз огромейнейшее спасибище =)

Автор - eIIIkuHkoT
Дата добавления - 25.11.2015 в 09:03
eIIIkuHkoT Дата: Среда, 25.11.2015, 12:25 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
А можно еще такой вопрос: как правильно задать ссылку на ячейку в другом документе например

[vba]
Код

for i=1 to 10
for j=1 to 10
if (ссылка на 1 документ).cells(j, 1) = (ссылка на второй документ).cells(i, 1)
then
бла бла бла
next j
next i
[/vba]

вообще задача заключается в том чтоб взять в первом файле первую строку найти это строку во втором файле по определенному столбцу и заменить все значения ячеек этой строки значениями из первого файла.
Я ток начал изучать VBA и не зная всех функция решил пойти путем который знаю, это тупо брать и перебирать все строки.
[moder]Вопрос не имеет отношения к этой теме. Читайте Правила форума[/moder]


Сообщение отредактировал Pelena - Среда, 25.11.2015, 12:35
 
Ответить
СообщениеА можно еще такой вопрос: как правильно задать ссылку на ячейку в другом документе например

[vba]
Код

for i=1 to 10
for j=1 to 10
if (ссылка на 1 документ).cells(j, 1) = (ссылка на второй документ).cells(i, 1)
then
бла бла бла
next j
next i
[/vba]

вообще задача заключается в том чтоб взять в первом файле первую строку найти это строку во втором файле по определенному столбцу и заменить все значения ячеек этой строки значениями из первого файла.
Я ток начал изучать VBA и не зная всех функция решил пойти путем который знаю, это тупо брать и перебирать все строки.
[moder]Вопрос не имеет отношения к этой теме. Читайте Правила форума[/moder]

Автор - eIIIkuHkoT
Дата добавления - 25.11.2015 в 12:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Приведение данных к одинаковой форме (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!