vba 给TextBox1一个值 TextBox2立即出现另一个值(值的来源是工作表中,如TextBox1等于A1 则TextBox等于a2)

如题所述

一般利用Textbox的Change事件,如下:

Private Sub TextBox1_Change()

    If TextBox1.Value = Sheets("工作表名称").Cells(1,"A") Then TextBox2.Value = Sheets("工作表名称").Cells(2,"A")

End Sub

Sheets("工作表名称")这里的工作表名称就是值的来源工作表显示的名称,一般新建的工作表显示为Sheet1,sheet2,sheet3...

cells(1,"A")表示第一行,第“A"列的单元格,也就是A1单元格,以此类推...

 

就知道楼主是想在A列里面查找匹配数据,然后在TextBox2里面显示出来。借上面同志的附件,给你改一个快得!!

温馨提示:内容为网友见解,仅供参考
第1个回答  2013-05-25
追问

这个怎么循环,
如:
TextBox1等于A1 则TextBox2等于b1
TextBox1等于A2 则TextBox2等于b2
TextBox1等于A3则TextBox2等于b3,以此类推

追答

你下载该附件,在TextBox1里面输入A列任何一个值后点击回车键,则会在TextBox2里面显示B列对应的值

追问

运数速度有点慢,能改进嘛?

追答

你需要在textbox1里面输入A列的值后在B列显示对应的值啊,那你的意思需要怎么快呢,说明你需要达到的功能,我再替你修改

追问

功能第二个表格已经实现了 TextBox2的值要过好几秒才能出现

追答

那个几秒是程序执行的时间,因为不知道你A列里面会有多少行,为了全面,我就将程序的循环次数定为65536(最大行数),以保证表格里面无论有多少行数据都可以处理,你可以根据数据的实际行数去修改里面的循环次数

本回答被提问者采纳

vba 给TextBox1一个值 TextBox2立即出现另一个值(值的来源是工作表中...
一般利用Textbox的Change事件,如下:Private Sub TextBox1_Change()If TextBox1.Value = Sheets("工作表名称").Cells(1,"A") Then TextBox2.Value = Sheets("工作表名称").Cells(2,"A")End Sub Sheets("工作表名称")这里的工作表名称就是值的来源工作表显示的名称,一般新建的工作表显示为...

VBA怎么给另一个工作簿的textbox赋值?
感觉是这个对象名写错了。文本框一般都是TEXTBOX+序号的自动名称,没必要自己起个名。

excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或 ...
在Excel VBA中,我们需要确保TEXTBOX1控件只能输入数字,任何非数字字符都会触发错误提示。以下代码片段实现了这一功能:当用户尝试在TextBox1中输入非数字字符时,如汉字或字母,Private Sub TextBox1_BeforeUpdate事件会触发。这段代码会检查输入内容是否为数字,如果不是,它会弹出一个提示框显示"不是数...

ExcelVBA窗体三个文字框textbox1、textbox2、textbox3,textbox3的数值...
Private Sub TextBox2_Change()TextBox3.Value = TextBox2.Value * TextBox1.Value End Sub

Excel 怎么用VBA给窗体上的文本框赋值
UserForm1.TextBox1 = "nihao"

vba窗体中如何获取列表框listbox1选中行的值返回到文本框textbox1。
textbox1.Text=List1.ListIndex + 1 注意,索引号index是从0开始的,因此需要+1得到行号 写在单击或双击事件下面就可以了

...有多个文本框,其中一个是计算其它所有文本框中值的总和
TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)+Val(TextBox3.Text)那么你可以分别双击TextBox1,TextBox2,TextBox3 在其弹出的窗口中输入 Private Sub TextBox1_Change()TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)+Val(TextBox3.Text)End Sub --- Priv...

C#winform 怎样给textBox1一行一行地增加数据
textBox1。Text+= “数据1”+“\\r\\n”;textBox1。Text+= “数据2”+“\\r\\n”;。。。

vba 窗体多个数据 怎么循环填到多个单元格
在 提交按钮 的代码中建立 textbox 的数组(在form的初始化中建立也行),然后就可以循环引用了:Private Sub CommandButton1_Click()Dim a, i, j With Me a = Array(.TextBox1, .TextBox2, .TextBox3, .TextBox4, .TextBox5, _.TextBox6, .TextBox7, .TextBox8, .TextBox9, ....

vba如何获取excel文本框的值,如图鼠标处插入的文本框
录制宏 dim a as string a= ActiveSheet.Shapes.Range(Array("TextBox 1")).TextFrame2.TextRange.Characters.Text

相似回答