Полоса прокрутки и ее связь с TextBox

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Полоса прокрутки и ее связь с TextBox (Макросы/Sub)

t330

Дата: Четверг, 18.04.2019, 16:30 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 147

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Всем привет!

У Уокенбаха есть пример мастера по расчету платежей по кредиту (см вложенный файл Loan.xlsm Файл весит 108кб поэтому пришлось заинуть в облако) [moder]Файл вложен в сообщение #4[/moder]

Я решил добавить в ЮзерФорму под названием FormMain на шаге №2 полосу ScrollBar (в коде ее название: sbPurchasePrice) (см вложенный рисунок), которая связана с полем "Возвращаемая сумма" (в коде ее название: tbPurchasePrice) так, что пользователь может не только руками сумму в этом поле набивать, но и менять сумму прокручивая эту полосу прокрутки sbPurchasePrice

Вот так я добавил полосу прокрутки в форму ForMain:
[vba]

Код

Private Sub sbPurchasePrice_Change()
With sbPurchasePrice
        .Min = 0
        .Max = 10000000
        .SmallChange = 1000
        .LargeChange = 10000
        tbPurchasePrice.Text = .Value
    End With
End Sub

[/vba]

Когда крутишь полосу прокрутки , сразу меняется и значение возвращаемой сумму в поле tbPurchasePrice

Теперь , хотелось бы сделать так, чтобы когда пользователь вручную забивает значение в поле tbPurchasePrice , чтобы в этот же момент ползунок в полосе прокрутки sbPurchasePrice тоже бы менял свое положение.

В коде формы FormMain я попытался решить задачу , добавив в изначальный код Уокенбаха вот эту закомментированную строку:

[vba]

Код

'STEP 2 EVENT HANDLERS
Private Sub tbPurchasePrice_Change()
' sbPurchasePrice.Value = Val(tbPurchasePrice.Text)
Call UpdateLoanAmount
End Sub

[/vba]

Если ее раскомментировать, то Макрос выдает ошибку!

Хотя , например точно такой же метод работает во вложенном файле TestSB и никаких ошибок нет
[vba]

Код

Option Explicit

Private Sub OK_Click()
Unload Me
End Sub

Private Sub ScrollBar1_Change()
    With ScrollBar1
        .Min = 0
        .Max = 10000000
        .SmallChange = 1000
        .LargeChange = 10000
        TextBox1.Text = .Value
    End With
End Sub

Private Sub TextBox1_Change()
ScrollBar1.Value = Val(TextBox1.Text)
End Sub

[/vba]

Помогите пожалуйста понять в чем затык?

Код

'STEP 2 EVENT HANDLERS
Private Sub tbPurchasePrice_Change()
' sbPurchasePrice.Value = Val(tbPurchasePrice.Text)
Call UpdateLoanAmount
End Sub

Код

[/vba]

Помогите пожалуйста понять в чем затык?t330

К сообщению приложен файл: 3450588.jpg (25.6 Kb) · TestSB.xlsm (16.5 Kb)