excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或者字母提示,输入错误,请输入数字

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或者字母提示,输入错误,请输入数字相关的知识,希望对你有一定的参考价值。

参考技术A

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNumeric(TextBox1) Then

MsgBox "不是数字!"

Cancel = True

End If

End Sub

Private Sub CommandButton1_Click()

Dim i As Double

i = Format(Replace(TextBox1.Value, "。", "."), "0.00")

Sheet2.Range("A1").Value = i

End Sub

此代码不管textbox1输入的是句号还是点,都将变成点。四舍五入保留两位小数。

扩展资料:

AcceptsReturn 指示在多行TextBox组件中按ENTER键时,是在组件中创建一行新文本还是激活窗体的默认按钮。

AcceptsTab 该值指示在多行文本框组件中按TAB键时,是否在组件中键入一个TAB字符,而不是按选项卡的顺序将焦点移动到下一个组件。

AllowDrop 获取或设置一个值,该值指示组件是否可以接受用户拖放到它上面的数据。

Anchor 获取或设置组件的哪些边缘锚定到其容器边缘。

BackColor 获取或设置组件的背景色。

BackgroundImage 获取或设置在组件中显示的背景图像。

参考资料来源:百度百科-textbox

在vba中将列与文本框值相乘

【中文标题】在vba中将列与文本框值相乘【英文标题】:To multiply column with textbox value in vba 【发布时间】:2021-03-18 18:53:27 【问题描述】:

我在 Excel 表中有 textbox1,在 A 列中有值列表。由于文本框是用户定义的,我必须将给定值与 A 列中可用的所有值相乘。如果我是,如何使用命令按钮完成不使用表格。

rng = 评估(rng.Address &"*TextBox1.Value")

但是给出错误#NAME?在excel中。

【问题讨论】:

【参考方案1】:

我得到了解决方案,应该是

值 = Textbox1.Value

rng = Evaluate("=" & rng.Address & "*" & value)

希望对某人有用

谢谢

【讨论】:

以上是关于excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或者字母提示,输入错误,请输入数字的主要内容,如果未能解决你的问题,请参考以下文章

文本输入 Excel VBA 上的文本框文本消失 - 第 2 部分

vba窗体中如何获取列表框listbox1选中行的值返回到文本框textbox1。

更新事件触发输入事件后VBA Excel退出

Excel VBA 将文本框(文本和格式)复制到另一个文本框(无 ActiveX / 用户表单)

VBA自动更新用户表单文本框

VBA Excel:列表框自动滚动