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

Вход

Регистрация

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

 

= Мир MS Excel/Группировка случайных фигур из множества. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Группировка случайных фигур из множества. (Макросы/Sub)
Группировка случайных фигур из множества.
SergVrn Дата: Пятница, 08.09.2017, 11:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, гуру экселя.
помогите решить вопрос.

У меня на листе книги экселя - разбросаны разные фигуры.
Как макросом - сгруппировать их по случайному признаку (вразнобой) ?

То есть при нажатии кнопки - случайные фигуры на листе (не все, а только некоторые) - группируются в группу фигур.
К сообщению приложен файл: file.xls(78Kb)
 
Ответить
СообщениеЗдравствуйте, гуру экселя.
помогите решить вопрос.

У меня на листе книги экселя - разбросаны разные фигуры.
Как макросом - сгруппировать их по случайному признаку (вразнобой) ?

То есть при нажатии кнопки - случайные фигуры на листе (не все, а только некоторые) - группируются в группу фигур.

Автор - SergVrn
Дата добавления - 08.09.2017 в 11:33
sboy Дата: Пятница, 08.09.2017, 12:01 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1105
Репутация: 277 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Как-то так[vba]
Код
Sub Ìàêðîñ()
    Dim ar() As String
    ReDim ar(0)
    For x = 1 To WorksheetFunction.RandBetween(2, ActiveSheet.Shapes.Count)
        xx = WorksheetFunction.RandBetween(1, ActiveSheet.Shapes.Count)
        With ActiveSheet.Shapes(xx)
            ar(UBound(ar)) = .Name
            ReDim Preserve ar(UBound(ar) + 1)
        End With
    Next x
    ReDim Preserve ar(UBound(ar) - 1)
    ActiveSheet.Shapes.Range(ar).Select
    Selection.ShapeRange.Group
End Sub
[/vba]
К сообщению приложен файл: 8374396.xls(88Kb)
 
Ответить
СообщениеДобрый день.
Как-то так[vba]
Код
Sub Ìàêðîñ()
    Dim ar() As String
    ReDim ar(0)
    For x = 1 To WorksheetFunction.RandBetween(2, ActiveSheet.Shapes.Count)
        xx = WorksheetFunction.RandBetween(1, ActiveSheet.Shapes.Count)
        With ActiveSheet.Shapes(xx)
            ar(UBound(ar)) = .Name
            ReDim Preserve ar(UBound(ar) + 1)
        End With
    Next x
    ReDim Preserve ar(UBound(ar) - 1)
    ActiveSheet.Shapes.Range(ar).Select
    Selection.ShapeRange.Group
End Sub
[/vba]

Автор - sboy
Дата добавления - 08.09.2017 в 12:01
SergVrn Дата: Пятница, 08.09.2017, 12:15 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, работает !
Спасибо за ответ.
 
Ответить
Сообщениеsboy, работает !
Спасибо за ответ.

Автор - SergVrn
Дата добавления - 08.09.2017 в 12:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Группировка случайных фигур из множества. (Макросы/Sub)
Страница 1 из 11
Поиск:

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