Verknüpfung Zelle mit Excel-Form

In excel, setzen wir eine Form, und wir können einen link auf ein Zellen-Wert, indem Sie die Form und die Eingabe der
Zellbezug in der Formel bar. Ich möchte wissen: Wie können wir das tun programmgesteuert. Wie

For Each shape As Excel.Shape In workshet.Shapes
  'is there something like shape.Formula or any method from which I can do the above
   task.         
Next

Hier ist, was ich tun will programmgesteuert

Ist es seit Tagen nun Suche ich es. Brauche wirklich Hilfe, vielen Dank.

InformationsquelleAutor Waqas | 2011-11-18

  1. 5

    Brauchen Sie nicht zu verwenden, Wählen Sie zum anwenden von Formeln zu Formen. Wählen Sie vermieden werden sollten, wo immer möglich, als es bläht code, und kann unbeabsichtigte Folgen haben - beispielsweise auslösende Ereignisse

    Stattdessen arbeiten Sie mit der Formel direkt mit DrawingOBject, sieheFormAppdie auch wird lassen Sie Sie zu manipulieren vorhandenen Formel (ie-add 6 Zelle A2 zu machen, A8, A12, A18 usw.). Der zweite code-routine FormAdd macht diese Einstellung, es funktioniert auf beide zelladressen und Bereiche,

    Sub FormApp()
    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        'formula
         Shp.DrawingObject.Formula = "=A1"
        'range name
        Shp.DrawingObject.Formula = "=RangeName"
    Next
End Sub

Sub FormAdd()
    Dim Shp As Shape
    Dim rng1 As Range
    For Each Shp In ActiveSheet.Shapes
        Set rng1 = Nothing
        If Len(Shp.DrawingObject.Formula) > 0 Then
            On Error Resume Next
            Set rng1 = Range(Shp.DrawingObject.Formula)
            On Error GoTo 0
            If Not rng1 Is Nothing Then Shp.DrawingObject.Formula = "=" & rng1.Offset(6, 0).Address
        End If
    Next
End Sub
    +1 ich war der Hoffnung, jemand würde erkennen das Objekt mit der .Formula Eigenschaft.

    InformationsquelleAutor brettdj

  2. 0

    Die einfachste Möglichkeit ist ein Programm wählen Sie die Form zuerst, dann die Formel anwenden

    Dim Shp as Shape
For each Shp in ActiveSheet.Shapes
    Shp.Select
    Selection.Formula = "=A1"
Next

    Kurs oder wird dieser Fehler, wenn eine Form auf dem Blatt unterstützt nicht die .Formula Eigenschaft

    InformationsquelleAutor chris neilsen

Schreibe einen Kommentar