Простановка единиц под кружками

Вход

Регистрация

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

= Мир MS Excel/Простановка единиц под кружками - Мир MS Excel

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

Простановка единиц под кружками (Макросы/Sub)

Простановка единиц под кружками

OlegSmirnov

Дата: Понедельник, 29.01.2018, 01:05 | Сообщение № 1

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

Ранг: Участник

Сообщений: 97

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

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

Excel 2013

Привет народ.
Помогите решить нелегкую задачу.

Есть диапазон F3:AR38.
На нем - множество кружков.
Как макросом проставить под геометрическими центрами кружков - единицы в ячейки, а те единицы что в настоящий момент находятся не под кружками - удалить ?

К сообщению приложен файл: 8105975.xls (49.0 Kb)

Ответить

doober

Дата: Понедельник, 29.01.2018, 02:36 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 995

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

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

Excel 2010

Здравствуйте.
Как очистить сами придумаете.[vba]

Код

    Dim C As Integer, rw As Long
    For Each r In ActiveSheet.Shapes
        If r.AutoShapeType = msoShapeOval Then
            rw = (r.BottomRightCell.Row - r.TopLeftCell.Row) / 2
            C = (r.BottomRightCell.Column - r.TopLeftCell.Column) / 2
            r.TopLeftCell.Offset(rw, C) = 1
        End If
    Next

[/vba]

Ответить

OlegSmirnov

Дата: Понедельник, 29.01.2018, 13:53 | Сообщение № 3

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

Ранг: Участник

Сообщений: 97

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

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

Excel 2013

doober, ясно.
Спасибо

Ответить

Простановка единиц под кружками (Макросы/Sub)

Страница 1 из 1
1