Макрос разбивающий или объединяющий ячейки

Страница 1 из 1 1
Модератор форума: _Boroda_, китин, DrMini

Макрос разбивающий или объединяющий ячейки (Макросы/Sub)

auto-teacher Дата: Пятница, 26.06.2020, 17:52 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Подскажите, please, почему происходит ошибка при отмене разбиения или при нажатии Esc?

Задумывалось так, чтобы при нахождении курсора в таблице, было предложено разбить ячейку, в которой курсор.
Если же было выделено несколько ячеек, то сначала должно быть предложение их слить, а при ответе "НЕТ" — опять же разбить.
Но если отказаться от разбиения, то выскакивает ошибка.

Sub ЯчейкиОбъединитьИлиРазбить() If Selection.Cells.Count <= 1 Then Razbivka: Application.Run MacroName:="TableSplitCells" GoTo Vykhod Else If MsgBox("Слить выделенные ячейки в одну?", vbYesNoCancel + vbDefaultButton2 + vbQuestion, "СЛИЯНИЕ ИЛИ РАЗБИВКА КЛЕТОК") = vbYes Then Application.Run MacroName:="TableMergeCells" Else GoTo Razbivka End If End If Vykhod: End Sub

Какой должен быть правильный код?

auto-teacher

Ответить

Hugo

Дата: Пятница, 26.06.2020, 23:42 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Вроде как должен быть правильный код в TableSplitCells...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

auto-teacher

Дата: Суббота, 27.06.2020, 16:37 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Сформулирую по-другому.
Курсор в таблице. Если на ленте Word выполнить команду Макет/Объединение/Разделить ячейки (а это будет SplitCells), то появится окно "Разбиение ячеек". Если нажать Esc или Отмена, то команда прервется и все.
Если же выполнить: Разработчик/Код/Макросы/Макросы из: Команд Word/TableSplitCells (макроса SplitCells среди встроенных не обнаруживается), то также появится окно "Разбиение ячеек". Но если в этом случае нажать Отмена или Esc, то команда прервется с ошибкой, и откроется Visusl Basic для отладки.
Как исправить мой код? Что сделать?

auto-teacher

Ответить

RAN

Дата: Суббота, 27.06.2020, 17:07 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата auto-teacher, 27.06.2020 в 16:37, в сообщении № 4 ( писал(а)):

Что сделать?

А вы в блокноте этот макрос выполнить не пробовали?
Или вы считаете, что блокнот может не знать о существовании макросов Excel, но Excel просто обязан знать встроенные команды Word'a?

Быть или не быть, вот в чем загвоздка!

Ответить

Pelena Дата: Суббота, 27.06.2020, 17:14 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19517

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Может так имелось в виду?

Sub ЯчейкиОбъединитьИлиРазбить() If Selection.Cells.Count <= 1 Then Razbivka: Application.Run MacroName:="TableSplitCells" GoTo Vykhod Else s=MsgBox("Слить выделенные ячейки в одну?", vbYesNoCancel + vbDefaultButton2 + vbQuestion, "СЛИЯНИЕ ИЛИ РАЗБИВКА КЛЕТОК") If s = vbYes Then Application.Run MacroName:="TableMergeCells" ElseIf s=vbNo Then GoTo Razbivka End If End If Vykhod: End Sub

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

auto-teacher Дата: Суббота, 27.06.2020, 17:52 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, при отказе от команды TableMergeCells ничего страшного не происходит: просто идет переход на метку Razbivka.
Ошибка (см. фото) появляется при отказе от команды TableSplitCells.
Вот в этой ветке чего-нибудь бы исправить на случай отмены команды (Отмена) и на случай выхода из команды (Escape):

Razbivka: Application.Run MacroName:="TableSplitCells" GoTo Vykhod Else

Чем (каким другим кодом) можно заменить TableSplitCells, чтобы начался диалог "Разбиение ячеек"?

К сообщению приложен файл: 9604736.jpg (9.5 Kb)

auto-teacher

Ответить

Pelena Дата: Суббота, 27.06.2020, 19:00 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19517

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

А так?

Sub ЯчейкиОбъединитьИлиРазбить() If Selection.Cells.Count > 1 Then If MsgBox("Слить выделенные ячейки в одну?", vbYesNoCancel + vbDefaultButton2 + vbQuestion, "СЛИЯНИЕ ИЛИ РАЗБИВКА КЛЕТОК") = vbYes Then Application.Run MacroName:="TableMergeCells" Application.Run MacroName:="TableSplitCells" ElseIf s=vbNo Then Application.Run MacroName:="TableSplitCells" End If End If End Sub

Если опять не то, прикладывайте файл с примером и всеми макросами

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

RAN Дата: Суббота, 27.06.2020, 20:16 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Не заметил, что вопрос по голимому Woed'у.

Цитата auto-teacher, 26.06.2020 в 17:52, в сообщении № 1 ( писал(а)):

почему происходит ошибка

Осмелюсь предположить, что выполнение этой команды из VBA происходит с использованием метода Split

Selection.Cells.Split NumRows:=1, NumColumns:=2, MergeBeforeSplit:=False

При отказе от выполнения команды аргументы не передаются, что и приводит к ошибке. При этом сам метод Split совершенно спокойно относится к отсутствию оных.
Лечится же это простым добавлением On Error Resume Next

Sub ЯчейкиОбъединитьИлиРазбить() If Selection.Cells.Count <= 1 Then Razbivka: On Error Resume Next Application.Run MacroName:="TableSplitCells" GoTo Vykhod Else If MsgBox("Слить выделенные ячейки в одну?", vbYesNoCancel + vbDefaultButton2 + vbQuestion, "СЛИЯНИЕ ИЛИ РАЗБИВКА КЛЕТОК") = vbYes Then Application.Run MacroName:="TableMergeCells" Else GoTo Razbivka End If End If Vykhod: End Sub