اجرا و توقف یک فانکشن vba در اکسل از طریق چک بکس

**babak2011** · 2 هفته پیش

سلام وقت دوستان بخیر
آیا امکان داره یک تابع vba رو یا چک باکس فعال و غیرفعال کرد ؟
کد من:

کد:

Sub Flashing_Cells()
    Dim i As Long
    Dim LastRow As Long
    
    'Worksheets("ثبت کل").Activate
    'LastRow = Range("A" & Rows.Count).End(xlUp).Row
    LastRow = Worksheets("ثبت کل").Cells(Rows.Count, "K").End(xlUp).Row
    
    For i = 2 To LastRow
        If Cells(i, 11) = "اخطار" And Cells(i, 11).Interior.Color <> RGB(255, 80, 80) Then
            Range(Cells(i, 1), Cells(i, 11)).Interior.Color = RGB(255, 80, 80)
        ElseIf Cells(i, 11) = "اخطار" And Cells(i, 11).Interior.Color = RGB(255, 80, 80) Then
            Range(Cells(i, 1), Cells(i, 11)).Interior.Color = xlNone
        End If
    Next i

    Application.OnTime Now + TimeValue("00:00:02"), "Flashing_Cells"
    
End Sub

کاری که میخوام انجام بدم اینه که این تابع رو با چک باکس اجرا و متوقف کنم ولی وقتی تیک چک باکس رو بر میدارم تابع و ماکرو همچنان داره اجرا میشه !

سیستم تبلیغات اکسل ایران

**babak2011** · یک هفته پیش

نوشته اصلی توسط babak2011

سلام وقت دوستان بخیر
آیا امکان داره یک تابع vba رو یا چک باکس فعال و غیرفعال کرد ؟
کد من:

کد:

Sub Flashing_Cells()
    Dim i As Long
    Dim LastRow As Long
    
    'Worksheets("ثبت کل").Activate
    'LastRow = Range("A" & Rows.Count).End(xlUp).Row
    LastRow = Worksheets("ثبت کل").Cells(Rows.Count, "K").End(xlUp).Row
    
    For i = 2 To LastRow
        If Cells(i, 11) = "اخطار" And Cells(i, 11).Interior.Color <> RGB(255, 80, 80) Then
            Range(Cells(i, 1), Cells(i, 11)).Interior.Color = RGB(255, 80, 80)
        ElseIf Cells(i, 11) = "اخطار" And Cells(i, 11).Interior.Color = RGB(255, 80, 80) Then
            Range(Cells(i, 1), Cells(i, 11)).Interior.Color = xlNone
        End If
    Next i

    Application.OnTime Now + TimeValue("00:00:02"), "Flashing_Cells"
    
End Sub

کاری که میخوام انجام بدم اینه که این تابع رو با چک باکس اجرا و متوقف کنم ولی وقتی تیک چک باکس رو بر میدارم تابع و ماکرو همچنان داره اجرا میشه !

هیچ راهی نداره اساتید ؟