Удаление строки таблицы с обновлением SCROLLBAR
Помогите с обновлением SCROLLBAR при удалении и добавлении записей через форму в таблице EXcel. Исходник прилагаю
После добавления новой записи выполнять:
With UserForm1
.ScrollBar1.Max = .ScrollBar1.Max + 1
.ScrollBar1.Value = .ScrollBar1.Max
End With
При удалении почти то-же:
With UserForm1
.ScrollBar1.Max = .ScrollBar1.Max - 1
.ScrollBar1.Value = .ScrollBar1.Max
End With
With UserForm1
.ScrollBar1.Max = .ScrollBar1.Max + 1
.ScrollBar1.Value = .ScrollBar1.Max
End With
При удалении почти то-же:
With UserForm1
.ScrollBar1.Max = .ScrollBar1.Max - 1
.ScrollBar1.Value = .ScrollBar1.Max
End With