Мелочи вызывают затруднение

[Freddy19]

Есть функция =СЛУЧМЕЖДУ. Как её заставить обновляться каждый раз при запуске книги?

[аналитика]

в модуле "ЭтаКнига":

Private Sub Workbook_Open()
   Calculate
End Sub

она будет меняться при каждом пересчете листа, если тебе это не нужно (т.е. нужна статичная, меняющаяся только при открытии, случайная ячейка), можно так:

Private Sub Workbook_Open()
   Randomize
   Sheets(1).Range("A1")=Int(Rnd*10)
End Sub

[Freddy19]

Спасибо! О! Только заметил она и сама обновляется.

[Freddy19]

Private Sub Workbook_Open()
Randomize
Sheets(1).Range("A1")=Int(Rnd*10)
End Sub

Вот это подходит. Только нужно целую таблицу заполнить случайными

[Freddy19]

Еще раз про SpinButton.
у него SpinButton1.Min = 1
SpinButton1.Max = 10
При выходе сохраняемся, SpinButton стоит на значении 5.
Как сделать чтобы при открытии книги он начинал листать с 1 значения, а не с 5.
Пробовал записывать:

Private Sub Workbook_Open()
SpinButton1.Value = 1
End Sub

не получается

[аналитика]

можно создать свою функцию (она пересчитывается только при нажатии Ctrl+Alt+F9)

Function StaticRnd()
   StaticRnd = Rnd()
End Function

Private Sub Workbook_Open()
   Randomize
   range("A1:C10").FormulaR1C1 = "=StaticRnd()"
End Sub

или так:

Private Sub Workbook_Open()
   dim с as range

   Randomize
   for each с in range("A1:C10")      
      c=Int(Rnd*10)
   next c
End Sub

[Freddy19]

Понятно! Спасибо! Низкий поклон за помощь!

[аналитика]

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

Еще раз про SpinButton.
у него SpinButton1.Min = 1
SpinButton1.Max = 10
При выходе сохраняемся, SpinButton стоит на значении 5.
Как сделать чтобы при открытии книги он начинал листать с 1 значения, а не с 5.
Пробовал записывать:

Private Sub Workbook_Open()
SpinButton1.Value = 1
End Sub

не получается

у тебя SpinButton где? Если, напр., на первом листе, то так вот:
Sheets(1).SpinButton1.Value = 10

[Freddy19]

Private Sub Workbook_Open()

Dim с As Range
Randomize
For Each с In Sheets("Лист2").Range("D4:D9")
c = Int(Rnd * 10)
Next c

End Sub

ругается на next почемуто.

[аналитика]

я писал прям здесь, можа одна из с русская (Пантусвитчер балуется)