Question Macro pour aider le dernier caractère en exposant de nombreuses lignes dans une seule colonne


J'ajoute des notes de bas de page (en ajoutant toujours des notes de bas de page) à un tableau et j'aimerais vraiment pouvoir automatiser le caractère répétitif de la transformation de mes symboles en exposant.

Actuellement, c’est:> entrez la cellule> mettez en surbrillance le dernier caractère> cliquez sur la case Police (version 2007) pour ouvrir les options d’utilisation d’exposant> cocher la case exposant> cliquez sur OK> et passez à la suivante.

Chacun d'entre vous a des idées sur la façon dont je peux dire:> regardez dans la colonne A jusqu'à la ligne 400 où> vous trouvez que "Symbol" crée la dernière charte de cette chaîne (le sysmbol en fait) en exposant> passez à la suivante.

J'ai essayé d'enregistrer certaines de mes actions mais celles-ci sont en exposant FAUX. Je dois donc faire quelque chose de mal.

Des idées ou des exemples sur la façon de procéder?


2
2018-06-22 13:02


origine


Pouvez-vous poster le code vba que vous avez déjà construit / généré? Et dites-nous précisément où cela ne va pas (exposant False ou autre)? Cela nous aiderait à vous aider. - JMax
J'ai supprimé le code tel qu'il était généré par l'enregistreur de macros. Donc très spécifique aux cellules. Je pourrais le créer à nouveau et l'ajouter à la publication si vous le souhaitez? - RocketGoal
On dirait que Lance Roberts a répondu avec son propre code. Nous ferions mieux de commencer la discussion de son vba - JMax


Réponses:


Créez une macro qui déclenchera l'événement WorksheetChange, puis effectuez votre test pour votre symbole, puis changez-le en exposant s'il existe. Cela se déclenchera chaque fois que vous changez de cellule:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then
    Exit Sub
  Else
    If Right(Target.Value, 1) = CHR(128) Then
      Target.Characters(Start:=Len(Target.Value), _
                        Length:=1).Font.Superscript = True
    End If
  End If
End Sub

1
2018-06-22 13:39



Salut. Si je change <symbole> en <€>, il met en évidence la ligne en rouge et me donne le message "expression attendue". Des idées? - RocketGoal
@Mike, vous ne pouvez pas utiliser le < Bien sûr, des symboles ont été ajoutés pour que vous sachiez que vous devez insérer la chaîne souhaitée. Vous pouvez essayer des guillemets, mais si vous connaissez toujours votre symbole, j'utiliserais probablement la valeur CHR () qui fonctionne pour il (bien que ce symbole non-ascii puisse ne pas en avoir un). - Lance Roberts
Merci. Je vais essayer des citations et ensuite chercher le caractère CHAR. Beaucoup apprécié. - RocketGoal
Semble bogue pour les moments sur les cellules fusionnées. Est-ce que je peux faire en sorte que cette fonction examine une plage particulière (A5: A500)? - RocketGoal
Mon but est de construire quelques fonctions imbriquées qui recherchent des symboles spécifiques et peuvent accélérer cet exercice d'esprit. Mais j'essaie de voir comment quelque chose ressemble à cela (comprendre si possible). L'enregistreur de macros était très spécifique à une cellule et long juste pour une cellule, ce qui était sans boucle sur toute une gamme. - RocketGoal