将数据写入工作表

Question

更新：问题在列D包含值时消失，而在包含公式时出现。

我的excel用户窗体包含几个文本框和组合框。它与sheet1上的数据表连接。例如，用户可以在textbox1中键入项目名称，按Enter键并从listbox1的数据表中获取具有该名称的所有项目。

列表框结果：

选择项目后，用户可以通过更改文本框的值并按“重写数据”按钮来重写表中的数据。

重写数据：

现在是问题。在数据表中重写数据后，单击列表框项我看不到任何更改。列表框中似乎不再存在已被重写的项目。但是关闭并打开userform后，一切正常。有什么建议吗？

用户表单问题：

下面的完整代码。云中的原始文件：File unprotected

Public Property Get ws() As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
End Property

搜索部分

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim i As Long
Dim arrList As Variant

If KeyCode = 13 Then
Me.ListBox1.Clear
If ws.Range("D" & ws.Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox1.Value) <> vbNullString Then
arrList = ws.Range("D6:D" & ws.Range("D" & ws.Rows.Count).End(xlUp).Row).Value2
For i = LBound(arrList) To UBound(arrList)
    If InStr(1, arrList(i, 1), Trim(Me.TextBox1.Value), vbTextCompare) Then
        Me.ListBox1.AddItem arrList(i, 1)
   End If
Next i

End If
If Me.ListBox1.ListCount = 1 Then Me.ListBox1.Selected(0) = True

End If
End Sub

列表框点击部分

Private Sub ListBox1_Click()

Dim t As Integer, Lastrow As Long

Dim cCont As control
For Each cCont In Me.Controls
If TypeName(cCont) = "Image" Then
cCont.Visible = False
End If
Next cCont

Me.TextBox1.Value = ListBox1.Value

Lastrow = ws.Cells(Rows.Count, ws.Range("tbl[Help]").Column).End(xlUp).Row
For t = 6 To Lastrow
If ws.Cells(t, ws.Range("tbl[Help]").Column).Value = (Me.TextBox1) Or _
ws.Cells(t, ws.Range("tbl[Help]").Column).Value = Val(Me.TextBox1) Then


If ws.Cells(t, ws.Range("tbl[Status]").Column).Value = "-7" Then Image4.Visible = True And Image3.Visible = False And Image2.Visible = False And Image1.Visible = False
If ws.Cells(t, ws.Range("tbl[Status]").Column).Value = "1" Then Image2.Visible = True And Image4.Visible = False And Image3.Visible = False And Image1.Visible = False
If ws.Cells(t, ws.Range("tbl[Status]").Column).Value = "2" Then Image3.Visible = True And Image4.Visible = False And Image2.Visible = False And Image1.Visible = False
If ws.Cells(t, ws.Range("tbl[Status]").Column).Value = "3" Then Image1.Visible = True And Image4.Visible = False And Image2.Visible = False And Image3.Visible = False


Me.TextBox2 = ws.Cells(t, ws.Range("tbl[Plant]").Column).Value
Me.TextBox8 = ws.Cells(t, ws.Range("tbl[Name]").Column).Value
Me.TextBox9 = ws.Cells(t, ws.Range("tbl[Code]").Column).Value
Me.ComboBox3 = ws.Cells(t, ws.Range("tbl[Color]").Column).Value
Me.ComboBox4 = ws.Cells(t, ws.Range("tbl[Status]").Column).Value
Me.ComboBox2.Value = ws.Cells(t, ws.Range("tbl[Department]").Column).Value
Me.ComboBox3.Value = ws.Cells(t, ws.Range("tbl[Stage]").Column).Value
Me.ComboBox18 = ws.Cells(t, ws.Range("tbl[Manager]").Column).Value

End If
Next t

End Sub

写入数据部分

Private Sub CommandButton51_Click()

Dim lrCD As Long
Dim i As Long, Lastrow As Long


With ws
Lastrow = .Cells(Rows.Count, .Range("tbl[Help]").Column).End(xlUp).Row
For i = 6 To Lastrow
If .Cells(i, .Range("tbl[Help]").Column).Value = (Me.TextBox1) Or _
.Cells(i, .Range("tbl[Help]").Column).Value = Val(Me.TextBox1) Then

.Cells(i, .Range("tbl[Department]").Column).Value = Me.ComboBox2.Value
.Cells(i, .Range("tbl[Stage]").Column).Value = Me.ComboBox3.Value
.Cells(i, .Range("tbl[Color]").Column).Value = ComboBox4.Text
.Cells(i, .Range("tbl[Plant]").Column).Value = TextBox2.Text
.Cells(i, ws.Range("tbl[Manager]").Column).Value = Me.ComboBox18.Value

End If
Next i
End With

MsgBox "Success", , "Results"

End Sub