подскажите с формулой - Microsoft Office Excel

slonik · 11.11.2008, 11:53

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

SAS888 · 11.11.2008, 12:41

Если, например, это нужно для столбца "A", то можно в модуль соответствующего листа вставить код:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If IsNumeric(Target) Then If Target > 0 Then Target = Target * (-1)
        Application.EnableEvents = True
    End If
End Sub

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

slonik · 11.11.2008, 12:58

Цитата:

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

Если, например, это нужно для столбца "A", то можно в модуль соответствующего листа вставить код:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If IsNumeric(Target) Then If Target > 0 Then Target = Target * (-1)
        Application.EnableEvents = True
    End If
End Sub

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

Столбцы В и С (x и y) могут меняться на отрицательные... вводу координаты в каждую ячейку вручную...

SAS888 · 11.11.2008, 13:44

И что???

Цитата:

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

В предложенном варианте при вводе значения в столбец "A", проверяется, если введено положительное число, то оно умножается на минус 1. Иначе - ничего не делается. Так нужно, или нет?
Если эти действия нужны для столбцов "B" и "C", то строку кода

Код:

If Target.Column = 1 Then

замените на

Код:

If Target.Column = 2 Or Target.Column = 3 Then

Так нужно, или нет?

slonik · 11.11.2008, 14:06

нужно конечно))

SAS888 · 11.11.2008, 14:34

Цитата:

Так нужно, или нет?

Интересная получилась "игра слов".
Я имел ввиду "Так подойдет?"

slonik · 11.11.2008, 14:40

хе...только вопрос.... при вставки в модуль мне выдает...

valerij · 11.11.2008, 14:58

Цитата:

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

хе...только вопрос.... при вставки в модуль мне выдает...

Судя по скрину, ну и что Вы навставляли?
Вы из модуля взяли Sub минус и вставили в Лист1 конечно будет ошибка, удалите все до Private sub ....

11.11.2008, 11:53	#1
slonik Регистрация: 11.11.2008 Сообщений: 4	подскажите с формулой Подскажите пожалуйсто как сделать, чтобы весь столбец автоматически, при вводе в ячейку числа, припысывал знак "-"?

11.11.2008, 12:41	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Если, например, это нужно для столбца "A", то можно в модуль соответствующего листа вставить код: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False If IsNumeric(Target) Then If Target > 0 Then Target = Target * (-1) Application.EnableEvents = True End If End Sub` P.S. данный код работает только при вводе данных по одной ячейке. Что делать в других возможных случаях, Вы не оговорили. Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите с формулой	master_3	Microsoft Office Excel	4	17.04.2009 19:15
Помогите с формулой.	Lord_Daron	Microsoft Office Excel	2	06.11.2008 21:21
Трудности с формулой	arr1val	Microsoft Office Excel	1	15.08.2008 17:18
Помогите с формулой	ivkoa	Microsoft Office Excel	7	28.07.2008 15:21
ПОМОГИТЕ С ФОРМУЛОЙ	А^ександр	Microsoft Office Excel	6	19.02.2008 10:17

11.11.2008, 14:06	#5
slonik Регистрация: 11.11.2008 Сообщений: 4	нужно конечно))