Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Стандартные счетчики для диапазона ячеек
 
#1
19.09.2014 11:43:15
Подскажите пожалуйста, можно ли макросом (чтобы в ручную не мучиться) создать стандартные счетчики для всех ячеек диапазона и привязать их к этим ячейкам.
 
 
 
#2
19.09.2014 11:45:45
Что такое "стандартный счетчик"?. Если знаете что это, то включите макрорекордер - создайте то, что Вам нужно, привяжите к чему нужно и посмотрите макрос. Что будет не понятно - спрашивайте
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
19.09.2014 12:22:03
Вот  сделал, как изменить макрос, чтобы он создавал счетчики для других ячеек, привязывал их к ним и располагал на листе в ячейках
 
 
 
#4
19.09.2014 12:45:56
Цитата
cfvlehfr пишет: как изменить макрос,
какой макрос? расширение .xlsx означает что макросов нет в файле
 
 
 
#5
19.09.2014 12:50:05
Извините, не то прицепил.
Изменено: Vik_tor - 19.09.2014 13:02:23
 
 
 
#6
19.09.2014 14:11:43
Выделите нужный диапазон и запустите макрос
Код
Sub вставкаСЧ()
Application.ScreenUpdating = False
    For Each cl In Selection.Cells
        ActiveSheet.Spinners.Add(cl.Left, cl.Top, 20, 20).Select
        With Selection
            .Value = 0
            .Min = 0
            .Max = 30000
            .SmallChange = 5
            .LinkedCell = cl.Address
        End With
    cl.Select
    Next
Application.ScreenUpdating = True
End Sub
Изменено: Sanja - 19.09.2014 14:12:01
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
19.09.2014 14:23:22
Спасибо, все работает!
 
 
 
#8
19.09.2014 14:51:04
Цитата
Sanja пишет:
cl. Select
А это зачем?
There is no knowledge that is not power
 
 
 
#9
19.09.2014 14:54:12
А попробуйте без него  ;)  . Для отмены Select'а последнего Спина
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
19.09.2014 21:50:04
Я извиняюсь, а как удалить оптом?
 
 
 
#11
19.09.2014 21:57:47
Чего удалить?
 
 
 
#12
19.09.2014 22:26:08
Счетчики нужны на время, поставил-поработал- убрал, а значения остались.
 
 
 
#13
19.09.2014 22:35:13
Код
Sub DelDrawObj()
    ActiveSheet.DrawingObjects.Delete
End Sub
 
 
 
#14
19.09.2014 23:44:11
Если же нужно поберечь другие объекты, то перебираем их с проверкой:
Код
Sub DelSpinners()
Dim x As Shape
    For Each x In ActiveSheet.Shapes
        If x.Name Like "Spinn*" Then x.Delete
    Next
End Sub
 
 
 
Страницы: 1
Наверх