Macro Excel: comment faire pour changer toutes les hauteurs de ligne, MAIS si la cellule.valeur = gras font de la hauteur de la cellule de grand?

Je suis en train de travailler sur une longue liste de données (Colonne B) qui a été formaté à l'aide de gras et les retraits. Le gras cellules contiennent les titres/noms de catégorie et le retrait des valeurs des cellules sont les sous-catégories.

Les hauteurs de ligne sont tous sur la place. Il doit avoir été de 10,5 pour tout, et le gras cellules/lignes 15. Je peux tout changer à 10,5, mais là j'ai besoin de passer un peu de temps en faisant défiler la liste modifiant le gras des hauteurs de ligne. J'ai utilisé le format de peintre, mais c'est une longue liste, et je n'ai pas envie de passer autant de temps sur cette partie du processus. Et maintenant, je sais que je vais devoir le faire pour un autre 30 documents.

Quelqu'un aurait-il un moyen plus rapide de faire cela?

InformationsquelleAutor RocketGoal | 2010-09-01
  1. 5
    Sub setHeights()
Dim targetRange As Range
Dim targetCell As Range

    Set targetRange = Range("B:B")
    For Each targetCell In targetRange
        If Not IsEmpty(targetCell) Then
            If targetCell.Font.Bold Then
                targetCell.RowHeight = 15
            ElseIf targetCell.Font.Superscript Then
                targetCell.RowHeight = 12.75
            Else
                targetCell.RowHeight = 10.5
            End If
        End If
    Next targetCell
End Sub

    Vous souhaiterez peut-être modifier Range("B:B") à quelque chose comme Table1.Range("B1:B255")

    • Fonctionne comme un charme, et maintenant, je connais la procédure, je pense que j'ai d'autres choses que je peux faire avec elle. Merci.
    • Légère add-on: si je voulais ajouter un troisième critère pour le SI, comme si l'Exposant. Puis-je ajouter un autre SI et EndIF?
    • La commande est: If .. Then (newline), ElseIf ... Then (newline), Else (newline), End If. Vous pouvez également imbriquer des Ifs tant que vous commencez une nouvelle ligne après Then et à la fin du bloc avec End If.
    • Merci. Je vais avoir un aller.
    • Juste un dernier add-on: Est-ce correct? ElseIf targetcell.La police.en exposant = Vrai Alors Targetcell.RowHeight = 12.75 Ne voulais pas poser une question en aout de cette syntaxe question. Merci encore pour votre temps.
    • J'ai mis ton code entre les if et else et a ajouté une nouvelle ligne après la Ensuite et il a bien fonctionné. Je ne vois pas de problèmes. Btw. vous n'avez pas besoin de la = True comparaison.
    • Merci, je vais vérifier. De toute façon, j'ai soulevé une autre question - se référant à ce que je suis à chasser, comment reconnaître les sauts de ligne ainsi. Et je ne voulais pas vous des réponses supplémentaires à être perdu dans les commentaires.
    • Il travaille pour exposant les cellules. Mais, dans ma liste, malheureusement, le caractère en exposant n'est qu'une partie de l'ensemble du texte (le nombre à la fin de la phrase). Donc, c'est de ne pas en faire de 12,75 que ce n'est pas tout en exposant. Je vais l'ajouter à mon autre question

    InformationsquelleAutor marg
  2. 0

    Plutôt que de définir la plage comme indiqué ci-dessus,
    Ensemble targetRange = Range("B:B")

    Essayez comme ceci:
    Ensemble TargetRange = Range("B1", Range("B65536").End(xlUp))

    • Bienvenue DONC. Veuillez vérifier votre code de mise en forme. Je pense que vous voulez ajouter une ligne supplémentaire ou deux pour obtenir pour formater correctement (DONC ne me permet pas de faire de la modifier, car il est trop petit edit).
    InformationsquelleAutor Brian