[已解决]如何刷新数据

cyj153

如何刷新数据.rar (12.23 KB, 下载次数: 20)

2014-3-5 11:43 上传

点击文件名下载附件
数据修改后，如何再通过窗体下拉莱单中查询到修改后的数据。谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2014-3-5 12:11

我感觉你把简单问题复杂化了.
用range.find就行了.

1. Private Sub ComboBox1_Change()
   
2.      TextBox1.Text = Sheet1.Range("a:a").Find(ComboBox1.Text, , , xlWhole, , xlPrevious).Offset(, 1).Value
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton1_Click()
   
6.     Sheet1.Range("a:a").Find(ComboBox1.Text, , , xlWhole, , xlPrevious).Offset(, 1).Value = TextBox1.Text
   
7.     ComboBox1 = ""
   
8.     TextBox1 = ""
   
9. End Sub
   
10. 
    
11. Private Sub UserForm_Initialize()
    
12.     ComboBox1.RowSource = "sheet1!a2:a" & Sheet1.Range("a65536").End(xlUp).Row
    
13. End Sub

复制代码

跳转到最佳答案楼层

Zipall

我感觉你把简单问题复杂化了.
用range.find就行了.

1. Private Sub ComboBox1_Change()
   
2.      TextBox1.Text = Sheet1.Range("a:a").Find(ComboBox1.Text, , , xlWhole, , xlPrevious).Offset(, 1).Value
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton1_Click()
   
6.     Sheet1.Range("a:a").Find(ComboBox1.Text, , , xlWhole, , xlPrevious).Offset(, 1).Value = TextBox1.Text
   
7.     ComboBox1 = ""
   
8.     TextBox1 = ""
   
9. End Sub
   
10. 
    
11. Private Sub UserForm_Initialize()
    
12.     ComboBox1.RowSource = "sheet1!a2:a" & Sheet1.Range("a65536").End(xlUp).Row
    
13. End Sub

复制代码

ilay

ilay

学习

红雨001

[em29][em26]学习