InputBox Function
μ¬μ©μκ° ν μ€νΈλ₯Ό μ λ ₯ν μ μλ λν μμκ° νμλ©λλ€. μ λ ₯ λ΄μ©μ λ³μμ ν λΉλ©λλ€.
InputBox λ¬Έμ λν μμλ₯Ό ν΅ν΄ ν μ€νΈλ₯Ό μ λ ₯νλ νΈλ¦¬ν λ°©λ²μ λλ€. νμΈ λλ <Return> ν€λ₯Ό λλ¬ μ λ ₯ λ΄μ©μ νμΈνλ©΄ ν¨μ λ°ν κ°μΌλ‘ μ λ ₯ λ΄μ©μ΄ ꡬν΄μ§λλ€. μ·¨μλ₯Ό λλ¬ λν μμλ₯Ό λ«μΌλ©΄ InputBoxλ λΉ λ¬Έμμ΄("")μ νμν©λλ€.
ꡬ문:
InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])
λ°ν κ°:
String
λ§€κ° λ³μ:
Msg: λν μμμ λ©μμ§λ‘ νμλλ λ¬Έμμ΄ μμ λλ€.
Title: λν μμμ μ λͺ© νμμ€μ νμλλ λ¬Έμμ΄ μμ λλ€.
Default: λ€λ₯Έ μ λ ₯ λ΄μ©μ΄ μ 곡λμ§ μμ κ²½μ° ν μ€νΈ νλμ κΈ°λ³Έκ°μΌλ‘ νμλλ λ¬Έμμ΄ μμ λλ€.
x_pos: λν μμμ κ°λ‘ μμΉλ₯Ό μ§μ νλ μ μ μμ λλ€. μ΄ μμΉλ μ λ μ’νμ΄λ©° Office μμ© νλ‘κ·Έλ¨μ μ°½μ μ°Έμ‘°νμ§ μμ΅λλ€.
y_pos: λν μμμ μΈλ‘ μμΉλ₯Ό μ§μ νλ μ μ μμ λλ€. μ΄ μμΉλ μ λ μ’νμ΄λ©° Office μμ© νλ‘κ·Έλ¨μ μ°½μ μ°Έμ‘°νμ§ μμ΅λλ€.
x_pos λ° y_posλ₯Ό μλ΅ν κ²½μ° λν μμλ νλ©΄μ μ€μμ λμ λλ€. μμΉλ νΈμμΌλ‘ μ§μ λ©λλ€.
μ:
Sub ExampleInputBox
Dim sText As String
sText = InputBox ("ꡬμ μ μ λ ₯νμμμ€:","μ¬μ©μ κ·ν")
MsgBox ( sText , 64, "ꡬμ νμΈ")
End Sub