從用戶表單填充數據複選框和可選按鈕

Question

我正在創建一個用戶表單，我希望能夠填充數據選項卡中的值以及默認爲某些值。 我想我有文本框和組合框，但無法找到使用多個可選按鈕生成數據到一個單元的信息取決於選擇。

從這個例子中，我的標準是「二級保險」我該如何去把它們全部鏈接起來，以便讓單元格b1填充選定的選項？ 我完全猜測，但我認爲複選框更簡單一些，如果選中則爲true，如果未選中則爲false。 到目前爲止，我所看到的只是一個代碼，用於填充指定文本/組合框的值的單元格，並且正好針對每個需要爲其設置條件的列重複一次。

Private Sub CommandButton1_Click() 
    Dim LastRow As Long, ws As Worksheet 

    Set ws = Sheets("Sheet1") 
    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row 
    ws.Range("A" & LastRow).Value = TextBox1.Text 'Adds the TextBox1 into Col A & Last Blank Row 
    Me.Hide 
End Sub 

框列表

Private Sub UserForm_Initialize() 
ComboBox1.Value = ("N/A") 
ComboBox1.List = Split("N/A Yes No") 
End Sub 

請讓我知道如果我缺乏信息或如何附上我的測試工作，希望你能看到的畫面（我不能我的工作服務器上）。 提前感謝任何和所有的教育。

Answer 1

如果選項按鈕的標題是一樣的，你要爲單元格文本，那麼這樣的事情可能要存儲它是什麼：

Private Sub CommandButton1_Click() 
    Dim LastRow As Range 
    With Sheets("Sheet1") 
    Set LastRow = .Rows(.Cells(Rows.Count, 1).End(xlUp).Row + 1).Cells 
    If OptionButton1 Then 
     LastRow(2).Value2 = Me.OptionButton1.Caption 
    ElseIf Me.OptionButton2 Then 
     LastRow(2).Value2 = Me.OptionButton2.Caption 
    Else 
     LastRow(2).Value2 = Me.OptionButton3.Caption 
    End If 
    End With 
End Sub 

這將所需的細胞的值設置爲您選擇的選項按鈕的標題。

加載數據早在用戶窗體，您可以使用這樣的事情：

Sub Load_in(Row_To_Load As Long) 
    Dim MyRow As Range 
    With Sheets("Sheet1") 
    Set MyRow = .Rows(Row_To_Load).Cells 
    If MyRow(2).Value2 = OptionButton1.Caption Then 
     OptionButton1.Value = True 
    ElseIf MyRow(2).Value2 = OptionButton2.Caption Then 
     OptionButton2.Value = True 
    Else 
     OptionButton3.Value = True 
    End If 
    End With 
End Sub 

對於這一點，我認爲該名稱沒有被改變。同樣，如果沒有選擇，第三個選項（N/A）將被使用。加載它也是一樣。如果你不想要，只需將Else部分更改爲ElseIf，以便看起來像前兩個選項。