Question

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

Answer 1

一般利用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里面显示出来。借上面同志的附件，给你改一个快得！！

Answer 2

追问

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

追答

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

追问

运数速度有点慢，能改进嘛？

追答

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

追问

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

追答

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