МС ОФИС 13 и ФЛАГИ

[Евгений Таб]

Доброе утро!

Коллеги кто нибудь сталкивался с автозаполнением ячеек формами в тринадцатом офисе?

Как сделать 100 флажков в ряд? В седьмом офисе ставишь в ячейку и тянеш - все ячейки заполняются... а тут ничерта не выходит....


Спасибо!

[Stilet]

А если копировать-вставить?

[Евгений Таб]

1000 галок не накопируешь...

[Stilet]

Почему? Выделил что копировать. Потом выделил диапазон куда копировать и вставь.
Я же не предлагаю по одной ячейке делать.
Или что это за флажки? Те что в VBA работают что-ли в макросах?

[Евгений Таб]

Сообщение от Stilet

Почему? Выделил что копировать. Потом выделил диапазон куда копировать и вставь.
Я же не предлагаю по одной ячейке делать.
Или что это за флажки? Те что в VBA работают что-ли в макросах?

Я вас понял.

Это простые флажки, элемент упр формой....

Но так как вы советуете не выходит. Может вы подскажите макрос который обратиться в во все заполненные ячейки столба А и на против каждого поставит галку, реально?

[Volodshan]

Сообщение от Евгений Таб

1000 галок не накопируешь...

Наверное есть менее замороченные варианты.
Но без знания идеи и реального файла - только догадки, однако...

[Stilet]

Может вы подскажите макрос который обратиться в во все заполненные ячейки столба А и на против каждого поставит галку, реально?

Реально было бы будь у мну МС Оффис )
Я Либрой пользуюсь, так что увы. Могу только в теории...

[Евгений Таб]

Есть столб А, там значения.

В идеале нужен код, чтобы напротив каждой не пустой яцейки нарисовалось поле для галки, и ссылка на след ячейку от галки....

[Евгений Таб]

PHP код:

Sub Macro2()
ActiveSheet.CheckBoxes.Add(54.55, 43.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(54.55, 59.5, 24, 17.25).Select
Dim shap As Shape
For Each shap In ActiveSheet.Shapes
If shap.Type = 8 Then
shap.DrawingObject.LinkedCell = shap.TopLeftCell.Offset(1, 1).Address
End If
Next
End Sub 


Код для двух ячеек, но если надо много в ряд и опредиленные... задавать координату на все, умом можно тронуться))) Тут скорее всего нужен цикл.

[Volodshan]

Сообщение от Евгений Таб

...
умом можно тронуться)))

Повторюсь:
Раскройте смысл, цель - начальную/конечную - ваших заморочек, и тогда, мо быть, найдется более простое решение. Если, конечно же, все это - не учебно-тренировочное задание для вас...