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

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.             '身份证号码
    
11.             .Cells(MYRANGE.Row, 4).Value = "'" & Me.Controls("TEXTBOX" & i).Text
    
12.         End If
    
13.     End With
    
14.     MsgBox "数据更新完成"
    
15. End Sub

复制代码

bdcjm

yuan1231

为什么姓名无法修改