如何找到具有匹配值的列并将其分配给用户表单中的 textbox1 VBA

Question

我在将数据从匹配的单元格到当前日期加载到用户表单中的 texbox 时遇到问题

我有

Private Sub NSheet_Click()
    MoveSheet (1)
    txtBox2.Text = "1st: " & " 2nd: " & " 3rd: "
End Sub

and when next is selected moveSheet will switch to the next sheet in the workbook 然后我有功能

Sub FindtheDay()
    Dim rFind As Range
    Dim kolona As Long
    Dim today As Date
    today = Date

    With ActiveSheet.Range("F2:AJ2")
        Set rFind = .Find(What:=today, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
        If Not rFind Is Nothing Then
            kolona = CStr(rFind.Column)
            KolLN = kolona
        End If
    End With
End Sub

正在查找与当前日期匹配的单元格（仅限日期）

然后我需要该列编号作为在找到它的单元格下方 48 行的单元格的参考。

basicli，当按下 Next 按钮时，我希望它切换 sheet，然后找到具有匹配日期的列，然后指向单元格 Range(ColumNumber & "50") 并将该值发送到文本框

我还有三个 cels ColumnNumber、50、51 和 52，我想将它们放入用户表单的文本框中

我试过的都是关于错误类型的错误

我也在使用 public 变量，因为其中一些我需要其他子程序

谢谢， D

Answer 1

所以你不能像那样创建列范围。它必须是这样的：

.Range(Columns(1), Columns(50))

如果你想在用户表单中显示一些值，那么你可以通过像这样处理它来分配它。

Sub Test() 
UserForm1.TextBox1.Text = Worksheets("Sheet1").Range("A1").Value
UserForm1.Show
End Sub

如何找到具有匹配值的列并将其分配给用户表单中的 textbox1 VBA

How to find column with matching value and assign it to the textbox1 in user form VBA

excel

vba

reference

cell

userform