Astuces Excel
  1. Astuces Excel
  3. Insérer un caractère en fonction des critères
Intereting Posts
Afficher toutes les exceptions de Excel 2010 Analyser un document Word dans un file excel Rectaganges de dessin sur Excel, ligne entière, "Erreur d'exécution: '1004'" Excel 2007, Copier des lignes d'une feuille à une autre en fonction d'une valeur dans une colonne deuxième tableau du tableau croisé dynamic = GetPivotData extrait la pâte de copy macro de plusieurs classurs pour terminer o la fiche de données Lire et listr datatables exif en utilisant vba Renvoie une gamme de A1 à la cellule dernière dernière utilisée Comment appliquer une formule bit à une gamme à l'aide de VBA Si la valeur de la cellule dans la feuille de calcul (3) correspond à la valeur de la cellule dans la feuille de calcul (2) ET la cellule spécifiée dans la feuille de calcul (2) contient le text donné, replace par Comment convertir les plages en list monotone dans Excel Changer la largeur ou la hauteur de SmartArtNodes Ajouter des valeurs dans la colonne excel pour des valeurs distinctes dans une autre colonne Mysql codant grec pour Stata Nombre d'occurrences de chaque string dans une colonne

Insérer un caractère en fonction des critères

Afficheur pour la première fois ici … Je dois append des tirets aux numéros s'ils répondent à un critère ou à un autre. Sur la base des critères rencontrés, les tirets seraient ajoutés à différents locations.

Les numbers se trouvent dans la colonne A, les valeurs qu'ils vérifient sont dans la colonne B. Je dois vérifier la valeur dans B puis mettre à jour A en conséquence. Résultat final si B = SOC SEC serait 123-45-6789 ou si B = TAXID serait 12-3456789.

Je l'ai ci-dessous, mais je sais qu'il me manque plusieurs composants. Je ne peux pas find la bonne réponse n'importe où. 

Sub AddHyphens() Dim TaxIDType As Ssortingng Dim taxid As Long Dim SOCSEC As Ssortingng Dim TAXIDfield As Ssortingng IF TaxIDType="SOC SEC" then Cstr(Left(TaxID,3)&"-"&Mid(TaxID,4,2)&"-"&Right(TaxID,4) Else IF TaxIDType="TAXID" then Cstr(Left(TaxID,2)&"-"&Right(TaxID,7) End Sub

Voici. Assurez-vous simplement de sélectionner toute la gamme de nombres dont vous avez besoin, converti dans la colonne A. 

 Sub AddHyphens() Dim myRange As Range Dim myCell As Range Set myRange = Selection For Each myCell In myRange If myCell.Offset(0, 1).Value = "SOC SEC" Then myCell.Value = Left(myCell.Value, 3) & "-" & Mid(myCell.Value, 4, 2) & "-" & Right(myCell.Value, 4) ElseIf myCell.Offset(0, 1).Value = "TAXID" Then myCell.Value = Left(myCell.Value, 2) & "-" & Right(myCell.Value, 7) End If Next myCell End Sub