VBA Excel 用户窗体和文本框

Question

我有一个问题，但我不知道该怎么做，所以我会在这里发布我的问题。我创建了这个结构：

正如用户表单中显示的标题一样，这就是当我单击按钮 1 (1) 时将打开的内容。因此，这个用户表单将打开，我可以在这些文本框中输入我想要的任何内容，在这种情况下，我只需输入“无论我在这里输入什么，它将显示在按钮 2 用户表单的选项按钮中”。 这就是有点棘手的地方。我想在该文本框中 (2) 键入一个单元格引用，无论我想要什么单元格引用。在本例中，我只需输入 B12。然后我将按下“命令按钮”，该按钮 1 窗口将关闭。 然后我将按下按钮 2 (3)，将会显示：

如图所示，我单击第一个选项，然后单击按钮 ComandButton1，并在单元格 B12 中输入文本“无论我在此处键入什么，它将显示在按钮 2 用户表单的选项按钮中”。

所以我的问题是，如何使该文本框（2）认识到B12是一个单元格，这就是我在按钮2用户表单中选择的任何选项，它将显示在单元格B12中。

我还没有尝试过任何东西，因为我不知道该怎么做。

Answer 1

使用单元格存储所需的值 例如（我在“UF1”和“UF2”之后调用了两个用户表单

模块代码（放置按钮相关代码的地方）

Option Explicit

Sub Button1_Click()

    With New UF1
        .Show
        
        Range("A1").Value = .TextBox1.Value
        Range("A2").Value = .TextBox2.Value
        Range("A3").Value = .TextBox3.Value
    End With
    
End Sub

Sub Button2_Click()

    With New UF2
        .OptionButton1.Caption = Range("A1").Value
        .OptionButton2.Caption = Range("A2").Value
        .Tag = Range("A3").Value
        
        .Show
    End With
    
End Sub

用户表单1代码

Option Explicit

Private Sub CommandButton1_Click()
    With Me
        .Hide
    End With
End Sub

用户表格2代码

Option Explicit

Private Sub CommandButton1_Click()
    With Me
        Select Case True
            Case .OptionButton1
                Range(.Tag).Value = .OptionButton1.Caption
            Case .OptionButton2
                Range(.Tag).Value = .OptionButton2.Caption
        End Select
    End With
End Sub