[已解决]求教：采用弹出窗口修改原始表格信息

xzwdk

”产品库信息表“为原始数据表，”未出库“为筛选结果。在”未出库“的筛选结果中想实现双击”出库时间“或者”备注“列中的单元格，能够弹出窗口”userform1“,窗口可以自动读取筛选结果中的对应信息。在弹出窗口中输入出库时间或者备注信息，然后点击”修改“按钮，可以自动实现对”产品库信息表“表中的”出库时间“或者”备注“信息的修改操作。
请老师帮助解决一下。谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-9 10:07

产品库存.rar (17.45 KB, 下载次数: 48)

2013-10-9 10:07 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1.实现窗体显示用工作表事件，
2.窗体初始化时读入当前行的相关数据即可。

xzwdk

谢谢老师指点。程序如何实现呢？

hwc2ycy

产品库存.rar (17.06 KB, 下载次数: 12)

2013-10-9 09:33 上传

点击文件名下载附件

xzwdk

hwc2ycy 发表于 2013-10-9 09:33

谢谢老师的帮助。您的程序实现了对筛选结果的读取和修改，很受启发。我想要的是弹出窗口读取当前值，然后将修改结果写入到sheet1（产品库信息表）中去。应该如何修改程序？谢谢！

hwc2ycy

那我会错题意了，那你就保证序号的维一性，修改时，在SHEET1的A列查找指定序号，找到后写入SHEET1。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim rg As Range
   
3.     With Worksheets("产品库信息表")
   
4.         Set rg = .Range("a:a").Find(what:=Val(Me.TextBox1.Text), Lookat:=xlWhole)
   
5.         If rg Is Nothing Then
   
6.             MsgBox "没有找到指定的序列号"
   
7.             Exit Sub
   
8.         End If
   
9.     End With
   
10.     rg.Resize(, 5) = Array(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value, Me.TextBox4.Value, Me.TextBox5.Value)
    
11.     MsgBox "修改完成"
    
12.     Unload Me
    
13. End Sub
    

复制代码

按钮的代码改下就可以了。

xzwdk

hwc2ycy 发表于 2013-10-9 09:55
那我会错题意了，那你就保证序号的维一性，修改时，在SHEET1的A列查找指定序号，找到后写入SHEET1。

谢谢，老师。

hwc2ycy

建议把TEXTBOX1的LOCK属性改为TRUE，避免修改导致出错。

1. Private Sub CommandButton1_Click()
   
2.     Dim rg As Range
   
3.     Set rg = Sheet1.Columns(1).Find(what:=Val(Me.TextBox1.Text), Lookat:=xlWhole)
   
4.     rg.Resize(, 5) = Array(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value, Me.TextBox4.Value, Me.TextBox5.Value)
   
5.     MsgBox "修改完成"
   
6.     Unload Me
   
7. End Sub

复制代码

hwc2ycy

产品库存.rar (17.45 KB, 下载次数: 48)

2013-10-9 10:07 上传

点击文件名下载附件