Comment conserver la mise en forme des cellules tout en référençant d'autres cellules de feuille?
En règle générale, la cellule ne conserve la valeur de la cellule que lorsqu'elle fait référence à une autre cellule, mais dans cet article, j'introduis un code VBA pour conserver les valeurs de cellule et la mise en forme tout en référençant une autre cellule, et les valeurs de cellule et la mise en forme changent à mesure que la cellule de référence change comme ci-dessous capture d'écran affichée.
Conservez le formatage des cellules tout en référençant une autre cellule avec VBA
Conservez le formatage des cellules tout en référençant une autre cellule avec VBA
Pour gérer ce travail, il vous suffit d'exécuter le code ci-dessous.
1. Activez le classeur que vous utilisez, appuyez sur Alt + F11 clé pour activer Microsoft Visual Basic pour Application et double-cliquez sur le nom de la feuille dans laquelle vous placerez la cellule de référence Projet-VBAProjet volet pour afficher un script vide. Dans ce cas, je veux faire référence à la cellule A1 dans l' Sheet1. Voir la capture d'écran:
2. Collez le code ci-dessous dans le script et dans le code VBA, spécifiez les références de cellule dont vous avez besoin.
VBA: conserver la mise en forme et les valeurs tout en référençant une autre cellule
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubNotes: A1 est la cellule de référence, B1 in Fiche 2 est la cellule que vous souhaitez lier à la cellule de référence et conserver les valeurs et la mise en forme avec A1 dans Shee1.
Ensuite, lorsque vous modifiez les valeurs ou la mise en forme dans la cellule A1 dans Sheet1, la cellule B1 dans Sheet2 sera modifiée en cliquant deux fois sur la cellule de référence.
Compter par couleur
|
| Dans certains cas, vous pouvez avoir une plage de calibres avec plusieurs couleurs, et ce que vous voulez est de compter / additionner des valeurs basées sur la même couleur, comment pouvez-vous calculer rapidement? Avec Kutools for Excel's Compter par couleur, vous pouvez rapidement effectuer de nombreux calculs par couleur et générer un rapport du résultat calculé. |
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
