İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də Command Button adını necə dinamik etmək olar?

Bu yazı, müəyyən bir hüceyrə dəyəri dəyişiklikləri ilə dinamik şəkildə dəyişən bir Komanda düyməsinin adının edilməsi barədə danışır. Məsələn, A1 hücresindeki dəyər "test" olaraq dəyişdirildikdə, müəyyən bir Command düyməsinin adı avtomatik olaraq "test" olaraq dəyişdirilir.

Command Button adı VBA kodu ilə hüceyrə dəyəri ilə dinamik edin


Command Button adı VBA kodu ilə hüceyrə dəyəri ilə dinamik edin


Aşağıdakı VBA kodu bir iş səhifəsində göstərilən hüceyrə dəyəri ilə bir komanda düyməsi dinamikasının adını verməyə kömək edə bilər. Xahiş edirik bunu edin.

1. klik Developer > Taxmaq > Command Button (ActiveX Control) iş səhifəsinə bir komanda düyməsini əlavə etmək. Ekran görüntüsünə baxın:

2. Komanda düyməsini daxil etdikdən sonra, hesabat sekmesini sağ basın və vurun Kodları baxın aşağıda göstərilən ekran görüntüsü kimi sağ tıklayarak menyudan:

3. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədən, VBA kodunun altından pəncərəyə kopyalayıb yapışdırın.

VBA kodu: Komanda Düğmesini hüceyrə dəyəri ilə dinamik etmək

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub

Qeydkod: CommandButton1, adını dinamik etmək istəyən düymənin adıdır və A1 avtomatik olaraq düyməsi adına dəyər verəcəyiniz hüceyrədir.

4. Basın Dayandırmaq + Q çıxmaq üçün düymələr Proqramlar üçün Microsoft Visual Basic pəncərə.

5. Tıklayarak Dizayn rejimi söndürün Developer > Dizayn Moda.

Bundan sonra, Komut Buttonunun adı, iş səhifənizdə göstərilən hüceyrə dəyəri ilə dinamik olaraq dəyişdiriləcəkdir.

Aşağıda göstərilən ekran göründüyü kimi, A1 hücresi dəyəri dəyişdirildikdə, komanda düyməsinin adı avtomatik olaraq eyni dəyərə dəyişdiriləcəkdir.


Əlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sam · 6 months ago
    Can anyone suggest how I would extend the VBA to additionally assign a macro to the command button so clicking the command button would execute a macro associated with the command button name? For example, after renaming the command button to "XYZ", also assign the macro named "XYZ" to the command button click event. Thank you for any help.
    • To post as a guest, your comment is unpublished.
      crystal · 4 months ago
      Hi sam,
      Please try as follows.
      1. Turn on the Design Mode by clicking Developer > Design Mode.
      2. Right click the command button and select View Code in the context menu;
      3. Assign your macro between line Private Sub CommandButton1_Click() and End Sub;
      4. Turn off the Design Mode

      Hope I can help.