首页 > 解决方案 > 运行此代码时为什么我的文本框中没有显示任何内容的任何原因?

问题描述

与组合框配合良好,并在 excel 的第一列中显示什么,但在 excel 的第 2 列中的文本框中没有显示任何内容...

我的特定于组合框的代码:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim iStartedRow As Integer
    Dim ITotalRows As Integer

    ITotalRows = ExcelApp.ActiveWorkbook.Sheets(1).Range("a1").Currentregion.Rows.Count

    For iStartedRow = 2 To ITotalRows
        If Me.ComboBox1.Text = COVIDWorksheet.Cells(iStartedRow, 1).text Then
            Me.TextBox1.Text = COVIDWorksheet.Cells(iStartedRow, 2).text

        End If
    Next
End Sub

标签: vb.net

解决方案


推荐阅读