1 Тема от lilzen

  • lilzen
  • рядовой
  • Неактивен
  • Зарегистрирован: 18.04.2018
  • Сообщений: 1

Тема: vba ошибка при переходе на новую строку при выполнении макроса

Приветствую знатоки vba.. Суть проблемы есть таблица ексель с цифрами и таблица word с объединенными ячейками в которую по закладке переносяться цифры макросом ,но суть проблемы в том что при переходе на следующую строку программа ломаеться.Переход на новую строку таблицы начинаетья с начала таблицы, туда где боковина(выделено красным)... помогите справиться с этим недоразумением.)

Post's attachments

word(1).rar 36.31 Кб, 3 скачиваний с 2018-04-18 

You don't have the permssions to download the attachments of this post.

2 Ответ от Fck_This

  • vba ошибка при переходе на новую строку при выполнении макроса
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: vba ошибка при переходе на новую строку при выполнении макроса

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

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110

Re: vba ошибка при переходе на новую строку при выполнении макроса

Смог извлечь из архива только файл *.docx
В нем таблица, содержащая объединенные/разделенные ячейки.
Воспользуйтесь макросом, чтобы получить номера строк и столбцов этой таблицы

Sub NumerateCells()
'Помещает в каждую ячейку таблицы Ворд номер строки и столбца
'
Dim ocell As Cell
Dim otable As Table
Set otable = ActiveDocument.Tables(1)
For Each ocell In otable.Range.Cells 
ocell.Range.Text = "R" & ocell.RowIndex & " C" & ocell.ColumnIndex
Next
End Sub

В вашем макросе используйте для заполнения конкретных ячеек полученные номера строк и столбцов

PS Работа с таблицами, содержащими объединенные/разделенные ячейки - тот еще геморрой