Astuces Excel
  1. Astuces Excel
  3. WrapText, l'alignment vertical et les bordures de remplissage d'une gamme de cellules fusionnées dans VBA?
Intereting Posts
Besoin d'aide pour créer un graphique dynamic Lecture du file Excel Excel à l'aide d'EPPlus Le code VBA Excel 2010 est bloqué lorsque UserForm est affiché Est-il possible de copyr une ligne (avec des données, une fusion, un style) dans Excel en utilisant Epplus? Fichier introuvable lors de l'exécution du projet depuis le browser Le code ne descendra pas sur les cellules disponibles Récupérer un DropDown avec Excel Spécial Keys pour l'atsortingbution de raccourci dynamic Retirer les parties de la string dans excel Données de changement de zone de list déroulante Excel dans une cellule Excel Count IF 3 conditions s'appliquent Formule excel vba pour les inputs en double Lire la valeur de colors embeddede d'Excel EXCEL: Lien vers le contenu de la cellule à l'intérieur de LINE () ID unique conditionnelle pour chaque logging excel Redimensionner Listobject Table dynamicment avec VBA

WrapText, l'alignment vertical et les bordures de remplissage d'une gamme de cellules fusionnées dans VBA?

Après avoir supprimé les liens de la gamme sélectionnée, je souhaite renvoyer les cellules à leur style / format original. J'essaie de le faire en enveloppant le text si nécessaire, en ajoutant une bordure et en alignant le text en haut. Cependant, cela ne me permet pas de le faire car la sélection de la gamme est fusionnée. Aucune suggestion? 

Sub RemoveLink() Dim lnk As Range For Each lnk In Selection.Cells lnk.Hyperlinks.Delete lnk.VerticalAlignment = xlVAlignTop lnk.WrapText = True With Selection.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Next MsgBox "Links for selected range have been removed." End Sub