Vous êtes l'expert Excel dans votre bureau. Quand les collègues ont besoin d'aide avec le tri ou le regroupement , ils viennent à vous . Quand ils ne peuvent pas obtenir leurs tableaux croisés dynamiques pour travailler , ils viennent à vous . Et quand un peu de l'automatisation est nécessaire dans Excel, ils viennent à vous . Aujourd'hui, vous avez besoin d'ajouter un lien hypertexte à une cellule, de sorte que votre solution automatisée allez frapper leurs chaussettes . Cet article va vous dire à quel point rapide et il est facile d'impressionner vos collègues avec des hyperliens . Instructions
1
Identifier la cellule qui a besoin d'un lien hypertexte, sélectionnez la cellule dans votre code VBA.
2
Utilisez la méthode Add de la collection hyperliens ajouter le lien hypertexte à la cellule. L'instruction suivante ajoute le texte " Bonjour tout le monde " à la cellule sélectionnée , hyper- lier ce texte à la page d'accueil Google
ActiveSheet.Hyperlinks.Add Anchor : . = Sélection , Adresse: = _
" http://www.google.com " , TextToDisplay : = " Bonjour tout le monde "
3
Modifier la déclaration de l'étape 2 afin qu'il utilise le texte de la cellule et lien hypertexte vous avez besoin. Si la cellule contient déjà le texte que vous souhaitez utiliser , puis réglez
TextToDisplay : . = Selection.Text
Cela empêchera votre code VBA d'écraser le texte dans chaque cellule
4
Enregistrer votre script VBA et le tester. Assurez-vous que la cellule est correctement hyperliens et contient le texte correct.