SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MaximuS G
Цитата: ReDim a(UBound(arg)) 'Определяем размерность массива результатов
Можете объяснить, почему без этой команды никак, не могу въехать |
При определении переменных, размерность массива результатов неизвестна. Поэтому мы определяем динамический массив Dim a(). После того, как сформирован массив исходных данных (массив "arg"), то командой ReDim a(UBound(arg)) мы определяем размерность массива "a" равную размерности массива "arg".
jocer
Цитата:| как избавиться от появления этого сообщения? |
Можно перед закрытием книги средствами VBA очистить буфер обмена (если, конечно, это допустимо).
twindim77
Цитата:| в Forms расположены ListBox в которые вбиваются даты |
Для таких целей рациональнее использовать не ListBox, а DTPicker.
Solenaja
Цитата:| но по-умолчанию для страниц разрешено выделение заблокированных и незаблокированных ячеек, как назначить / снять пароль для всех листов чтобы запретить эти два разрешения? |
Установить защиту с паролем и запретить выделение любых ячеек можно, выполнив:
Код: WkSht.Protect Password:=PWORD
WkSht.EnableSelection = xlNoSelection |
Соответственно, если при защите необходимо разрешить выделение, то так:
Код: WkSht.Protect Password:=PWORD
WkSht.EnableSelection = xlYesSelection |
Klaid1
Цитата: Надо вот как сделать:
выборка, переход на другой лист, выборка... последний лист выборка, стоп. |
Следующий пример в ячейку "A1" листов, определенных оператором Select Case (с 3 по 5), вставит "Yes". Можно задать диапазон требуемых листов или избранные листы. Если это действие необходимо применить ко всем листам, то Select Case не нужен. Естественно, вместо Sheets(i).[A1] = "Yes" Вы поместите код требуемых Вам действий.
Код: Sub Main()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Select Case i
Case 3 To 5
Sheets(i).[A1] = "Yes"
End Select
Next
End Sub |
|
Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 06:05 04-09-2008 | Исправлено: SAS888, 06:38 04-09-2008 |
|
