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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление колонки справа от таблицы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Добавление колонки справа от таблицы (Для таблиц со слитыми ячейками)
Добавление колонки справа от таблицы
Otter Дата: Среда, 29.08.2018, 13:16 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте,
При попытке добавления в таблицу со слитыми ячейками колонок слева и справа часто возникают проблемы связанные с тем, что ячейкам колонки присваивается ширина соседних ячеек. Соответственно, если ширина у них разная - таблица разлетается в столбчатую диаграмму.
Вот код, для добавления колонки справа, только до конца не работает возникает ошибка. Подправьте пожалуйста.
[vba]
Код
Private Sub Колонку_справа()
'Вставить колонку справа
'
    If Selection.Range.Information(wdWithInTable) = False Then Exit Sub
    With Selection.Tables(1)
        TblRowsNumber = .Rows.Count
        NewColumnWidth = InputBox$("Введите ширину в мм" & vbCrLf & "для добавления колонки справа", _
                    "Добавить колонку в таблицу", _
                    NewColumnWidth)
        If Val(NewColumnWidth) = 0 Then Exit Sub
        For i = 1 To TblRowsNumber
            LastColNum = .Rows(i).Cells.Count
            .Rows(i).Cells(LastColNum).Select
            Selection.MoveRight
            Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight 'добавляем ячейку
           Selection.Cells.Width = NewColumnWidth 'здесь метит все желтым и добавляется только одна ячейка вместо столбца справа
        Next
    End With
    Selection.MoveDown
End Sub
[/vba]


Сообщение отредактировал Otter - Среда, 29.08.2018, 13:28
 
Ответить
СообщениеЗдравствуйте,
При попытке добавления в таблицу со слитыми ячейками колонок слева и справа часто возникают проблемы связанные с тем, что ячейкам колонки присваивается ширина соседних ячеек. Соответственно, если ширина у них разная - таблица разлетается в столбчатую диаграмму.
Вот код, для добавления колонки справа, только до конца не работает возникает ошибка. Подправьте пожалуйста.
[vba]
Код
Private Sub Колонку_справа()
'Вставить колонку справа
'
    If Selection.Range.Information(wdWithInTable) = False Then Exit Sub
    With Selection.Tables(1)
        TblRowsNumber = .Rows.Count
        NewColumnWidth = InputBox$("Введите ширину в мм" & vbCrLf & "для добавления колонки справа", _
                    "Добавить колонку в таблицу", _
                    NewColumnWidth)
        If Val(NewColumnWidth) = 0 Then Exit Sub
        For i = 1 To TblRowsNumber
            LastColNum = .Rows(i).Cells.Count
            .Rows(i).Cells(LastColNum).Select
            Selection.MoveRight
            Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight 'добавляем ячейку
           Selection.Cells.Width = NewColumnWidth 'здесь метит все желтым и добавляется только одна ячейка вместо столбца справа
        Next
    End With
    Selection.MoveDown
End Sub
[/vba]

Автор - Otter
Дата добавления - 29.08.2018 в 13:16
Pelena Дата: Пятница, 31.08.2018, 13:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13020
Репутация: 2875 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Файл с примером помог бы в понимании проблемы


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеФайл с примером помог бы в понимании проблемы

Автор - Pelena
Дата добавления - 31.08.2018 в 13:29
Otter Дата: Суббота, 01.09.2018, 21:12 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Странно хотел выложить пример а глюк пропал. Что за чудеса. <_<
Видимо он не всегда проявляется.Как поймаю выложу обязательно.
 
Ответить
СообщениеСтранно хотел выложить пример а глюк пропал. Что за чудеса. <_<
Видимо он не всегда проявляется.Как поймаю выложу обязательно.

Автор - Otter
Дата добавления - 01.09.2018 в 21:12
Otter Дата: Четверг, 06.09.2018, 09:16 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вот кажется поймал ошибку. смотрите файл примера и скрин с ошибкой. Должен быть столбец, а получается ячейка справа. При этом ошибка выполнения кода. Скрины ошибок в следующем файле так как к одному посту ограничение 100Кб.
К сообщению приложен файл: 129.docx(20.5 Kb)


Сообщение отредактировал Otter - Четверг, 06.09.2018, 09:33
 
Ответить
СообщениеВот кажется поймал ошибку. смотрите файл примера и скрин с ошибкой. Должен быть столбец, а получается ячейка справа. При этом ошибка выполнения кода. Скрины ошибок в следующем файле так как к одному посту ограничение 100Кб.

Автор - Otter
Дата добавления - 06.09.2018 в 09:16
Otter Дата: Четверг, 06.09.2018, 09:31 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Скрины ошибок здесь прикрепил
К сообщению приложен файл: 6494461.rar(87.4 Kb)
 
Ответить
СообщениеСкрины ошибок здесь прикрепил

Автор - Otter
Дата добавления - 06.09.2018 в 09:31
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Добавление колонки справа от таблицы (Для таблиц со слитыми ячейками)
  • Страница 1 из 1
  • 1
Поиск:

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