Retour les cellules référencées par l’utilisateur en utilisant le contrôle RefEdit de UserForm dans Microsoft Excel
Dans cet article, nous allons montrer comment ajouter un contrôle RefEdit dans le formulaire utilisateur et faire référence à la plage de cellules en l’utilisant.
Dans cet exemple, nous avons créé un formulaire utilisateur surligneur que nous pouvons utiliser pour mettre en évidence la plage de cellules avec une couleur jaune.
Nous avons pris des exemples de données comprenant le nom et l’heure de connexion du membre de l’équipe.
Ajout de RefEdit dans le formulaire utilisateur
Ajoutez un formulaire utilisateur, cliquez sur le contrôle RefEdit dans la boîte à outils et sélectionnez et déposez le contrôle sur le formulaire utilisateur.
Explication logique
Pour mettre en évidence la cellule, cliquez sur le bouton Surligneur. Cela ouvrira le formulaire utilisateur. Sélectionnez la plage à l’aide de RefEdit. Cliquez sur le signe du tiret pour sélectionner les cellules.
Pour sélectionner des cellules adjacentes, appuyez sur la touche Maj tout en vous déplaçant vers une autre cellule. Pour sélectionner des cellules non adjacentes, appuyez sur la touche Ctrl tout en sélectionnant différentes cellules. Les cellules sélectionnées seront entourées de lignes pointillées et l’adresse de la cellule apparaîtra dans la boîte.
Les cellules sélectionnées seront surlignées en jaune en appuyant sur le bouton OK. Cliquez sur l’événement du bouton Ok contient le code VBA pour mettre en évidence les cellules sélectionnées.
Veuillez suivre ci-dessous pour le code
Option Explicit Sub running() UserForm1.Show End Sub 'Add below code in "Ok" button on userform Option Explicit Private Sub CommandButton1_Click() Dim SelectRange As Range Dim Address1 As String On Error GoTo Last 'Get the address from the RefEdit control Address1 = RefEdit1.Value 'Set the SelectRange Range object to the range specified in the RefEdit control Set SelectRange = Range(Address1) 'Highlight the selected range in yellow color SelectRange.Interior.Color = RGB(255, 255, 0) 'Unload the userform. Unload Me Last: End Sub
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]