powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word: сравнение ячеек в таблице
9 сообщений из 9, страница 1 из 1
Word: сравнение ячеек в таблице
    #38341524
mandrian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите решить задачку, плиз!

Существует макрос форматирования таблицы в Word. Нужно дополнить его следующими командами:
1 - сравнить содержимое активной ячейки с вышележащей ячейкой
2 - если значения совпадают, опуститься на одну ячейку вниз
3 - если значения разные, выполнить макрос повторно

и т.д. до конца таблицы
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38341566
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что такое "активная ячейка"? Selected?
что такое "опуститься"? изменить Selected на новую?
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38342101
mandrian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, "активная" - это Selected.
Опуститься - это сделать "активной" ту, что под ней.
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38342128
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
еще такой вопрос - что такое "вышележащая". В предыдущей строке того же столбца (на возможные объединения ячеек не смотрим)?
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38342172
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это получить значение из вышележащей ячейки (естественно, текущий номер строки должен быть не меньше 2)
Код: vbnet
1.
Selection.Tables(1).Cell(Selection.Information(wdStartOfRangeRowNumber)-1,Selection.Information(wdStartOfRangeColumnNumber)).Range.Text



это активировать следующую ячейку (естественно, строка не должна быть последней в таблице)
Код: vbnet
1.
Selection.Tables(1).Cell(Selection.Information(wdStartOfRangeRowNumber)+1,Selection.Information(wdStartOfRangeColumnNumber)).Range.Select
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38343076
mandrian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, вышележащая - это в предыдущей строке того же столбца (без объединений).
Как получить значение - понял.
А как сравнить его со значением в вышележащей ячейке?
И как дать команду:
при совпадении значений - активировать ячейку снизу;
при несовпадении - выполнить макрос ?
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38343079
mandrian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И еще один вопросик возник, если можно - как прописать код для такой задачи:
в Word есть таблица из одного столбца
нужно найти повторяющиеся значения в соседних ячейках и одну из одинаковых строк удалить
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38343178
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я не очень понимаю, вы ВООБЩЕ не знаете, как программировать, в частности, как сравнить два значения с помощью "="?
Тогда уж не пишите "прошу помочь", а пишите "сделайте за меня". Так будет гораздо понятнее, что требуется.

mandrianКак получить значение - понял.
А как сравнить его со значением в вышележащей ячейке?
И как дать команду:
при совпадении значений - активировать ячейку снизу;
при несовпадении - выполнить макрос ?
Код: vbnet
1.
If одно_значение=другое_значение Then активировать_ячейку_снизу Else запустить_макрос


mandrianнужно найти повторяющиеся значения в соседних ячейках и одну из одинаковых строк удалитькак сравнивать - см. выше, удалить текущую строку:
Код: vbnet
1.
Selection.Rows.Delete
...
Рейтинг: 0 / 0
Word: сравнение ячеек в таблице
    #38343783
mandrian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.ProЯ не очень понимаю, вы ВООБЩЕ не знаете, как программировать...?

Не то чтобы вообще, но ПОЧТИ ВООБЩЕ, т.е. пару дней назад не знал ВООБЩЕ, но теперь с вашей помощью немного начал разбираться, по крайней мере благодаря вам понял, как решить мою задачку. Спасибо огромное за ликбез! И простите, что невольно ввел вас в заблуждение.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word: сравнение ячеек в таблице
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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