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