InputBox Function

рд╕рдВрд╡рд╛рджрдорд╛ рдкреНрд░реЛрдореНрдкреНрдЯ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ рдЬрд╕рдорд╛ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛рд▓реЗ рдЖрдЧрдд рдкрд╛рдардорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдЫрди ред рдпреЛ рдЖрдЧрдд рдЪрд▓рд▓рд╛рдИ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░рд┐рдиреНрдЫ ред

рдЖрдЧрдд рдмрд╛рдХрд╕ рд╕рдВрд╡рд╛рджрдмрд╛рдЯ рдкрд╛рдардорд╛ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рд╕реБрдмрд┐рдзрд╛рдпреБрдХреНрдд рддрд░реАрдХрд╛рдХреЛ рдХрдерди рд╣реЛ ред 'рдареАрдХ рдЫ' рдмрдЯрди рдХреНрд▓рд┐рдХ рдЧрд░реЗрд░ рд╡рд╛ 'рдлрд░реНрдХрдиреБрд╣реЛрд╕реН' рдерд┐рдЪреЗрд░ рдЖрдЧрдд рдпрдХреАрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпреЛ рдЖрдЧрдд рдкреНрд░рдХрд╛рд░реНрдп рдорд╛рди рдлрд░реНрдХрд┐рдП рдЬрд╕рд░рд┐ рдлрд░реНрдХрд╛рдЗрдиреНрдЫ ред рдпрджрд┐ 'рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН' рдмрд╛рдЯрд╕рдВрд╡рд╛рдж рдмрдиреНрдж рдЧрд░реНрдиреБрднрдпреЛ рднрдиреЗ,рдЖрдЧрдд рдмрд╛рдХрд╕рд╢реВрдиреНрдп-рд▓рдореНрдмрд╛рдЗ рд╕реНрдЯреНрд░рд┐рдЩ("")рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рдЖрдЧрдд рдмрд╛рдХрд╕(рд╕реНрдЯреНрд░рд┐рдЩ рдХреЛ рд░реВрдкрдорд╛ Msg[, рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рд╢реАрд░реНрд╖рдХ[, рд╕реНрдЯреНрд░рд┐рдЩ рдХреЛ рд░реВрдкрдорд╛ рдкреВрд░реНрд╡рдирд┐рдзрд╛рд░рд┐рдд[, рдЗрдиреНрдЯрд┐рдЬрд░ рдХреЛ рд░реВрдкрдорд╛x_pos As , рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ y_pos]]]])

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рд╕реНрдЯреНрд░рд┐рдЩ

рдкрд░рд╛рдорд┐рддрд┐:

рд╕рдиреНрджреЗрд╢:рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕рдорд╛ рд╕рдиреНрджреЗрд╢рдХреЛ рд░реВрдкрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкреНрд░рджрд░реНрд╢рд┐рдд рдЧрд░рд┐рдПрдХреЛ рдЫ ред

рд╢реАрд░реНрд╖рдХ:рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕рдХреЛ рд╢реАрд░реНрд╖рдХрдкрдЯреНрдЯреАрдорд╛ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реЗрдХрд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ ред

рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд:рдЕрд░реВ рдЖрдЧрдд рдирджрд┐рдПрдХреЛ рдмреЗрд▓рд╛рдорд╛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рддрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда рдмрд╛рдХрд╕рдорд╛ рдкреНрд░рджрд░реНрд╢рд┐рдд рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ ред

x_pos:рдЗрдиреНрдЯреЗрдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рдВрд╡рд╛рджрдХреЛ рддреЗрд░реНрд╕реЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпреЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдирд┐рд╢реНрдЪрд┐рдд рд╕рдордиреНрд╡реНрдиреНрд╡рдп рдЧрд░реНрджрдЫ рд░ рдХрд╛рд░реНрдпрд╛рд▓рдпрдХреЛ рдЕрдиреБрдкреНрд░рдпреЛрдЧрдХреЛ рд╕рдЮреНрдЭреНрдпрд╛рд▓рд▓рд╛рдИ рд╕рдиреНрджрд░реНрднрд┐рдд рдЧрд░реНрджреИрди ред

y_pos:рдЗрдиреНрдЯреЗрд░рдЧрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рдВрд╡рд╛рджрдХреЛ рдард╛рдбреЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпреЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдирд┐рд╢реНрдЪрд┐рдд рд╕рдордиреНрд╡рдп рдЧрд░реНрджрдЫ рд░ рдХрд╛рд░реНрдпрд╛рд▓рдпрдХреЛ рдЕрдиреБрдкреНрд░рдпреЛрдЧрдХреЛ рд╕рдЮреНрдЭреНрдпрд╛рд▓рд▓рд╛рдИ рд╕рдиреНрджрд░реНрднрд┐рдд рдЧрд░реНрджреИрди ред

рдпрджрд┐ x_pos рд░ y_pos рд▓рд╛рдИ рд╣рдЯрд╛рдЗрдПрдХреЛ рдЦрдгреНрдбрдорд╛, рд╕рдВрд╡рд╛рдж рдкрд░реНрджрд╛рдорд╛ рдХреЗрдиреНрджреНрд░рд┐рдд рд╣реБрдиреНрдЫ ред рдЕрд╡рд╕реНрдерд╛ рдЯреНрд╡рд┐рдкреНрд╕ рдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХреЛ рдЫ ред

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleInputBox
Dim sText As String
    sText =рдЖрдЧрдд рдмрд╛рдХрд╕("рдХреГрдкрдпрд╛ рдПрдЙрдЯрд╛ рд╡рд╛рдХреНрдпрд╛рдВрд╢ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН:","рдкреНрд░рд┐рдп рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛ ")
    рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕ ( sText , ремрек, "рд╡рд╛рдХреНрдпрд╛рдВрд╢рдХреЛ рдпрдХреАрди ")
End Sub

Please support us!