如何在文本框中仅输入数字？

网友投稿 427 2023-10-22

如何在文本框中仅输入数字？

在Excel中，我们可以应用数据验证功能以仅允许将数字输入到单元格中，但是有时，我只希望在文本框以及单元格中键入数字。如何在Excel中的文本框中仅接受数字？

使用选择性粘贴功能将一系列单元格除以数字

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

以下VBA代码可以帮助您仅在文本框中输入数字，句点（。）和负号，请按以下步骤操作：

1. 通过单击创建文本框 开发商 > 插页 > 文本框（ActiveX控件），然后根据需要绘制一个文本框，请参见屏幕截图：

2。然后右键单击文本框并选择 查看代码 从上下文菜单中打开 Microsoft Visual Basic应用程序 窗口，然后用以下VBA代码将原始代码替换为空白模块：

VBA代码：仅允许在文本框中输入数字：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then If KeyAscii = Asc("-") Then If InStr(1, Me.TextBox1.Text, "-") > 0 Or _ Me.TextBox1.SelStart > 0 Then KeyAscii = 0 ElseIf KeyAscii = Asc(".") Then If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0 Else KeyAscii = 0 End If End If End Sub

Copy

3。然后保存并关闭代码窗口，然后退出 设计模式，现在，只能在文本框中输入数字，句号和负号，请参见屏幕截图：

相关文章：

如何在文本框中应用拼写检查？

如何根据Excel中的值更改文本框颜色？

如何将图片插入文本框？

如何在文本框中设置默认值？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。