Modification des numéros énormes Hyperliens

Divers jageto Février 28, 2016 0 0
FONT SIZE:
fontsize_dec
fontsize_inc

 Wendy a une seule feuille de calcul Excel qui contient plus de 1.200 des hyperliens vers des fichiers TIFF. Excel hoquet et a dû fermer, de sorte que Emily utilisé pour restaurer les fichiers de sauvegarde automatique du fichier précédemment enregistré. Maintenant, tous les liens hypertextes de travail précédemment ne fonctionnent pas. Elle avait les hyperliens vers des images sur un lecteur réseau partagé, mais l'AutoSave se tourna vers les liens hypertextes vers le lecteur C:. Elle se demande si il ya un moyen facile de les résoudre revenir à la part de réseau.

 À première vue, il pourrait sembler que vous pourriez utiliser la recherche régulière Excel et remplacer la fonction pour trouver la désignation du disque dur et le remplacement d'un réseau. Le problème est que cette approche ne dispose que d'une partie du problème, il ne change que la partie affichée de l'hyperlien, pas le lien hypertexte sous-jacent lui-même. La seule façon d'obtenir le lien hypertexte lui-même est grâce à l'utilisation d'une macro.

 En supposant que tous les liens qui doivent changer sur la même feuille de calcul, vous pouvez utiliser la macro suivante:

 Sous FixHyperlinks1
 Dim semaines comme feuille de travail
 Hl Dim comme un lien hypertexte
 As String Dim vendu
 As String Dim Snew

 Set semaines = feuille active
 Vendu = "c: \"
 Snew = "C: \ Network \"
 Pour chaque hl En
 = Remplacer
 Hl Suivant
 End Sub

 Tout ce que vous avez à faire est de changer les valeurs des variables dans les ventes et Snew. Si vous obtenez une erreur lorsque vous essayez d'exécuter l'erreur de macro avec la ligne avec un changement d'emploi, il est parce que la fonction Remplacer ne sont pas disponibles dans toutes les versions d'Excel. Dans ce cas, utilisez la macro suivante à la place:

 Sous FixHyperlinks2
 Dim semaines comme feuille de travail
 Hl Dim comme un lien hypertexte
 As String Dim vendu
 As String Dim Snew

 Set semaines = feuille active
 Vendu = "c: \"
 Snew = "C: \ Network \"
 Pour chaque hl En
 =
 Vice-
 Hl Suivant
 End Sub

 Notez que la seule différence est l'utilisation de la fonction de feuille de dégagement.

 Conseils Excel est votre source pour la formation Microsoft Excel rentable. Cette astuce applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez voir une version de cette astuce pour l'interface ruban d'Excel peuvent être trouvés ici: Modification grand nombre de liens hypertexte.

(0)
(0)