Есть ли способ иметь собственный, непоследовательный диапазон номеров для кнопки вращения Excel?

Question

У меня есть кнопка прокрутки Excel, которая должна начинаться с 1000, а затем подниматься (с шагом 1) до 1099. Однако вместо перехода к 1100 после 1099 мне нужно следующее число, равное 2000 (затем процесс повторяетсясобирается в 2099 году). Вводя только SpinButton1.Min и Max, кнопка проходит по многим числам, которые мне не нужны.

Существует ли формула VBA, которая позволит мне ввести произвольный диапазон номеров для раскрутки спина. В частности, диапазон будет [1000-1099] [2000-2099].

Спасибо!

Answer 1

Вы можете назначить следующую макрокоманду для своей кнопки вращения:

Sub SB()
Dim rng As Range
Dim i As Long
Set rng = Application.Worksheets("Sheet1").Range("C7") '<-- input the Cell and worksheet
                                                   'your spin Button is assigned to here
i = rng.Value

If i < 1000 Then
    i = 1000
ElseIf i > 1099 And i < 1550 Then
    i = 2000
ElseIf i < 2000 And i >= 1550 Then
    i = 1099
ElseIf i > 2099 Then
    i = 2099
End If

rng.Value = i
End Sub

Это просто не даст ячейке принимать какие-либо другие значения, кроме тех, которые находятся в желаемом интервале, и все входы от 1100 до 1549 будутперейти к 2000, в то время как входы с 1550 по 1999 год перейдут к 1000.