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

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

PHP код:


For I = 1 To 100
ActiveSheet.CheckBoxes.Add(54.55, 43.5 + (I * 15), 24, 17.25).Select
Next I
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

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

Есть массивчик каждый месяц и в них туева гора строк, которые нужно крыжить ежедневно. Красить ячейка не варик - потом фильтровать по цвету т д неудобно. Писать что "ПРОВЕДЕНО", тоде не оч. А если фильтровать по TRUE и FALSE. Будет самое оно

[Volodshan]

По поводу. Как вариант.
ps Тяжело в деревне без нагана...

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

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

По поводу. Как вариант.
ps Тяжело в деревне без нагана...

Сапсибо Но тут точно нужны галки. К ним потом прикручу ComboBox при нажатии, так как это оч важно, ну я про поставить галку

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

PHP код:


For I = 1 To 100 
ActiveSheet.CheckBoxes.Add(54.55, 43.5 + (I * 15), 24, 17.25).Select 
Next I 
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 


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

[alex77755]

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

Ставишь в ячейке шрифт Marlett, ставишь a (латинскую), и тянешь до посинения.

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

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

Ставишь в ячейке шрифт Marlett, ставишь a (латинскую), и тянешь до посинения.

Спасибо вам за совет, но речь идет о форме, а не о графическом объекте