1) вставьте следующий код в новый модуль вашего проекта
Public dontDoThat As Boolean ' a public variable, visible throughout all your project you'll use to give way to synchronizing activity
Option Explicit
Sub Synchronize(txt As String, shtName As String)
dontDoThat = True ' set your public variable to True and prevent subsequent TextBox1_Change() events to run it again
Dim sht As Variant
For Each sht In Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
If sht <> shtName Then Worksheets(sht).TextBox1.Text = txt
Next
dontDoThat = False ' set your public variable to False and allow subsequent TextBox1_Change() events to run it
End Sub
2) измените ваше TextBox1_Change()
событие на всех ваших листах следующим образом
Private Sub TextBox1_Change()
If Not dontDoThat Then Synchronize Me.TextBox1.Text, Me.Name 'call Synchronize() only if your public variable allows it to
...
(rest of your previous code follows)
...
End Sub
Чтобы очистить все текстовые поля просто очистить один из них
try
three = (T.<*>)
Это странно определять инфиксный оператор как целое число. Давайте рассмотрим \\
(оператор разности множеств):
import qualified Data.List as L
foo = [1..5] L.\\ [1..3] -- evaluates to [4,5]
diff = (L.\\)
Как вы можете видеть выше, L. \\
- квалифицированный инфиксный оператор; и он все еще работает как оператор инфикса. Чтобы использовать его как значение, вы ставите круглые скобки вокруг всего этого.
Помните, что мы импортируем символы в скобках. Например,
import T ((<*>))
, поэтому импорт квалифицированных товаров одинаков:
import qualified T as Q
main = print (Q.<*>)