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

Вход

Регистрация

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

 

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

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

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

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

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

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

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

Автор - SergVrn
Дата добавления - 08.09.2017 в 11:33
sboy Дата: Пятница, 08.09.2017, 12:01 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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 (88.0 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Как-то так[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
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

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

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

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