כיצד לבחור אוטומטית את הטקסט של תיבת טקסט כאשר היא נבחרת ב-Excel?

כדי למחוק טקסטים מתיבת טקסט (ActiveX Control), ראשית, עליך לבחור את כל הטקסט בתוך תיבת הטקסט. מאמר זה מדבר על בחירת כל הטקסט של תיבת הטקסט באופן אוטומטי בעת לחיצה על תיבת הטקסט ב-Excel.

בחירה אוטומטית של טקסט בתיבת טקסט כאשר היא נבחרת עם קוד VBA

בחירה אוטומטית של טקסט בתיבת טקסט כאשר היא נבחרת עם קוד VBA

אנא החל את הקוד VBA הבא כדי לבחור אוטומטית את כל הטקסט של תיבת טקסט בעת בחירת תיבת הטקסט ב-Excel.

1. עבור גליון עבודה שמכיל את תיבת הטקסט שברצונך להפוך את הטקסט שלה לבחירה אוטומטית, אנא הפעל את מצב העיצוב על ידי לחיצה על מפתח > מצב עיצוב. ראה צילום מסך:

או שאתה יכול גם להוסיף תיבת טקסט על ידי לחיצה על מפתח > הוסף > תיבת טקסט (ActiveX Control). ראה צילום מסך:

2. לחץ ימני על תיבת הטקסט ולחץ על צפה קוד מהתפריט הקונטקסטואלי. ראה צילום מסך:

3. בחלון Microsoft Visual Basic for Applications שנפתח, אנא החלף את הקוד VBA המקורי בחלון הקוד עם הקוד VBA הבא.

קוד VBA: בחירה אוטומטית של טקסט בתיבת טקסט בעת לחיצה עליה

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

הערות:

1. בקוד, TextBox1 הוא השם של תיבת הטקסט שתרצה לנקות את התוכן שלה. אנא שנה אותו לשמך.

2. לבחירה אוטומטית של טקסטים של מספר תיבות טקסט בעת לחיצה עליהם, אנא הוסף את הקוד VBA הבא בין שני החלקים בקוד למעלה. ושנה את TextBox2 לשם תיבת הטקסט הנדרשת שלך.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4. לחץ על המקשים Alt + Q כדי לצאת מחלון Microsoft Visual Basic for Applications.

5. כבה את מצב העיצוב.

מעכשיו, כאשר תלחץ על תיבת הטקסט, כל הטקסט שבתוכה ייבחר אוטומטית.

פתחו את הקסם של Excel עם Kutools AI

• ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
• נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
• תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
• פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
• תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!

מאמרים קשורים:

• כיצד להשלים אוטומטית תיבת טקסט בעת הקלדה ב-Excel?
• כיצד לנקות תוכן של תיבת טקסט כאשר היא נלחצת ב-Excel?
• כיצד לחבר טקסטים של תאים מרובים לתוך תיבת טקסט ב-Excel?
• כיצד להשבית עריכת תיבת טקסט כדי למנוע קלט משתמש ב-Excel?
• כיצד לעצב תיבת טקסט כאחוזים ב-Excel?