Makro zum einfügen von hyperlinks basierend auf bestimmten eingegebenen text in Zelle

Arbeiten auf eine Inspektion-Checkliste
Benutzer angewiesen eingeben, "Ok" oder "X" in der Zelle.
Blatt Spalten sind die Monate und die Zeilen sind die Komponenten geprüft. Wenn der Benutzer ein "X", ich will, dass die Zelle automatisch zu ändern, um einen hyperlink mit der Zelle noch die Anzeige ein "X" wird Der hyperlink muss den Nutzer zu Tabelle2 in der Arbeitsmappe, wo Sie werden geben Sie Informationen über die Ausnahme. Muss für mehrere Spalten.
Hier ist, was ich habe, aber es funktioniert nicht. Vielen Dank für jede Hilfe, die Sie haben könnten.

Sub Exceptions()
'
' Exceptions Macro

' Macro recorded 12/9/2010 by
'

'
If ThisWorkbook.Sheets("Inspection").Range("B9").Range("B100").Value = "X" Then
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Exceptions!A1", TextToDisplay:="X"


End If

End Sub
InformationsquelleAutor PikeCoAL | 2010-12-09
  1. 0

    Dem folgenden code wird ein hyperlink auf Blatt-von Ausnahmen Bereich A1 wenn ein Benutzer ein 'x' oder 'X' in jeder Zelle irgendwo in Blatt 1:

    Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "x" Or Target = "X" Then
    Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:="Exceptions!A1", TextToDisplay:=Target.Value
End If

End Sub

    Einige Dinge zu beachten:

    1. Dieser code muss sich in der Worksheet_Change Veranstaltung von Blatt 1
    2. Wenn Sie nur wollen, fügen Sie hyperlinks auf bestimmte Spalten /Zeilen, dann müssen Sie den code aktualisieren, oben. Lassen Sie mich wissen, wenn Sie Hilfe benötigen, mit dem Kommentar-Funktionalität, die auf der Unterseite von diesem post

    Update - limit hyperlinks auf bestimmte Zeilen /Spalten

    Wenn Sie einschränken möchten, die hyperlinks zu bestimmten Bereichen der code dann verwenden Sie diesen code:

    Private Sub Worksheet_Change(ByVal Target As Range)
Dim rangeLimit As Range

//Set you rangeLimit accordingly. Examples shown below...

Set rangeLimit = Range("A1:A10") //Only allow hyperlinks in range A1 to A10
Set rangeLimit = Range("A1:A10,B1:B5") //Only allow hyperlinks in range A1 to A10 and B1 to B5
Set rangeLimit = Range("A:A,C:C") //Only allow hyperlinks in columns A and C

If Not Intersect(rangeLimit, Target) Is Nothing Then
    If Target = "x" Or Target = "X" Then
         Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:="Sheet2!A1", TextToDisplay:=Target.Value
    End If
End If

    End Sub

    • Dies funktioniert Super. Ich möchte die Begrenzung auf bestimmte Zeilen oder Spalten. Jede Hilfe wäre sehr geschätzt. Danke!!!!
    • Gib mir 30 Minuten und dann werde ich die update-code, um Ihnen zu helfen
    • Keine Eile. Danke für Eure Hilfe. Ich bin begeistert über das erhalten dieser Arbeit.
    • nur jetzt aktualisiert...
    • Absolut perfekt. Danke nochmal für deine Hilfe. Ich wirklich zu schätzen.
    • Lief in ein kleines problem. Wenn ich versuche, fügen Sie mehrere Zellen, einen Bereich, in dem code unten bekomme ich einen run-time error 13, type mismatch. Die Zellen in Bereich müssen möglicherweise andere Daten als X, aber ich will nur die hyperlinks angezeigt, wenn in der Zelle X.
    • Private Sub Worksheet_Change(ByVal Target As Range) Dim rangeLimit Als Range rangeLimit = Range ("B9:B37,C9:C37,D9:D37,E9:E37,F9:F37,G9:G37,H9:H37,I9:I37,J9:J37,K9:K37,L9:L37,M9:M37") If not Intersect(rangeLimit, Ziel) Ist Nichts Dann If Target = "x" Or Target = "X" Dann Ziel.Hyperlinks.Add Anchor:=Target, Address:=""Unteradresse:="Ausnahmen!!!A1", TextToDisplay:=Ziel.Wert End If End If End Sub

    InformationsquelleAutor Alex P
Schreibe einen Kommentar