您已经知道Excel允许您在工作表中创建文本框。在某些时候,您可能需要创建一个与特定单元格大小完全相同的文本框。如果仅要创建一个或两个这样的文本框,最简单的方法是执行以下步骤:

。显示功能区的“插入”选项卡。

。单击文本框工具(Excel 2007,Excel 2010或Excel 2013),或单击文本工具,然后单击文本框(Excel 2016或更高版本)。

。单击并拖动以创建文本框时,按住Alt键。

当您按住Alt键时,它会强制Excel将文本框的侧面“捕捉”到一个绘图网格,该网格恰巧与工作表中的单元格边界匹配。结果是一个文本框正好是所需的大小。

如果您需要一次创建很多这样的文本框,则可以永久启用对齐网格功能:显示功能区的“页面布局”选项卡,单击“排列”组中的“对齐”工具,然后单击“对齐网格”。

如果要在许多不同的工作簿上创建许多这样的文本框,则可以使用宏来创建所需的文本框。下面的宏将在所选单元格的正上方创建一个文本框,并将其大小设置为与所选单元格的大小完全相同:

Sub TextBox2Cell()

With ActiveCell         ActiveSheet.Shapes.AddTextbox _           msoTextOrientationHorizontal, .Left, _           .Top, .Width, .Height     End With End Sub

在宏中进行很小的更改后,您可以对其进行修改,以便它将创建与所选单元格范围一样大的文本框:

Sub TextBox2Selection()

If TypeName(Selection) = "Range" Then         With Selection             ActiveSheet.Shapes.AddTextbox _               msoTextOrientationHorizontal, .Left, _               .Top, .Width, .Height         End With     End If End Sub

无论使用哪种方法创建文本框(手动或宏),都应注意,如果通过更改列宽或行高来调整单元格的大小,则文本框的大小也将更改以匹配新单元格尺寸。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(11359)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: