Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org
2 Март 2021, 10:28
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Войти
Новости
:
Доступно и просто
о работе в офисных пакетах
Начало
Помощь
Поиск
Войти
Регистрация
задать вопрос
Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org
>
Главная категория
>
Basic
> Тема:
очистка диапазона
Страниц:
1
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: очистка диапазона (Прочитано 2440 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Underrating
Участник
Offline
Сообщений: 11
очистка диапазона
«
Стартовое сообщение
:
13 Июнь 2017, 10:01 »
Добрый день! хотел очистить диапазон A1:B100 одной командой. Можно по одной ячейке но так долго.
Код:
Sub Clear
Dim oSheets As Variant
Dim oSheet As Variant
Dim oRange As Variant
oSheets = ThisComponent.getSheets()
oSheet = oSheets.getByIndex(0)
oSheet.getCellRangeByPosition(0, 0,1,99).Clear ' Предполагаю что нужна другая команда а не Clear
End Sub
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
Offline
Пол:
Расположение: Киев
Сообщений: 2 764
Помогаю людям и компьютерам понимать друг друга
Re: очистка диапазона
«
Ответ #1
:
13 Июнь 2017, 10:42 »
Да, этот метод называется
clearContents
, у него всего один параметр
"что именно чистим"
И добро пожаловать на форум!
Записан
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо
создателям офиса
,
нашему ресурсу
,
мне
Underrating
Участник
Offline
Сообщений: 11
Re: очистка диапазона
«
Ответ #2
:
13 Июнь 2017, 11:13 »
Спасибо! В итоге получил
Sub Clear
ThisWorkbook.Sheets(1).Activate
Range("A1:B100").Select
Selection.ClearContents
End Sub
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
Offline
Пол:
Расположение: Киев
Сообщений: 2 764
Помогаю людям и компьютерам понимать друг друга
Re: очистка диапазона
«
Ответ #3
:
13 Июнь 2017, 12:22 »
Эй, я про Activate и Selection ничего не писал!
Должно было получиться
Код:
Sub Clear
ThisComponent.getSheets().getByIndex(0).getCellRangeByName("A1:B100").clearContents(1023)
End Sub
Записан
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо
создателям офиса
,
нашему ресурсу
,
мне
economist
Форумчанин
Online
Сообщений: 1 392
Re: очистка диапазона
«
Ответ #4
:
13 Июнь 2017, 12:47 »
Чисто для коллекции: если в LibreOffice 5 вверху модуля указать
Option VBASupport 1
то можно очищать как в Excel VBA, двумя понятными словами:
[A1:B100].Clear
Но гораздо полезнее именовать диапазон ячеек (дать Название, см. левый верхний угол - Управление названиями - Добавить...) Тогда вообще сработает такая красота, причем независимо от текущего листа:
[ИМЯ].Clear
[ИМЯ].ClearContents
[ИМЯ].ClearFormats
[ИМЯ].ClearComments
PS: Не путайте Названия с
Данные - Задать диапазон...
, это другие "диапазоны"...
«
Последнее редактирование: 13 Июнь 2017, 12:50 от economist
»
Записан
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц:
1
Вверх
Печать
Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org
>
Главная категория
>
Basic
> Тема:
очистка диапазона
« предыдущая тема
следующая тема »
Перейти в:
Пожалуйста, выберите назначение:
-----------------------------
Новости и события
-----------------------------
=> Новости
-----------------------------
Главная категория
-----------------------------
=> Общее
===> Установка и настройка
=> Writer
=> Calc
=> Base
=> Impress
=> Draw
=> Math
=> Basic
=> Локализация
=> Дополнения и расширения
=> Документация
-----------------------------
Проекты
-----------------------------
=> MyOOo.ru
===> Обсуждение статей
-----------------------------
О форуме и жизни
-----------------------------
=> Разговоры обо всём
=> IT
=> О форуме
Загружается...