Основы офисного программирования и язык VBA - ответы
Количество вопросов - 414
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents .Add .Add NewTemplate:=True .Open (PathDir & "DocThree") .Open (PathDir & "DocFive") .Item(1).Close .Item(2).CloseEnd WithEnd Sub
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks .Open (PathDir & "BookThree.xls") .Add .Open (PathDir & "BookFive.xls") .Add .Item(5).Close .Item(4).CloseEnd WithEnd Sub
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks .Add .Open (PathDir & "BookThree.xls") .Open (PathDir & "BookFive.xls") .Item(2).Close .Item(3).CloseEnd WithEnd Sub
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents .Add NewTemplate:=True .Add .Open (PathDir & "DocFive") .Open (PathDir & "DocThree") .Item(2).Close .Item(3).CloseEnd WithEnd Sub
Public Property Get Числитель() As Integer Числитель = mEnd Propertyявляется определителем типа?
Private Declare Function GetTempPath Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Longпозволяет указать, что процедура имеет в DLL псевдоним?
With NewAcquaintance .Name = "Елена" .Age= 40 .Height = 168 With .LastMeeting .Place= "библиотека" .Date= #08/03/99# End WithEnd WithКакое будет полное имя у объекта .Date?
Width #1,2Str = "Здравствуйте"Print #1, "Саша", "Женя", Str
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks .Open (PathDir & "BookThree.xls") .Open (PathDir & "BookFive.xls") .Add .Item(2).Close .Item(3).CloseEnd WithEnd Sub
Public Property Get Числитель() As Integer Числитель = mEnd Propertyкакое ключевое слово означает доступность?
Private Declare Function GetTempPath Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Longограничивает доступ к ней лишь модулем, в котором она объявлена?
With NewAcquaintance .Name = "Елена" .Age= 40 .Height = 168 With .LastMeeting .Place= "библиотека" .Date= #08/03/99# End WithEnd WithКакое будет полное имя у объекта .Age?
Public Sub WorkWithArithmetic() Dim X As Integer, Y As Integer Dim U As Single, V As Single Dim Z As Double U = 26.5: V = -8.2 Z = U / V: X = CInt(U / V): Y = U \ V Debug.Print X, Y, Z, U, V, X \ Y, X Mod Y, U Mod VEnd Sub
Width #1,3Str = "сосна"Print #1, "сон", "сан", Str
Width #1,3Str = "почтальон Печкин"Print #1, "это", "я", Str
Public Property Get Числитель() As Integer Числитель = mEnd Propertyчто является именем свойства?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents .Add NewTemplate:=True .Open (PathDir & "DocThree") .Open (PathDir & "DocFive") .Item(3).CloseEnd WithEnd Sub
Private Declare Function GetTempPath Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Longявляется именем объявляемой функции?
With NewAcquaintance .Name = "Елена" .Age= 40 .Height = 168 With .LastMeeting .Place= "библиотека" .Date= #08/03/99# End WithEnd WithКакое будет полное имя у объекта .Place?