如何查找具有匹配值的列并将其分配给用户表单VBA中的文本框1

Question

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

我有

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

当选择下一个时，移动工作表将切换到工作簿中的下一个工作表然后我有功能

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 行的单元格的引用。

基本上，当按下"下一步"按钮时，我会切换工作表，然后查找具有匹配日期的列，然后指向单元格Range(ColumNumber &"50"(并将该值发送到文本框中

• 我也有三个 Cels 列号，50、51 和 52，我想把它们放在用户表单上的文本框中

我所尝试的只是给我关于错误类型的错误

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

谢谢D

Answer 1

因此，您无法创建这样的列范围。它必须是这样的：

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

如果您想在用户表单中显示一些值，那么您可以像这样分配它。

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