InputBox() . :
Input(<_> [,<_>][.<__>]
[,][,Y][, <->, <>])
<__> - , ( );
, Y - .
19.39.
Option Explicit Sub Msg_Inp() Dim Response As String Dim Message As String Dim Default As String Dim Title As String Dim Help As String Dim Style As Integer Dim Ctxt As Integer Message = " , " Title = " " Default = " " Response = InputBox(Message; Title; Default; 100; 100) End Sub | - |
(. 19.25).
. 19.25.
. , . , (. 19.26) () .
. 19.26.
19.8.
, . .
, Caption Labels().
19.40.
Sheets("<__>"). Labels ("<__>").Caption="cpoa "
, , . EditBoxes(), .
19.41.
Sheets("<__>").ditBoxes("<_>").t=" "
, :
MultyLine = True ;
InputType - , (xlFormula, xlInteger, xllNumber, xlReference, xlText).
|
|
. , . Caption.
, Value ( True, , False ). CheckBoxes().
. , , ; . OptionButtons(). Value True, , False .
, . . :
ListFillRange , ;
List() - , .
, DropDowns().
. , . .
, .
. Value , , ScrollBars(). Min , , . LargeChange SmallChange Value.
, LargeChange.
. 19.27 .
:
(, , . .);
, , . ;
( , ., ), (, , , , ), ;
(, , ), , ;
(< >, <>, <>, <>).
. 19.27.
|
|
.