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