Excel中怎样做出弹出窗口?

excel

在excel VBA中，可以使用以下代码实现在鼠标点击单元格位置弹出窗体，并让窗体左上角与单元格右上角对齐：

首先，在目标工作表的代码模块中添加以下代码，确保已经创建了名为“UserForm”的窗体，并设置窗体的起始位置为左上角。

VBAPrivate-type = UserForm1Private-sub - Click事件：Dim c As RangeFor Each c In SelectionUserForm1.Left = c.RightUserForm1.Top = c.TopNextEnd Sub这段代码会为每次选定单元格时执行，在执行时会创建一个名为“UserForm”的窗体，并设置其左上角位置在目标单元格的右上角。你可以在窗体的代码中编写显示内容的代码。请注意，此代码仅适用于单击任意单元格时弹出窗体制作，并且必须在工作表所在的代码模块中添加该代码。


VBA

另外，如果需要让窗体左上角与单元格右下角对齐，可以修改上述代码如下所示：VBAPrivate-type = UserForm1Private-sub - Click事件：Dim c As RangeFor Each c In SelectionUserForm1.Top = c.Bottom + 10NextEnd Sub这样修改后，当你点击任意单元格时，都会弹出窗体并让窗体左上角与单元格右下角对齐。以上就是使用excel VBA实现在鼠标点击单元格位置弹出窗体并让窗体左上角与单元格右上（或右下）对齐的方法。