In Excel kann ich mit einem hyperlink auf die Ausführung von vba-Makros?

Ich habe eine Tabelle, die viele Zeilen von Daten. Ich möchte in der Lage sein, um klicken auf eine Zelle ein makro ausführen, die mithilfe der Daten aus dieser Zeile. Da die Anzahl der Zeilen wird sich immer verändern, obwohl ich einen hyperlink für jede Zeile, vielleicht der beste Weg.

   ROW MeterID   Lat    Long   ReadX  ReadY  ReadZ   CoeffA  CoeffB  CoeffC
   2   10f62gs   34.1   33.3   102.2  231.3  382.2   4.34    22.1    0.002
   3   83gs72g   34.4   31.4   109.2  213.1  372.1   2.23    12.7    0.023
   4   43gS128   33.3   32.2   118.8  138.7  241.8   1.94    5.08    0.107

Gibt es eine Möglichkeit, ein vba-makro ausführen durch klicken auf einen hyperlink und in der Lage zu wissen, die Zeile der Zelle, klicken auf den hyperlink?

InformationsquelleAutor Jason | 2015-02-25
  1. 11

    Wird dies für Sie arbeiten

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        MsgBox "Row " & ActiveCell.Row & " is clicked"
End Sub
    InformationsquelleAutor Jeanno
  2. 7

    Ja, Sie können, führen Sie die folgenden Einfachen Schritte zu tun:

    Schritt 1. Wählen Sie die Zelle aus, Wo Sie wollen den Hyperlink
    Schritt 2. Rechter Maustaste –> Hyperlink...
    Schritt 3. Geben Sie die Adresse der Gleichen Zelle, wo Sie sind machen Sie den hyperlink und Geben Sie den Namen für den Link. Siehe das Bild unten:

    Makro zuweisen, um einen Hyperlink

    Schritt 4. Klicken Sie Auf Ok.
    Schritt 5. HyperLink wird erstellt.

    Hinweis: ein Mausklick auf diesen Hyperlink, wird nichts tun, weil es zugeordnet ist, die gleiche Zelladresse.

    Schritt 6. Jetzt Drücken Sie Alt + F11
    Schritt 7. Kopieren Sie den Code unten

    Excel-Makro durch Klicken auf einen Hyperlink

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)  
    'Check if the Target Address is same as you have given  
    'In the above example i have taken A4 Cell, so I am  
    'Comparing this with $A$4  

    If Target.Range.Address = "$A$4" Then  
        'Write your all VBA Code, which you want to execute  
        'Or Call the function or Macro which you have  
        'written or recorded.  
        MsgBox "Write your Code here to be executed"  
        Exit Sub  
    End If  
End Sub

    In dem Obigen Code, die wir vergleichen die Adresse der Zelle, und dann die Ausführung einer Reihe von Code oder die Funktion. Es ist ein weiterer Weg, dies zu tun, auch. Wir können Sie Vergleichen mit dem Ziel Namen und den Code auszuführen. Im obigen Beispiel habe ich den Namen des Hyperlink-Ziel " Meinmakro.

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)  
    'Check if the Target Name is same as you have given  
    'In the above example i have given the Name of the HyperLink  
    'is MyMacro.  

    If Target.Name = "mymacro" Then  
        'Write your all VBA Code, which you want to execute  
        'Or Call the function or Macro which you have  
        'written or recorded.  
        MsgBox "Write your Code here to be executed"  
        Exit Sub  
    End If  
End Sub
    InformationsquelleAutor M M
  3. 0

    Ich denke, anstatt zu gehen durch den Aufwand für das erstellen eines hyperlinks für jede Zelle, Sie wäre besser dran, erstellen Sie ein makro, das auf die Activecell Eigenschaft. Als Nächstes erstellen Sie eine Tastenkombination für das makro zu laufen. Zu tun:

    1. Drücken Sie ALT+F8
    2. Wählen Sie Options
    3. Wählen Sie eine Taste, um die Tastenkombination

    Wenn Sie bereits hyperlinks, die Auslösung eines Makros mit dem Hyperlink_Follow Veranstaltung kann am besten sein. Wenn nicht, dann betrachten Sie meine Empfehlung.

    InformationsquelleAutor user3561813
Schreibe einen Kommentar