Нужен выпадающий список с поиском (без нажатия на стрелку раскрытия), Добрый день, нужен выпадающий список с поиском (без нажатия на стрелку раскрытия)
Вам поможет структурирование кода: Разбейте код на процедуры, используя принцип единственной ответственности: - процедура должна делать что-то одно или чуть добавлять к входным параметрам = повысите понятность кода (хотя его может стать больше) Вы получите возможность их тестировать по отдельности = уменьшите количество ошибок.
Пусть Ваша основная процедура состоит из вызовов процедур.
Вам поможет упрощение (отупливание) кода. Код вида:
Dim wsh As Worksheet
Dim cellLeft_ As Range
Dim cellRight As Range
Set wsh = Application.Workbooks(UZ).Sheets("Listing")
Set cellLeft_ = Cells(LastUsedCell.row + 1, 1)
Set cellRight = Cells(LastUsedCell.row + MassivDim + 1, 5)
Set Specs = wsh.Range(cellLeft_, cellRight)
PHP Битрикс24 REST API, Google Apps Script, Excel VBA Windows Mac
Sub Cells_2_ClipBoard( _
rng As Range)
' копировать значения выделенных (можно несмежных) ячеек в буфер обмена
Dim _
cell As Range, _
sVal As String
For Each cell In rng.Cells
sVal = sVal & cell.Value
Next
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText sVal
.PutInClipboard
End With
End Sub
PHP Битрикс24 REST API, Google Apps Script, Excel VBA Windows Mac
Kanitele, не Вы первый, не Вы последний. "Перевести «программы», написанные в Excel на какой-либо язык программирования — практически нереально. Это займет уйму времени, а проблема постоянного обновления и проверки корректности делает такую задачу и вовсе нерешаемой."
PHP Битрикс24 REST API, Google Apps Script, Excel VBA Windows Mac
"Прежде чем вызывать функцию Rnd, воспользуйтесь оператором Randomize без аргумента, чтобы инициализировать генератор случайных чисел с начальным значением на основе системного таймера." Rnd
PHP Битрикс24 REST API, Google Apps Script, Excel VBA Windows Mac