Галочка, которая останавливает/запускает программу в CheckBox

@kalamees · Регистрация: 17.10.2011

Dobryi denj!

Na stranitse estj checkbox. Kak sdelatj tak, 4toby kogda user stavit tuda galo4ku programma ostanalivalasj, kogda snimaet - zapuskalasj?

Pomogite, kto znaet. Spasibo

@Tsvet · 11.01.2012, 16:36

Visual Basic

Private Sub CheckBox1_Click()
    If CheckBox1 Then
goto 100        
    Else
''название макроса        
    End If
100 End Sub

@kalamees · 11.01.2012, 16:46 **[ТС]**

Ne pomogaet. Makros kak ni v 4em ne byvalo rabotaet daljshe. Mozet 4ego-to ne tak nado?

@Tsvet · 11.01.2012, 17:45

А просто нажать ctrl + break нельзя?

@kalamees · 11.01.2012, 17:55 **[ТС]**

Samoje interesnoje, 4to toze ne pomogaet....

11.01.2012, 23:39

Сообщение от kalamees

Samoje interesnoje, 4to toze ne pomogaet....

Самое интересное, что попытался смоделировать работу макроса с огромным циклом, то при выполнении макроса нельзя даже поставить галку

А в этом примере:

Visual Basic

Private Sub CheckBox1_Click()
If CheckBox1 Then ' не хватает ".value=0"
goto 100 
Else
''''название макроса 
End If
100 End Sub

Но если у тебя при выполнении макроса можно поставить галку - тогда в тело макроса вставь проверку состояния чекса и соответсвенно либо завершай работу макроса, либо продолжай?

Visual Basic

1
2
3

If CheckBox1.Value = False Then
end
End if

@Masalov · 12.01.2012, 08:17

Наверно речь идет о примере приведенным мной в http://www.relib.com/forums/thread883436.aspx ?

@kalamees · 12.01.2012, 10:31 **[ТС]**

Tak to4no

@kalamees · 12.01.2012, 12:42 **[ТС]**

Ne plou4aetsja, pishet oshibku - "Object required"

Visual Basic

Sub kell()
Sheets("System Demand").Select
If CheckBox1.Value = False Then
End
End If
Application.OnTime Now + TimeValue("00:01"), "kell"
Cells(3, 4) = Format(Time, "hh:nn")
DoEvents
End Sub

Na liste postavleno -

Visual Basic

1 2	Private Sub CheckBox1_Click() End Sub

4to ne tak?

@Avtopic · 12.01.2012, 21:07

Проверь, в таком варианте будет работать.

Visual Basic

With Sheets("System Demand")
If .CheckBox1.Value = False Then
End
End If
Application.OnTime Now + TimeValue("00:01"), "kell"
.Cells(3, 4) = Format(Time, "hh:nn")
DoEvents
End With

Sheets("System Demand").Select не хватает для того, чтобы обращаться к CheckBox

@kalamees · 17.01.2012, 14:25 **[ТС]**

Da, spasibo tak polu4ilosj.

@kalamees 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 18
		1
	Галочка, которая останавливает/запускает программу в CheckBox 11.01.2012, 13:48. Показов 2460. Ответов 10 Метки нет (Все метки) Dobryi denj! Na stranitse estj checkbox. Kak sdelatj tak, 4toby kogda user stavit tuda galo4ku programma ostanalivalasj, kogda snimaet - zapuskalasj? Pomogite, kto znaet. Spasibo __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@kalamees 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 18
	11.01.2012, 16:46 [ТС]	3
	Ne pomogaet. Makros kak ni v 4em ne byvalo rabotaet daljshe. Mozet 4ego-to ne tak nado? 0

@Tsvet 3 / 3 / 0 Регистрация: 08.09.2011 Сообщений: 111
	11.01.2012, 17:45	4
	А просто нажать ctrl + break нельзя? 0

@kalamees 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 18
	11.01.2012, 17:55 [ТС]	5
	Samoje interesnoje, 4to toze ne pomogaet.... 0

@Masalov 22 / 5 / 1 Регистрация: 05.09.2010 Сообщений: 370
	12.01.2012, 08:17	7
	Наверно речь идет о примере приведенным мной в http://www.relib.com/forums/thread883436.aspx ? 0

@kalamees 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 18
	12.01.2012, 10:31 [ТС]	8
	Tak to4no 0

@kalamees 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 18
	17.01.2012, 14:25 [ТС]	11
	Da, spasibo tak polu4ilosj. 0

Опции темы