Я работаю над утилитой управления клиентом для своего рабочего места, с различными системами ввода / просмотра заметок + раскрывающимся списком для удобства и эффективности.
Сейчас у меня возникает проблема, связанная с пользовательской формой, после нажатия на со списком, пользователь не может нажать на полосу прокрутки, чтобы перетащить вниз. Они могут щелкнуть стрелку, чтобы прокрутить вниз, но не саму панель для быстрой прокрутки.
Странно то, что отправленный мною файл "7.8" был прямой копией моего файла, но с клиентами моих коллег информация вставлена. На моей версии, сделанной за 5 минут до этого, кнопка прокрутки вниз работает отлично. Я сделал скриншоты свойств поля со списком и не смог найти, что если что-то изменилось.
Это также происходит с пользовательской формой, в которую я внес ZERO-изменения сегодня, опять-таки, не работая над его, а работая над моим. Существуют ли общие проблемы, возникающие при открытии нескольких рабочих книг? Весь мой код пользовательской формы нацелен на эту книгу и идентифицирует лист по кодовому имени. Все остальные функции работают, включая гораздо более сложные вещи, чем то, можно ли перетаскивать полосу прокрутки ...
немного озадаченно. У кого-нибудь есть идеи?
Итак, я привел пример кода ниже: я успешно использую один и тот же код в нескольких точках с небольшими сменами, чтобы определить, выбран ли данный владелец аккаунта, и если да, загрузить соответствующий клиенты, и если клиент выбран, чтобы загрузить отметку времени для заметки.
Что странно, так это то, что указанный код был полной противоположностью воспроизводимого. У меня была рабочая книга 7.8, она была скопирована, изменена клиентская информация (которая никоим образом не повлияла на базовый код) и отправлена моему коллеге, чей опыт работы с пользовательскими формами заключался в том, что на полосах прокрутки можно нажимать кнопку вниз, но не перетащите на саму планку. Единственное, о чем я могу подумать, так это о том, что наличие нескольких рабочих книг вызвало проблему, но из всех> 1000 строк кода нет ни одной моей строки кода, которая бы что-нибудь делала с полосой прокрутки. И как-то за 5 минут после отправки ему электронной почты полоса прокрутки утратила частичную функциональность?
Sub noteOwnerClients()
Dim wsFound As Worksheet
Dim mainBook As Workbook
Set mainBook = ThisWorkbook
Dim rangeFinder As Range
Dim rangeInt As Integer
Dim rangePull As String
Dim selectedString As String
For Each ws In ThisWorkbook.Worksheets
If StrComp(ws.CodeName, "sheetDatabase", vbTextCompare) = 0 Then
Set wsFound = ws
End If
Next ws
noteClientCombo.Clear
selectedString = noteOwnerCombo.Text
If selectedString <> "" Then
rangeInt = 2
For Each rangeFinder In wsFound.Range("E2:E200")
If selectedString = rangeFinder.Value Then
rangePull = "A" & rangeInt
noteClientCombo.AddItem wsFound.Range(rangePull)
End If
rangeInt = rangeInt + 1
Next
End If
End Sub