2017-06-18 1 views
-2

J'ai trouvé ce vba il y a quelques mois et très utile. Merci à Edward Bagby.Surligner les résultats modifiés

Maintenant, je veux savoir comment mettre en évidence les résultats modifiés? Pas le texte, mais seulement l'intérieur de la cellule. Est-ce que quelqu'un peut m'aider?

J'ai essayé d'ajouter après rngName.Copy Destination:=Worksheets("Sheet2").Range("E" & i) quelques solutions comme celles-ci:

ActiveSheet.Cells.Interior.ColorIndex = red 

ou

rng1.Interior.ColorIndex = red 

mais rien à changer.

Merci d'avance!

+1

Je vote pour fermer cette question [hors-sujet] (https://stackoverflow.com/help/on-topic) parce que « * maintenant, je veux savoir comment mettre en évidence le changé résultats * 'n'est pas ** un problème de programmation spécifique et l'ajout de débris narratifs comme' 'Merci d'avance!' 'ne fait rien pour changer cela. – Jeeped

+0

Je suis actuellement à la recherche d'une solution. Mais si j'écris quelque chose, je peux juste tromper les autres. Je ne peux pas écrire une solution possible. – Donald

+0

Montrez dans votre message original ce que vous avez essayé de modifier le code selon vos besoins et où vous êtes coincé. Ensuite, posez une question spécifique sur les raisons pour lesquelles cela ne fonctionne pas. –

Répondre

0

Si vous souhaitez modifier la plage destinationd'avoir une couleur intérieure rouge, vous pouvez utiliser:

Worksheets("Sheet2").Range("E" & i).Interior.Color = vbRed 

Si vous souhaitez modifier la sourcegamme d'avoir une couleur intérieure rouge, vous pouvez utiliser:

rngName.Interior.Color = vbRed 
+0

changé les Worksheets ("Feuil2"). Range ("E" & i) à Worksheets ("Feuil2"). Range ("E" & i) .Interior.Color = vbRed I got une erreur: Erreur d'exécution '1004': La méthode 'Range' de l'objet'_Global 'a échoué – Donald

+0

@Donald - Qu'entendez-vous par "changé"? Vous avez dit que vous aviez essayé des lignes telles que 'ActiveSheet.Cells.Interior.ColorIndex = red' et' rng1.Interior.ColorIndex = red' mais vous n'avez pas dit que vous aviez essayé 'Worksheets (" Sheet2 "). Range (" E "& i) .Interior.ColorIndex = red', donc je suis inquiet que vous changiez votre commande' Copy' plutôt que d'utiliser l'une des lignes que j'ai suggérées au lieu d'une des lignes que vous avez dites avoir essayées. – YowE3K