Czy masz inne procedury zdarzeniowe np. Worksheet_Change?
Na czas wykonywania procedury zdarzenia możesz wyłączyć generowanie następnych wystąpień. W tym celu na początku obsługi zdarzenia wpisz
Application.EnableEvents = False
i koniecznie na końcu to samo tylko z true.
Jeśli to nie to, to podaj więcej szczegółów.
napisał: damianek postów: 2
umieszczony: 6 lutego 2011 11:57
edytowany: 6 lutego 2011 23:00
Witam wszystkich,
napisałem program który sprawdza wartość w komórce (M10), a następnie w zależności od wartości tej komórki dokonuje obliczeń, instrukcja if else.
Do wykycia zmian w arkuszu wykorzystałem zdarzenie Worksheet_Calculate(), ponieważ dane w komórce nie są wpisywane ręcznie lecz obliczane automatycznie na podstawie formuły znajdującej się w tej komórce
Problem jest następujący:
Pojawia się komunikat: Run-time error 28: Out of stack space.
Kod programu:
Option Explicit
Private Sub Worksheet_Calculate()
If Range("M10") > 90 Then
Range("M11") = Range("L8") * Sin((Range("M10") * (3.14 / 180)) - 90 * (3.14159 / 180))
Else
Range("M11") = Range("L8") * Cos((Range("M10") * (3.14 / 180)))
End If
End Sub
wstecz 1 dalej
otwarty rozpoczął: damianek
postów: 3
to podaj więcej szczegółów.