Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как сделать чтобы формула не удалялась при введении значений в ячейку
 
#1
07.12.2024 11:56:09

К примеру, в ячейках C6 по AG есть такая формула:
=ЕСЛИ(C5=15;2;ЕСЛИ(C5=9;6;ЕСЛИ(C5=24;8;" ")))
Я хочу иметь возможность записывать в  ячейки С6 по AG свои данные.

 К примеру, я хочу написать в ячейку C6 30 но при этом чтобы формула не удалилась.

как это прописать как в ячейке В10

 
 
 
#2
07.12.2024 11:58:40
Цитата
Виктор написал:
чтобы формула не удалялась при введении значений в ячейку
Никак. В ячейке может быть или формула или значение.
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
07.12.2024 12:04:42
А может как то макросом прописать как в ячейке В10
 
 
 
#4
07.12.2024 12:10:42
Что прописать? Цифру 8? И что-бы формулы остались?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
07.12.2024 12:16:00
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Set nRng = Range("A10")
    
    tr = Target.Row
    tc = Target.Column
    
    If Intersect(Target, nRng) Is Nothing Then Exit Sub
    
    If IsEmpty(Target) Then Target.Offset(, 1).Clear
    
    If Cells(tr, tc).Value Like "15" Then
        Cells(tr, tc).Offset(, 1).Value = "2"
    End If
    
    If Cells(tr, tc).Value Like "24" Then
        Cells(tr, tc).Offset(, 1).Value = "8"
    End If
    
    If Cells(tr, tc).Value Like "9" Then
        Cells(tr, tc).Offset(, 1).Value = "6"
    End If
    
End Sub
 
 
 
#6
07.12.2024 12:17:50
только тоже самое на для ячеек C6 по AG6 что бы при вводе в ячейки  C6 по AG5   значения 15,9,24
 
 
 
#7
07.12.2024 12:17:59
Словами можете сказать, что Вы хотите? Для чего этот код?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
07.12.2024 12:22:01
Цитата
написал:
Я хочу иметь возможность записывать в  ячейки С6 по AG свои данные.
А в ячейке что должно отобразиться, вычисление формулы или то что вы вписали руками, и почему именно это? Хотите чтото вписать руками, измените формулу в ячейке. Замените в нужной ячейке в формуле " " на нужное значение. При соблюдении условий будет значение формулы, а при не выполнении будет то число которое вы внесёте.
 
 
 
#9
07.12.2024 12:23:18
Цитата
Виктор написал: что бы при вводе в ячейки  C6 по AG5   значения 15,9,24...
...происходило ЧТО???
Я извиняюсь, возможно Вы не русский, и не можете сформулировать задачу...
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
07.12.2024 12:34:02
вообщем хочу применить  указанный код не на горизонтальные ячейки а на вертикальные на диапазон с С6 по AG6  и на С9 по AG9
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Set nRng = Range("A10")
    
    tr = Target.Row
    tc = Target.Column
    
    If Intersect(Target, nRng) Is Nothing Then Exit Sub
    
    If IsEmpty(Target) Then Target.Offset(, 1).Clear
    
    If Cells(tr, tc).Value Like "15" Then
        Cells(tr, tc).Offset(, 1).Value = "2"
    End If
    
    If Cells(tr, tc).Value Like "24" Then
        Cells(tr, tc).Offset(, 1).Value = "8"
    End If
    
    If Cells(tr, tc).Value Like "9" Then
        Cells(tr, tc).Offset(, 1).Value = "6"
    End If
    
 
 
 
#11
07.12.2024 12:34:03
Вам это нужно?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N
If Not Intersect(Target, Union(Range("C5:AG5"), Range("C8:AG8"))) Is Nothing And Target.Count = 1 Then
  Application.EnableEvents = False
  Select Case Target.Value
    Case Is = 9
      N = 6
    Case Is = 15
      N = 2
    Case Is = 24
      N = 8
    Case Else
      N = ""
  End Select
  Target.Offset(1) = N
End If
Application.EnableEvents = True
End Sub
Изменено: Sanja - 07.12.2024 12:46:42
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
07.12.2024 12:53:27
Вроде вставил код не пойму почему не работает
 
 
 
#13
07.12.2024 13:26:25
Да то что надо

СПАСИБО ОГРОМНОЕ  :D !!!!
Изменено: Виктор - 07.12.2024 13:38:09
 
 
 
#14
08.12.2024 13:06:32
Подскажите как  сделать что бы  дынный код запускался только когда  в ячейке С4:AG4  и  С7:AG4   стоит буква М  
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N
If Not Intersect(Target, Union(Range("C5:AG5"), Range("C8:AG8"))) Is Nothing And Target.Count = 1 Then
  Application.EnableEvents = False
  Select Case Target.Value
    Case Is = 9
      N = 6
    Case Is = 15
      N = 2
    Case Is = 24
      N = 8
    Case Else
      N = ""
  End Select
  Target.Offset(1) = N
End If
Application.EnableEvents = True
End Sub
Изменено: Виктор - 08.12.2024 13:07:16
 
 
 
#15
08.12.2024 13:16:25
См.файл
Согласие есть продукт при полном непротивлении сторон
 
 
 
#16
08.12.2024 13:26:10
Спасибо.
 
 
 
Страницы: 1
Наверх