В пользовательской функции создать один или несколько необязательных аргументов- Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<pre class="wp-block-syntaxhighlighter-code">Для создания необязательных аргументов следует использовать ключевое слово Optional. Обратите внимание на то, что все необязательные аргументы должны располагаться последними в списке аргументов и иметь тип Variant, если Вы планируете использовать функцию IsMissing().
 
Function CellText(Arg1 As String, Optional Arg2) As String
End Function
Для того, чтобы проверить, было ли передано значение необязательному аргументу, можно использовать функцию IsMissing()
 
Function CellText(Arg1 As String, Optional Arg2) As String
    If IsMissing(Arg2) = True Then
       CellText = Arg1 & "A"
    Else
       CellText = Arg1 & Arg2
    End If
End Function
Два примера вызова этой пользовательской функции из ячеек рабочего листа:
 
=CellText("Текст") =CellText("Текст";"B")
При необходимости можно указать значение, которое будет использоваться по умолчанию:
 
Function CellText$(Arg1$, Optional Arg2$ = "C", Optional Arg3$ = ";")
    CellText = Arg1 & Arg3 & Arg2
End Function
Три примера вызова этой пользовательской функции из ячеек рабочего листа:
 
=CellText("Текст")
=CellText("Текст";"B")
=CellText("Текст";"B";" ")</pre>

Похожие записи/страницы:

Leave a Comment