ユーザーからの価値を得る

Question

私はVBAを初めてお使いです。私はマクロを記録しましたが、自分でコードを書いていません。私はユーザーからの入力を取得し、セルに配置しようとしています。

私の試みたコードは以下の通りです。

Sub test() 
Dim myvar as string 
myvar = "testname" 
'Put item in cell 
End sub 

Answer 1

以下の供給のコードは、エンドユーザーからの入力を取得し、この例では、セルA1にそれを置き、それが成功したことを通知します。

Sub Test() 'Declare Sub 
    Dim InputValue As String 'Declare the string 
    InputValue = InputBox("Enter text...") 'Get input from end user 
    Range("A1").Value = InputValue 'Place input into cell A1 
    MsgBox "Your input """ & InputValue & """ has been placed in cell A1" 'Message box indicate it was placed in A1 
End Sub 

Answer 2

Application.InputBoxを使用してに見て、あなたがここに来たの答えにさらにinputbox

Sub test() 
Dim myVar as string 
myVar = InputBox("Please, enter your name:","Name Info Required","testname") 
'Put item in cell 
ThisWorkBook.Sheets(1).Cells(1,1).Value = myVar 
End sub 

Answer 3

を使用し、これはユーザーによって提供される入力を制限することができます。

Sub Test() 

    Dim myVar As String 

    myVar = Application.InputBox(Prompt:="Enter text (as String)...", Type:=2) 
    ' the rest is the same as the answers above 
    Range("A1").Value = myVar 

End Sub 

Application.InputBoxのオプションについての詳細を学ぶためには、VBAでコーディングする方法を教える専用の多くのサイトがありますがMSDN