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