عنوان: استخدام ميزات VBA للتحكم الفعّال في مربعات النص في Excel (2023)

في برنامج Excel، تعتبر مربعات النص أحد العناصر الأساسية التي يتعامل معها المستخدمون في تطبيقات الفصل النصي والبرمجية. ومع ذلك، قد تواجه بعض التحديات في التحكم الكامل بهذه المربعات في بعض الأحيان. لحل هذه التحديات، يمكن استخدام الأكواد في VBA (لغة برمجة Visual Basic for Applications) للتحكم الفعّال في مربعات النص في Excel.

استخدام الأكواد في VBA لتحديد نصوص مربعات النص

فيما يلي مثال على استخدام الأكواد في VBA لتحديد نص في مربع نصي:

Sub SelectAllOfTextbox(aTextBox As MSForms.TextBox)
    With aTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    End With
End Sub

يمكن استدعاء هذا الكود باستخدام الأمثلة التالية:

SelectAllOfTextBox TextBox1
SelectAllOfTextBox TextBox2

الجمع بين أكواد VBA والأوامر الأخرى

عند محاولة الجمع بين تحديد النص وأوامر أخرى، قد يواجه المستخدم بعض التحديات. لحل ذلك، يمكن تجنب وضع أمر .SetFocus إذا كان الهدف هو التركيز على المربع نصي الذي يتم التحكم به بالفعل.

الأكواد الإضافية في VBA لتحديد المربع النصي النشط

يمكن استخدام أكواد إضافية في VBA لتحديد المربع النصي النشط، مثل:

Private Sub TextBox1_Enter()
    EnteringATextBox TextBox1
End Sub

Private Sub EnteringATextBox(aTextBox As MSForms.TextBox)
    With aTextBox
        .Locked = True
        If MsgBox("تحرير المحتوى", vbYesNo) = vbYes Then
            .Locked = False
        Else
            .SelStart = 0
            .SelLength = Len(.Text)
        End If
    End With
End Sub

استخدام الأكواد للتنقل بين المربعات النصية بشكل فعّال

بالإضافة إلى ذلك، يمكن استخدام أكواد في VBA للتنقل بين المربعات النصية باستخدام مفاتيح التبويب، على سبيل المثال:

For Each ctl In Me.Controls
    If ctl.TabIndex = aTextBox.TabIndex + 1 Then
        ctl.SetFocus
        Exit For
    End If
Next ctl

بهذه الطريقة، يمكن للمستخدم تحديد المربع النصي التالي بسهولة وكفاءة باستخدام مفاتيح التبويب.

بهذه الطرق الفعّالة، يمكن للمبرمجين والمستخدمين استخدام الأكواد في VBA للتحكم الكامل والفعّال في مربعات النص في Excel، مما يسهّل التعامل معها ويجعل عمليات التحرير والتنقل أكثر سلاسة وفعالية.