Astuces Excel
  1. Astuces Excel
  3. Ajouter une string à une string en gras dans VBA
Intereting Posts
Format de numéro personnalisé Excel sur le graphique Axe Calculez la gamme Excel lorsque l'user sélectionne les nombres de lignes et les numéros de colonne Utilisation d'une fonction Linest dans une boucle nestede Python – search le numéro de ligne d'une image de données écrite pour excel Macro Excel Visual Basic pour merge des cellules dans une zone sélectionnée Chargement des valeurs Excel sur Teradata Plusieurs occurrences de valeurs MAX dans excel – select la valeur MAX qui a la valeur la plus élevée dans la cellule adjacente Excel Définissez une plage basée sur une valeur de cellule API Youtube et excel – récupère le nom d'user de la cellule (URL video) Modification de la structure des variables pour éviter la variable () () structure Conversion d'un numéro de série en date Générer automatiquement un file csv de localization pour Excel en C ++ Erreur VBA (9) Abonnement hors gamme Comment ouvrir deux files Excel dans plusieurs moniteurs dans Windows 7 pro excel 2010? Programmation Windows: comment rendre possible la mise à l'échelle de Windows?

Ajouter une string à une string en gras dans VBA

J'ai une cellule qui contient le text " Collar Lot # " et j'aimerais append une string à la fin de celle-ci qui n'est pas en gras. Un exemple serait " Collar Lot # 23456 \ 34567 \ 45678". La tentative de mon code ci-dessous rend la string entière en gras, ce qui se traduit par " Collar Lot # 23456 \ 34567 \ 45678 " 

With Workbooks(ThisWorkbook.name).Worksheets(1) ... .Cells(7, 5).value = "Collar Lot # " & "23456\34567\45678" End With

Comment puis-je m'assurer que le "23456 \ 34567 \ 45678" n'était pas gras? 

 .Cells(7, 5).Characters(Start:=14).Font.FontStyle = "Regular"

Le button Enregistrer la macro sur l'onglet Développeur du ruban est très utile pour find quelque chose comme ça.

Vous devriez spécifier le formatting en fonction de la position des caractères en utilisant quelque chose comme: 

 .Cells(7, 5).Characters(Start:=1, Length:=13).Font.FontStyle = "Bold"