Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.222.113.40] |
|
Сообщ.
#1
,
|
|
|
Как изменить пределы Min Max для скролла
Option Explicit 'Public gvar As Integer Function FScrollBarMinMax(pmin As Double, pmax As Double) As Integer 'Sheets("Лист1").Shapes("Scroll2").DrawingObject.Max = pmin ActiveSheet.Shapes("Scroll2").ControlFormat.Min = pmin ActiveSheet.Shapes("Scroll2").ControlFormat.Max = pmax FScrollBarMinMax = 0 End Function Function FSumma(arg As Double) As Double Dim res As Integer res = FScrollBarMinMax(25, 52) FSumma = arg + 10 End Function Прикреплённый файлTest.rar (13,95 Кбайт, скачиваний: 118) |
Сообщ.
#2
,
|
|
|
Sub qwert() With ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object .Max = 22000 .Min = 220 End With End Sub |
Сообщ.
#3
,
|
|
|
спасибо
|
Сообщ.
#4
,
|
|
|
В опубликованном файле нет скролла, но есть счётчик а изменить мин. и макс. можно ещё и так :
With ActiveSheet.Spinners("Scroll2") .Min = pmin .Max = pmax End With |