如何弹出文本框，只需一次点击在Microsoft Excel 2010中使用VBA
在本文中，您将学习如何使用VBA代码单击一次弹出文本。
[.underline]＃让我们看一个示例：＃要在单击特定单元格时查看文本框弹出窗口，需要执行以下步骤：单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic
|”。在Sheet1中输入以下代码
私有子Worksheet_SelectionChange（按目标的ByVal目标）
如果没有Intersect（Target，Range（“ A1”））那么
ActiveSheet.Shapes.Range（Array（“ TextBox 1”））。Visible = False
其他
ActiveSheet.Shapes.Range（Array（“ TextBox 1”））。Visible = True
如果
结束
结束子
SelectionChange事件将确保每当单击单元格A1时，都会弹出文本框。请参阅下面的快照
这样，我们可以让其他人正确输入他们的信息。