Существует ли такой вариант синтаксиса цикла?
For Each d In ListView1.ListItems
d.Selected = False
Next
Существует ли такой вариант синтаксиса цикла?
For Each d In ListView1.ListItems
d.Selected = False
Next
С помощью какой команды можно сделать так, чтобы, во время работы макроса изменения на листах не отображались во время его работы (экран не «моргал»)?
Варианты ответа:
1) Использовать Application.ScreenUpdating=false и Application.ScreenUpdating=true
2) Использовать Application.CurrentScreen=NULL и Application.CurrentScreen= Application.MainBook
3) Это сделать нельзя
4) Сделать форму модальной
С помощью какой команды можно сделать так, чтобы, во время работы макроса изменения на листах не отображались во время его работы (экран не «моргал»)?
Варианты ответа:
1) Использовать Application.ScreenUpdating=false и Application.ScreenUpdating=true
2) Использовать Application.CurrentScreen=NULL и Application.CurrentScreen= Application.MainBook
3) Это сделать нельзя
4) Сделать форму модальной
Можно ли выражение k=k+1 заменить на k++ ?
Можно ли выражение k=k+1 заменить на k++ ?
Что возвращает свойство MergeCells объекта Range?
Что возвращает свойство MergeCells объекта Range?
Элемент ListView обновляется с помощью:
Элемент ListView обновляется с помощью:
Как можно получить имя пользователя?
Как можно получить имя пользователя?
Как можно выделить лист «f2»?
Как можно выделить лист «f2»?
Подключить дополнительные библиотеки можно:
Подключить дополнительные библиотеки можно:
Что будет выведено при запуске следующего макроса:
Sub ddd()
Dim coll As New Collection
coll.Add ("1")
coll.Add ("2")
coll.Add (4)
MsgBox (coll.Item(1) + coll.Item(2) + coll.Item(3))
MsgBox (coll.Item(2) + coll.Item(1) + coll.Item(3))
MsgBox (coll.Item(3) + coll.Item(2) + coll.Item(1))
End Sub
Что будет выведено при запуске следующего макроса:
Sub ddd()
Dim coll As New Collection
coll.Add ("1")
coll.Add ("2")
coll.Add (4)
MsgBox (coll.Item(1) + coll.Item(2) + coll.Item(3))
MsgBox (coll.Item(2) + coll.Item(1) + coll.Item(3))
MsgBox (coll.Item(3) + coll.Item(2) + coll.Item(1))
End Sub
Чем должен оканчиваться цикл Do?
Чем должен оканчиваться цикл Do?
Что сделает код при установленном среднем уровне безопасности:
Sub ddd
i = 1
For Each ref In ActiveWorkbook.VBProject.References
Cells(i, 1) = ref.Name
Cells(i, 2) = ref.GUID
i = i + 1
Next
End Sub
Варианты ответа:
1) Выведет список подключенных библиотек на лист (в любом случае)
2) Выдаст ошибку (в любом случае)
3) Выведет список подключенных библиотек на лист только в том случае, если установлен флаг «Доверять доступ к Visual Basic Project»
4)Ничего из вышеперечисленного
Что сделает код при установленном среднем уровне безопасности:
Sub ddd
i = 1
For Each ref In ActiveWorkbook.VBProject.References
Cells(i, 1) = ref.Name
Cells(i, 2) = ref.GUID
i = i + 1
Next
End Sub
Варианты ответа:
1) Выведет список подключенных библиотек на лист (в любом случае)
2) Выдаст ошибку (в любом случае)
3) Выведет список подключенных библиотек на лист только в том случае, если установлен флаг «Доверять доступ к Visual Basic Project»
4)Ничего из вышеперечисленного
Команда Cells.Clear очищает все содержимое:
Команда Cells.Clear очищает все содержимое:
В ячейке (1,1) находится значение 1
В ячейке (2,1) находится значение 2
В ячейке (3,1) занесена функция “=СУММ(A1:A2)”
Что вернет макрос?
Sub fff()
Dim m
m = Cells.Resize(5, 5).Value
MsgBox (m(3, 1))
End Sub
В ячейке (1,1) находится значение 1
В ячейке (2,1) находится значение 2
В ячейке (3,1) занесена функция “=СУММ(A1:A2)”
Что вернет макрос?
Sub fff()
Dim m
m = Cells.Resize(5, 5).Value
MsgBox (m(3, 1))
End Sub
Что произойдет при запуске макроса:
Sub sss()
Dim v As Range
v = Range("A1:A10 A7:B5")
v.Select
End Sub
Что произойдет при запуске макроса:
Sub sss()
Dim v As Range
v = Range("A1:A10 A7:B5")
v.Select
End Sub
К содержимому ячейки в верхнем левом углу листа можно обратиться как:
К содержимому ячейки в верхнем левом углу листа можно обратиться как:
Каков результат запуска макроса:
Option Base 0
Sub fff()
Dim m() As Integer
ReDim m(10, 4 To 15)
For j = 0 To 10
For i = 4 To 15
m(j, i) = i + j
Next i
Next j
ReDim Preserve m(10, 4 To 16)
MsgBox m(10, 15)
ReDim Preserve m(10, 3 To 16)
MsgBox m(10, 15)
End Sub
Каков результат запуска макроса:
Option Base 0
Sub fff()
Dim m() As Integer
ReDim m(10, 4 To 15)
For j = 0 To 10
For i = 4 To 15
m(j, i) = i + j
Next i
Next j
ReDim Preserve m(10, 4 To 16)
MsgBox m(10, 15)
ReDim Preserve m(10, 3 To 16)
MsgBox m(10, 15)
End Sub
Что будет выведено при запуске следующего макроса:
Sub fff()
Dim i, j, k As Byte
i = 100
j = 100
k = 100
i = i + j + k
MsgBox i
End Sub
Что будет выведено при запуске следующего макроса:
Sub fff()
Dim i, j, k As Byte
i = 100
j = 100
k = 100
i = i + j + k
MsgBox i
End Sub
Что происходит запуске кода?
Rnd = 7
On Error Resume Next
MsgBox (Rnd / 0)
MsgBox ("Все ок! ")
Что происходит запуске кода?
Rnd = 7
On Error Resume Next
MsgBox (Rnd / 0)
MsgBox ("Все ок! ")
Сколько байт в памяти занимает переменная n?
Sub fff()
n = 120
End Sub
Сколько байт в памяти занимает переменная n?
Sub fff()
n = 120
End Sub
Что произойдет при запуске макроса:
Sub ttt()
Dim r As Range
Dim c As Range
Set r = Range("A1:A10")
Set c = Range("A5:A20")
If (Intersect(r, c) = Nothing) Then
MsgBox ("!!")
Else
MsgBox Intersect(r, c).Count
End If
End Sub
Что произойдет при запуске макроса:
Sub ttt()
Dim r As Range
Dim c As Range
Set r = Range("A1:A10")
Set c = Range("A5:A20")
If (Intersect(r, c) = Nothing) Then
MsgBox ("!!")
Else
MsgBox Intersect(r, c).Count
End If
End Sub