Comment changer la hauteur de ligne en fonction de la valeur de la cellule dans Excel?
Pour modifier la hauteur de ligne dans une feuille de calcul, la plupart d'entre nous peuvent appliquer la fonction Hauteur de ligne pour définir la hauteur de la ligne sélectionnée. Cependant, si vous avez une liste de nombres et que vous souhaitez maintenant définir la hauteur de ligne en fonction des valeurs de cellule comme illustré ci-dessous, comment pouvez-vous gérer cette tâche dans Excel?
Changer la hauteur de ligne en fonction de la valeur de la cellule avec le code VBA
Changer la hauteur de ligne en fonction de la valeur de la cellule avec le code VBA
Il n'existe aucun moyen direct pour vous de modifier simultanément plusieurs hauteurs de ligne en fonction de la valeur de la cellule, mais, avec le code VBA suivant, il peut vous aider à terminer ce travail le plus rapidement possible.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: modifiez la hauteur de ligne en fonction de la valeur de la cellule:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler de sélectionner les cellules que vous souhaitez définir la hauteur de ligne par les valeurs de cellule, voir capture d'écran:
4. Et puis cliquez OK , la hauteur de ligne a été modifiée par la valeur de la cellule comme suit:
Notes: Dans le code VBA ci-dessus, Si H.Value> 15 Alors indique que si la valeur de la cellule est supérieure à 15, la hauteur de la ligne sera modifiée, si la valeur de la cellule est inférieure à 15, la hauteur de la ligne restera la hauteur par défaut. Vous pouvez le modifier selon vos besoins.
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!