Microsoft Excel/Visual Basic for Applications в Excel/Переменные и константы. Арифметические и логические выражения: различия между версиями

Пусть мы создали макрос с именем My в книге Книга1. Появится окно редактирования и отладки программ, приведённое на рис. 3. В папке Modules мы увидем компонент Module1, в котором находится процедура My. Первоначально тело процедуры не заполнено и вся процедура выглядит так:

 

Sub my()

 

End Sub

 

Мы создали модуль Module1, содержащий процедуру My, который можно использовать в любой книге. Мы можем также создать модуль внутри данной книги. Для этого необходимо два раза нажать на меню «ЭтаКнига» («ThisWorkbook»).

В поле General (Общая область) введём следующий код:

 

Sub Hello_World()

MsgBox "Hello World!"

End Sub

 

Выполним программу. Для этого необходимо нажать клавишу F5 либо кнопку со стрелкой на панели инструментов Visual Basic. На экране мы увидим окно с надписью Hello World! и кнопкой ОК. Нажмём ОК — окно исчезнет, программа завершит свою работу и мы вернёмся в окно редактирования Visual Basic.

 

Примеры:

Dim i As Integer

Dim S As String

Dim My_date As Date, num As Single

В примере 3 было объявление нескольких переменных в одной строке

 

 

Пример:

Dim N As Integer

Dim S As String

N = CInt(S)

MsgBox N

 

После выполнения данного кода на экран выведется число 42.

 

Пример:

5 > 3 AND 7 < 10

NOT 6 > 5 AND 0 < 2 OR 7 <= 2

 

Значение первого выражения будет True, а второго — False.

 

Пример использования константы:

Const Pi = 3.1415926

Dim L As Double, Dim Rad As Double

…

L = 2*Pi*Rad

 

Visual Basic задаёт тип константы автоматически в зависимости от значения выражения. Если необходимо задать конкретный тип константы, то используется следующая структура:<br />

 

Пример задания типа константы:

Const My_const As Byte = 100

Const My_date As Date = #01/01/2001#

 

Константы можно определять через константы, определённые ранее:

Const A = 20

Const B = A * 3

 

== Операторы ввода и вывода ==

 

Например, следующая процедура

Sub my()

Dim A As String

MsgBox A

End Sub

выведет на экран текст «Товар стоит 1000 рублей».

 

content-style = text-align: left; |

content =

Sub My1()

Dim X As Double

MsgBox ("Cos " & X & " градусов = " & Res)

End Sub

}}

 

content-style = text-align: left; |

content =

Sub My2()

Dim X As Integer

MsgBox ("Сумма цифр числа " & X & " равна " & Summa)

End Sub

}}

 

content-style = text-align: left; |

content =

Sub My3()

Dim S1 As String

MsgBox (Res)

End Sub

}}