İ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ə xüsusi bir hüceyrəni tıklayaraq makroyu tetiklemek və ya çalıştırmak üçün necə?

Microsoft Excel ilə işləyərkən, müəyyən bir Makroyu Komut Düymə ilə necə idarə edə bilə bilərsiniz. Ancaq bir işdə xüsusi bir hüceyrəni tıklayaraq Macroyu necə idarə edəcəyinizi bilirsinizmi? Bu yazı, müəyyən bir hüceyrəyə tıklayarak bir Makroyu tetikleme metodunu gösterecektir.

VBA kodu ilə xüsusi bir hüceyrəni tıklayaraq Macromanı tetikleyin və ya çalıştırın


Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına birləşdirin:

Bir çox iş səhifəsini və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirin, gündəlik işinizdə böyük bir vəzifə ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü fayda - Birləşdirmək tez bir çox iş səhifəsini, iş kitabını bir iş və ya iş kitabına birləşdirməyə kömək edə bilər.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


VBA kodu ilə xüsusi bir hüceyrəni tıklayaraq Macromanı tetikleyin və ya çalıştırın


Aşağıdakı VBA kodu, Excel-də xüsusi bir hüceyrəni tıklayaraq Macroyu çalıştırmanıza kömək edə bilər. Xahiş edirik bunu edin.

1. Hüceyrə ilə iş səhifəsində Makroyu çalıştırmak üçün basın, hesabatı sekmesini sağa vurun və sonra basın Kodları baxın kontekst menyusundan.

2. İçində Proqramlar üçün Microsoft Visual Basic Pəncərə, VBA skriptini aşağıdakı kodu kopyalayın və yapışdırın.

VBA kodu: Müəyyən bir hüceyrəni tıklayaraq Macromanı tetikleyin və ya çalıştırın

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            Call MyMacro
        End If
    End If
End Sub

Qeydlər:

1. Kodda, D4, makroyu idarə etmək üçün tıklayacağınız hüceyrədir;

2. Xahiş edirik kodun adını dəyişin MyMacro Makro ilə iş səhifəsində çalışacaqsınız. Ekran görüntüsünə baxın:

3. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

Hal-hazırda, cari işdə D4 hücresinə tıkladığınızda, göstərilən makro dərhal tetiklenir.


Ə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.
    Phil H · 5 months ago
    Hi.

    I have this working well, but would like to add a condition to running the macro. I only want to run the macro if the cell alongside the cell I click into contains a certain value.
    e.g. When I click on cell F6, I want the macro to run if cell E6 contains "x", but if cell E6 is blank, the macro must not run.
    Hope that makes sense.
    Thanks

    here is my original code without the condition:


    Option Explicit

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F6:F18")) Is Nothing Then
    Call datePick
    End If
    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi,
      The following VBA code can help you solve the problem. Please have a try and thank you for your comment.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xRg As Range
      If Not Intersect(Target, Range("F6:F18")) Is Nothing Then
      Set xRg = ActiveSheet.Cells(Target.Row, Target.Column - 1)
      If (xRg.Value = "") Or (xRg.Value <> "X") Then Exit Sub
      Call datepick
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    Medical Coder · 8 months ago
    Great. Its working well... Thank you....
  • To post as a guest, your comment is unpublished.
    Wayne · 1 years ago
    This worked perfectly and will save me a load of time - thank you for sharing your knowledge - much appreciated!
  • To post as a guest, your comment is unpublished.
    Simon Jones · 1 years ago
    If you want to have multiple macros, cells running different macros on the same page - is that possible?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Simon,
      The below VBA script can help you to run different macros by clicking on cells on the same page.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Count = 1 Then
      If Not Intersect(Target, Range("D4")) Is Nothing Then Call MyMacro1
      If Not Intersect(Target, Range("D8")) Is Nothing Then Call MyMacro2
      If Not Intersect(Target, Range("D10")) Is Nothing Then Call MyMacro3
      End If
      End Sub

      Please add line "If Not Intersect(Target, Range("D10")) Is Nothing Then Call MyMacro" to run more macro by clicking cell. And change the cell and macro names in the code based on your needs.
      • To post as a guest, your comment is unpublished.
        Camila · 3 months ago
        It isn't working on my Excel. The code is correct?
  • To post as a guest, your comment is unpublished.
    Matt · 1 years ago
    Trigger Or Run A Macro By Clicking A Specific Cell With VBA Code, couldn't get this to work. I tried it many different way, but it never acheived what was promised.
    • To post as a guest, your comment is unpublished.
      Peter · 1 years ago
      This code will only work if you place it in the "ThisWorkbook" module. It does not work on a general module.
      workbookname > Microsft Excel Objects > ThisWorkbook.
      • To post as a guest, your comment is unpublished.
        PritishS · 1 years ago
        This code will work on worksheet code module. You need to right click on sheet tab and click on 'View Code'. This will open code module for that worksheet only. Then paste the mentioned code.