Валерий писал(а):
Вы забодали всех своим макросом. Вы думаете я не знаю, что такое макрос? Я в своих схемах понаставил по три макроса, а затем забыл какой кнопкой и в какой последовательности они включаются. И получился хлам, в котором мне самому надо еще раз разбираться и вспоминать.
Так вот вместо халва, халва, халва лучше бы вы дали описание макроса 1. А его то и нету. Тю-тю.
И это серьезно?
А лучше всего - сделайте изменение, которое я привел и сами воспользуйтесь макросом 1. Во смеху-то будет!
Макрос тупой, как валенок:
Цитата:
Sub Макрос1()
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
Range("G4").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E4")
Range("G5").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E5")
Range("G6").GoalSeek Goal:=Range("K4"), ChangingCell:=Range("E6")
End Sub
Значение I abs в ячеках D4, D5, D6 (посредством изменения значения m в ячейках Е4, Е5, Е6, так как они связаны формулами в ячейках) несколько раз подряд для увеличения точности подгоняется так, чтобы значения степени эксплуатации в разных департаментах было равно значению, заданному в ячейке К4.
Это имитация реально действующего в реальной экономике механизма выравнивания степени эксплуатации на разных предприятиях.
И именно поэтому если установить в ячейке К4 значение 25,297 и выполнить макрос, то в ячейке Е4 установится значение 600. (если остальные значения не менять)
А если сделать изменение, которое вы привели и выполнить макрос, то введенное вами значение просто изменится на записанное макросом. Смеяться-то с чего?