Zelle Wert zuweisen, basierend auf radio-button-Auswahl

ich versuche, einen Wert zuweisen einer Zelle, wenn der Benutzer einen radio button, der Wert ändert sich je nach radio ausgewählt. Die radio-buttons auf ein Formular, und ich versuche, um den Wert zuzuweisen, die auf ein Blatt namens "Arbeitsbereich"

hier ist der code ich habe 

Private Sub OK_Click()
    'A3 Assignment
    If OpQ1_01_1.Value = True Then
    Sheets("Workpace").Cells("A3").Value = "1"
    ElseIf OpQ1_01_2.Value = True Then
    Sheets("Workpace").Cells("A3").Value = "2"
    ElseIf OpQ1_01_3.Value = True Then
    Sheets("Workspace").Cells(A3).Value = "3"
    ElseIf OpQ1_01_4.Value = True Then
    Sheets("Workpace").Cells("A3").Value = "4"
    ElseIf OpQ1_01_5.Value = True Then
    Sheets("Workpace").Cells("A3").Value = "5"
    ElseIf OpQ1_01_6.Value = True Then
    Sheets("Workpace").Cells("A3").Value = "6"
    End If

soweit ich das sagen kann, sollte es funktionieren, die Platte ist da und es gibt eine Zelle A3, aber ich bekomme immer die Meldung "application-defined or object-defined error", die nicht sagen mir nichts, aber es hebt den weisen Teil des Codes für das radio-Taste I ausgewählt (in diesem Fall die Dritte option)

debug-highlights dieses Stück code, in diesem Fall

Sheets("Workspace").Cells(A3).Value = "3"
Dies ist einer der vielen Fälle, in denen mit Option Explicit Sie oben auf dem Modul hätte geholfen das problem zu diagnostizieren. Die proximale Ursache ist, dass Sie vergessen haben, setzen Sie A3 in Anführungszeichen ( "A3" ), in der Zeile also in der Wirkung, die Sie aufrufen Cells(Empty) die Ihnen, insbesondere die Fehlermeldung. Was Sie aber tatsächlich wollen, ist beschrieben im @L42 Antwort.

InformationsquelleAutor user1787114 | 2014-05-19

  1. 1

    Ändern Cells zu Range wie diese:

    Sheets("Workspace").Range("A3").Value = "3"

    oder wenn Sie wollen, zu bleiben, um zu Cells wie diese:

    Sheets("Workspace").Cells(3, 1).Value = "3"
'~~> where 3 is the row number and 1 is the column number.

    InformationsquelleAutor L42

  2. 1

    Den Namen von dem Blatt zu fehlen scheint, ist ein "s" in deinem code (den Sie eingegeben haben "Workpace" im code anstelle von "Workspace"

    InformationsquelleAutor guest

Schreibe einen Kommentar