В ячейке (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
Элемент ListView обновляется с помощью:
Элемент ListView обновляется с помощью:
Можно ли выражение k=k+1 заменить на k++ ?
Можно ли выражение k=k+1 заменить на k++ ?
Что произойдет при запуске макроса:
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
К содержимому ячейки в верхнем левом углу листа можно обратиться как:
К содержимому ячейки в верхнем левом углу листа можно обратиться как:
Что возвращает свойство MergeCells объекта Range?
Что возвращает свойство MergeCells объекта Range?
Подключить дополнительные библиотеки можно:
Подключить дополнительные библиотеки можно:
Команда Cells.Clear очищает все содержимое:
Команда Cells.Clear очищает все содержимое:
Что будет выведено при запуске следующего макроса:
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
Каков результат запуска макроса:
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
С помощью какой команды можно сделать так, чтобы, во время работы макроса изменения на листах не отображались во время его работы (экран не «моргал»)?
Варианты ответа:
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) Сделать форму модальной
Что происходит запуске кода?
Rnd = 7
On Error Resume Next
MsgBox (Rnd / 0)
MsgBox ("Все ок! ")
Что происходит запуске кода?
Rnd = 7
On Error Resume Next
MsgBox (Rnd / 0)
MsgBox ("Все ок! ")
Что будет выведено при запуске следующего макроса:
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
Сколько байт в памяти занимает переменная n?
Sub fff()
n = 120
End Sub
Сколько байт в памяти занимает переменная n?
Sub fff()
n = 120
End Sub
Как можно получить имя пользователя?
Как можно получить имя пользователя?
Чем должен оканчиваться цикл Do?
Чем должен оканчиваться цикл Do?
Как можно выделить лист «f2»?
Как можно выделить лист «f2»?
Что сделает код при установленном среднем уровне безопасности:
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)Ничего из вышеперечисленного
Существует ли такой вариант синтаксиса цикла?
For Each d In ListView1.ListItems
d.Selected = False
Next
Существует ли такой вариант синтаксиса цикла?
For Each d In ListView1.ListItems
d.Selected = False
Next
Что произойдет при запуске макроса:
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