Astuces Excel
  1. Astuces Excel
  3. Entrer '=' comme premier caractère dans une cellule
Intereting Posts
Colonne et lignes VBA Excel Sum Compléter les lignes en double, puis supprimer tous les duplicates sum à deux conditions Insertion de lignes supplémentaires aux exigences Format Excel 2003 XML n'ouvre pas automatiquement dans Excel 2010 x64 Copier les valeurs d'une colonne qui correspond à une ID à une nouvelle feuille en créant de nouvelles colonnes pour chaque valeur via EXCEL VBA Comment puis-je faire fonctionner ce code efficacement, il faut maintenant très longtime qu'il exécute le code Lorsque vous lisez CSV avec `pd.read_csv`, les décimales changent (Pandas) Tableau – lettre de search de la catégorie Ordre des tabs de contrôle ActiveX dans une feuille de calcul Excel – est-il possible d'accéder / contrôler cela à partir d'un script? VBA – Data Counting Python Binary Masortingx to Excel Apache poi Excel set lectureorder droite-gauche Envoi du file Excel en pièce jointe dans sql Comment afficher le diagramme dans le classur

Entrer '=' comme premier caractère dans une cellule

J'ai une macro VBA qui s'exécute et doit souvent avoir "=" comme premier caractère dans une cellule. Les cellules sont remplies de valeurs telles que «= domestique», «<> domestique», etc.

À l'heure actuelle, je replace "=" par "IS" en tant que quickfix, mais j'aimerais que je puisse garder le signe égal, pour la cohérence avec les cellules qui utilisent des symboles tels que "<>". Lorsque j'essaie, Excel pense que c'est une fonction avec une mauvaise syntaxe. J'utilise Cells(row, col).Value = x , où x est la string qui peut ou non commencer par "=", pour entrer datatables.

Ajouter une seule citation ' au début de la string: 

 Cells(row, col).Value = "'" & x

et vous obtiendrez ce que vous voulez.

C'est une méthode alternative 

 Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub Sous test () Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub Dim myRange As Range Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub Définir myRange = Plage ("C: C") 'Colonne "C" Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub myRange.NumberFormat = "@" 'Définir le format de la cellule de la plage vers le text brut Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub myRange.Cells (1, 1) = "= Domestic" Sub Test() Dim myRange As Range Set myRange = Range("C:C") 'Column "C" myRange.NumberFormat = "@" 'Set cell format of range to plain text myRange.Cells(1, 1) = "= Domestic" End Sub

Par rapport à la réponse de manji, il ne fournit aucune amélioration de la performance ou de la taille … tout simplement différent.