[已解决]求助能否每点一次单元格都会刷新一次窗口数据。

qinhuan66

求助能否每点一次单元格都会刷新一次窗口数据。
比如说连续点单元格的时侯先多少再点多可以，如果先点多再点少的话。多的部分不会消失。要退出重新点过。
如果每次点了退出每次都是正常的，没问题。
求助.zip (21.53 KB, 下载次数: 23)

2014-11-4 15:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-4 15:56

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 3 And Target.Row > 10 Then
   
3.         Unload 单据录单窗口
   
4.         单据录单窗口.Show 0
   
5.         Dim arr
   
6.         arr = Split(Target.Value, "")
   
7.         For i = LBound(arr) To UBound(arr)
   
8.             单据录单窗口.Controls("textbox" & i + 1).Text = arr(i)
   
9.         Next
   
10.     End If
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 3 And Target.Row > 10 Then
   
3.         Unload 单据录单窗口
   
4.         单据录单窗口.Show 0
   
5.         Dim arr
   
6.         arr = Split(Target.Value, "")
   
7.         For i = LBound(arr) To UBound(arr)
   
8.             单据录单窗口.Controls("textbox" & i + 1).Text = arr(i)
   
9.         Next
   
10.     End If
    
11. End Sub
    

复制代码

hwc2ycy

窗体加载后，如果没有卸载，数据自然会一直保留。
如果不想卸载的话，就得先清除原有所有TEXTBOX中的数据，再来加载新数据。

hwc2ycy

传上来的附件应该是没有修改显示相关信息的那个文件，自己再参考之前的，再加上那三行代码吧。

Select

是楼主附件有什么问题吗？老出这个提示，要改下什么吗