[已解决]利用窗体查询表中数据，并可对数据进行修改，然后返回到原数据表中

w920301

查询的功能我已经实现，可是如何将查询到的数据进行修改，在返回到原数据表中，不会操作，求解各位老师，大牛！ 先在这谢谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-6-23 11:02

1. Private Sub CommandButton3_Click()
   
2.     Dim MYRANGE As Range
   
3.     Dim i As Integer
   
4.     With Sheets("sheet1")
   
5.         Set MYRANGE = .Range("A2", .Range("A65536").End(xlUp)).Find(TextBox1.Value)
   
6.         If Not MYRANGE Is Nothing Then
   
7.             For i = 1 To 12
   
8.                 .Cells(MYRANGE.Row, i).Value = Me.Controls("TEXTBOX" & i).Text
   
9.             Next i
   
10.             '身份证号码
    
11.             .Cells(MYRANGE.Row, 4).Value = "'" & Me.Controls("TEXTBOX" & i).Text
    
12.         End If
    
13.     End With
    
14.     MsgBox "数据更新完成"
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

取值是textbox.text=单元格的值
你写回就是单元格的值=textbox.text
反向操作罢了。

w920301

hwc2ycy 发表于 2014-6-23 09:35
取值是textbox.text=单元格的值
你写回就是单元格的值=textbox.text
反向操作罢了。

大牛，可否编程操作一番，我不是特别明白这个，谢谢了

hwc2ycy

原来取单元格的值不是这样嘛。
            For i = 1 To 12
                Me.Controls("TEXTBOX" & i) = .Cells(MYRANGE.Row, i)
            Next i
如果你要做写回单元格的操作,把=号两边的互换。
            For i = 1 To 12
                 .Cells(MYRANGE.Row, i).value=Me.Controls("TEXTBOX" & i) .text
            Next i

w920301

hwc2ycy 发表于 2014-6-23 10:07
原来取单元格的值不是这样嘛。
            For i = 1 To 12
                Me.Controls("TEXTBOX" & i ...

恩 刚晕了，我给弄出来了，可是更新后，返回到原表的数据的格式发生了变化，变成了左对齐，这个咋解决啊

5201314

1. Private Sub CommandButton3_Click()
   
2.     Dim MYRANGE As Range
   
3.     Dim i As Long
   
4.     With Sheets("sheet1")
   
5.         Set MYRANGE = .Range("A2", .Range("A65536").End(xlUp)).Find(TextBox1.Value)
   
6.         If Not MYRANGE Is Nothing Then
   
7.             For i = 1 To 12
   
8.                 .Cells(MYRANGE.Row, i).Value = Me.Controls("TEXTBOX" & i).Text
   
9.             Next
   
10.         End If
    
11.     End With
    
12. End Sub

复制代码

hwc2ycy

1. Private Sub CommandButton3_Click()
   
2.     Dim MYRANGE As Range
   
3.     Dim i As Integer
   
4.     With Sheets("sheet1")
   
5.         Set MYRANGE = .Range("A2", .Range("A65536").End(xlUp)).Find(TextBox1.Value)
   
6.         If Not MYRANGE Is Nothing Then
   
7.             For i = 1 To 12
   
8.                 .Cells(MYRANGE.Row, i).Value = Me.Controls("TEXTBOX" & i).Text
   
9.             Next i
   
10.         End If
    
11.     End With
    
12.     MsgBox "数据更新完成"
    
13. End Sub

复制代码

w920301

5201314 发表于 2014-6-23 10:39

我成功弄出来之后，返回到表中的格式发生了变化，如何保证返回的格式不发生变化呢？

w920301

hwc2ycy 发表于 2014-6-23 10:41

更新完成后如何保证数据格式不发生变化呢

hwc2ycy

w920301 发表于 2014-6-23 10:51
更新完成后如何保证数据格式不发生变化呢

我刚没考虑到身份证号码这些。
你就身份证的加个 ' 号连接下吧。其余的貌似不会有变化。