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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • babak2011

    • 2016/12/30
    • 12
    #1

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

    سلام وقت دوستان بخیر
    آیا امکان داره یک تابع 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

      • 2016/12/30
      • 12
      #2
      نوشته اصلی توسط 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
      کاری که میخوام انجام بدم اینه که این تابع رو با چک باکس اجرا و متوقف کنم ولی وقتی تیک چک باکس رو بر میدارم تابع و ماکرو همچنان داره اجرا میشه !
      هیچ راهی نداره اساتید ؟

        کامنت

        قبلی template بعدی
        چند لحظه..