怎么写一段excel vba 输入代码

Question

我想做一个在EXCEL vba 输入框 输入值赋予A1 该怎么写呢

Answer 1

从Excel工具栏中插入一个VBA的控件-编辑框。

双击这个编辑框，进入VBA编程窗口。

删除原来的所有内容，输入以下内容：

Private Sub TextBox1_LostFocus()
  Range("A1").Value = TextBox1.Text
End Sub

关闭编程窗口，回到Excel界面。

在编辑框中输入一个字串。

用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1

追问

我想问怎么可以调整输入框的那个框的大小。。

追答

在工具栏中，由一个设计模式，点它以后，就可以选中编辑框，调整大小了

Answer 2

Private Sub CommandButton1_Click()
Dim v As String
v = InputBox("Input")
Cells(1, 1) = v
End Sub追问

我想问怎么可以调整输入框的那个框的大小。。

追答

框的大小是系统定的,要是真想改,就得用自定义的窗口了.