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

。显示绘图工具栏。

。单击文本框工具。

。单击并拖动以创建文本框时,按住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培训的来源。

本技巧(2192)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: