Вот так работает. Я его поместил там где "Выходной текст".


Private Sub Worksheet_Change(ByVal Target As Range)
Dim a100
If Range("U21") >= 15 Then
Макрос2
Range("U21") = 0
End If

If Range("U22") >= 15 Then
Макрос2
Range("U22") = 0
End If

End Sub

Но нужно решить несколько небольших , но важных вопросов. Я создам пример и размещу чуть позже. Очень надеюсь на помощь. спасибо.

Все работает для одной ячейки. Но вот для двух ячеек не получается.
Я записал два макроса.

Sub SuomiPilot()
   If Range("U21") >= 15 Then
       Макрос2
       Range("U21") = 0
   End If
End Sub

Sub SuomiPilot2()
   If Range("U22") >= 15 Then
       Макрос2
       Range("U22") = 0
   End If
End Sub
 
Так не работает ни для ячейки U21 ни для ячейки U22.

Большое спасибо.

А как мне записать кодом такую задачу:

Если значение в ячейке U21больше или равно 15,  то выполнить макрос 2  и  умножить знчение в ячейке U21 на ноль?

проверил. При вводе любого значения в ячейки E7:L10 появляется сообщение "могу выполнить макрос2"

Вернее так-если в какой-либо ячейке из E7:L10 уже есть значение >15, то сообщение появляется при вводе любого значения в другие ячейки. вот если бы сообщение появлялось однократно...

Данные с прибора попадают на лист Kat1 в белые ячейки без заливки(E7:L10).

На листе Лист2 текстовый формат с точкой преобразовывается в числовой формат с запятой. вычисляются всякие средние , максимумы и т.п. для передачи в базу данных.

Я писал все это сам на дилетантском уровне, так что не ужасайтесь и не презирайте меня сильно.

Мне нужно сделать так, что если значение больше 15мА, то звучит предупреждающий сигнал, а если больше 20мА, то звучит сигнал тревоги-т.е. два сигнала. но тут хотябы с одним разобраться...

Теперь эта музака постоянно включается при переходе на другие ячейки...  

Работает вот как (как я вначале и пытался сделать):

Private Sub Worksheet_Change(ByVal Target As Range)
If [u6] > 15 Then макрос2
End Sub

Исходное значение ,которое не должно превышать 15,передается в эксель с измерительного прибора через компорт в текстовом формате , поэтому много ссылок.

Файл очень большой. Тот другой лист скрыт. На ту ячейку тоже идет ссылка.

ячейка U6 ссылается на другую ячейку на другом листе. И если в той другой ячейке данное меняется и больше 15 -ничего не происходит.
если же в ячейку U6 непосредственно ввести значение больше 15, то все работает.

спасибо. Все работает , но только когда ввожу данные непосредственно в ячейку U6. Но в этой ячейке ссылка. и при изменении ничего не происходит.

Private Sub Worksheet_Calculate()
If [u6] > 15 Then Execute ......дальше не знаю как записать ...должен выполниться макрос2
End Sub

Я записал макрос запуска звукового файла. Теперь нужно записать макрос, который запускает этот макрос при условии, что в ячейке U6 значение больше или равно 15?
Спутал Моцарта с Бетховеном(первые звуки симфонии №5).

Всем привет!
Как сделать так, чтобы при появлении в ячейке числа больше, например,чем 20 звучал какой-нибудь устрашающий звук (например злой рок из Моцарта)? Число в ячейке в виде ссылки.

Всем привет!  
Возможно ли построить лепестковую диаграмму со сглаженной линией в Эксель 2003?

Да ник-это для красоты. Спасибо большое. Я буду сейчас пробовать.

{quote}{login=Юрий М}{date=29.11.2012 01:25}{thema=}{post}Мне как раз нужно нелегально в Финляндию.{/post}{/quote}  
 
А при чем тут Финляндия? Я в Киеве живу.  
 
А с клавиатуры нужно вводить всякие там атрибуты измерений-номер бригады, тип изделия и т.п. Клавиатура нужна.

Вот если бы радикально решить вопрос-запретить вообще ввод данных с клавиатуры. Если защитить лист-то тогда и с измерительного прибора данные не проходят. Сисадмин обещал помочь, но у него вечно нет времени и он не понимает важности задачи.

Ух ты. Вот спасибо так спасибо. Я Вам тоже когда-нибудь пригожусь.

Вот спасибо. Щас буду пробовать. Я подозревал, что это не очень сложно, но слабоват в екселе пока.

Мне нужно предотвратить неправильный ввод.

Дело в том, что результаты измерений потом переводятся в числовой формат с разделителем запятая в этой же книге и может возникнуть путаница. А все переделывать у меня уже нет времени. Может макросом каким -нибудь?

Всем привет!  
 
У меня такой вопрос.    
Результаты измерений с прибора через компорт вводятся в ячейки эксель (в виде текста, разделитель-точка). Но иногда необходимо подправить данные вручную с клавиатуры. Рабочие, которые делают измерения, часто вводят данные через запятую. Как сделать так, чтобы запятая автоматически менялась на точку при неправильном вводе или ,хотя бы, появлялось сообщение об ошибке.Спасибо заранее.

Большое спасибо, кавычки исчезли. прошу прощение за правила форума-торопился очень.

Всем привет!    
 
Такая проблема. которая убивает меня наповал и перечеркивает большую работу.    
 
При выполнении макроса для сохранения из экселя в текстовый файл с табуляцией появляются кавычки.    
Но если тоже самое делать вручную, то кавычек нет.    
 
Вот сам макрос    
Sub Макрос2()    
'    
Sheets("tmldata").Select    
ActiveWorkbook.SaveAs Filename:="D:\D\tmldata.log", FileFormat:=xlText, _    
CreateBackup:=False    
Sheets("Категория 3").Select    
End Sub    
 
 
А вот эти гребаные кавычки-заковычена каждая строка.    
 
 
"#5,1,80"    
"#5,2,1"    
"#5,5,1"    
"#5,7,Setup"    
"#5,9,0000"    
 
Что делать?!