[seman]

Друзья помогите решить задачу плиз.

Есть расписание, делается оно каждый месяц.
необходим макрос при выполнении которого все субботы и воскресенья отмечаются буквой О.
Можно ли реализовать?

[zip_ukraine]

Есть компьютер в доменной сети(на нем стоит office 2003 с руским mui, на всех компах сети стоит тожесамое), есть проблема, когда в любом документе ексель жмеш на "Вид>разметка страници" ексель зависает на секунд 20-30, если в етом режиме(разметка страници) двигать синие линии(очертания будущего листа для печати) то оно опять тормозит, сдвинул чуть линию жди секунд 15-20 и так при каждом перемещении. НО вот что я заметил, если взять и отключить сеть(всегда при переходе в режим "разметка страници" и перемещения синих линий, сетевые мониторы возле часов начинали показывать активность сети, кагбудто кудато передаються даные и принимаються), то тормоза сразу пропадают и все ок, но как назад включаеш, все повторяеться в новь

Компьютер был проверен антивирусом nod32 с последними базами, офис переставлял, винду трогать нехочу, ето так на крайняк

Если кто что знает пишите, зарание спасибо!!!!

[Codru]

zip_ukraine предпологаю, что на одном из компов сети дублируется база данных, и все изменения передаются по сети.
Посмотрите еще через меню "Сервис" и "Данные", возможно включены какие-либо внешние связи.

[Vygov]

формула с несколькими условиями: Например, простенькая программка типа:

if A1=1 then A1*5 else
if A1=2 then A1*10 и т.д.

Возможно ли сделать это средствами сабжа, только с условием, чтобы значение функции возвращалось в одну и ту же ячейку? Если не ошибаюсь, то функцию IF в Excel позволяется использовать в одной ячейке один раз. Может как-то через значение false возвращать обратно? Кроме способа возвращать неверное значение в другую ячейку, с оответственно с другой формулой. Участвовать должны только две ячейки - 1) переменное значение, 2) формула с выводом результата.

[Pliomera]

Если не ошибаюсь, то функцию IF в Excel позволяется использовать в одной ячейке один раз »

Кто Вам это сказал?????

Что мешает написать в ячейке конструкцию вида =IF(A1=1;A1*5;IF(A1=2;A1*10;IF(A1=3;A1*15;A1*20)))

Допускается до 7 вложений функции IF (в русской версии ЕСЛИ)

необходим макрос при выполнении которого все субботы и воскресенья отмечаются буквой О »

Нафига тут макрос?

Пусть в строке 4 записаны даты. В ячейке B5 напротив фамилии пишешь: =IF(WEEKDAY(B$4)>5;"O";"")
Протягиваешь формулу на все расписание. Копируешь. Вставляешь как значение. Результат - в столбцах напротив суббот и воскресений стоит литера "О", в прочих - ничего.

Можно конечно и макросом, но зачем? Либо я неверно понял задачу.

[Vygov]

Кто Вам это сказал????? »

Значит, я ошибся. Но значений все равно будет больше 7. Что применить в таком случае?

[Pliomera]

Что применить в таком случае? »

Код:

Sub Superpupermacros()

Select Case Cells(1, 1).Value

Case 1: Cells (1, 2).Value = Cells(1, 1).Value * 5
Case 2: Cells (1, 2).Value = Cells(1, 1).Value * 10
Case 3: Cells (1, 2).Value = Cells(1, 1).Value * 15
Case 4: Cells (1, 2).Value = Cells(1, 1).Value * 20
...
Case 2000000: Cells (1, 2).Value = Cells(1, 1).Value * 10000000
...

End Select

End Sub

[Alexej77]

Вместо этого

Код:

if A1=1 then A1*5 else  
if A1=2 then A1*10

и этого

Код:

=IF(A1=1;A1*5;IF(A1=2;A1*10;IF(A1=3;A1*15;A1*20)))

можно написать это

Код:

=A1*A1*5

Вместо этого

Код:

Select Case Cells(1, 1).Value    
Case 1: Cells (1, 2).Value = Cells(1, 1).Value * 5  
Case 2: Cells (1, 2).Value = Cells(1, 1).Value * 10  
Case 3: Cells (1, 2).Value = Cells(1, 1).Value * 15  
Case 4: Cells (1, 2).Value = Cells(1, 1).Value * 20  
...  
Case 2000000: Cells (1, 2).Value = Cells(1, 1).Value * 10000000  
...    
End Select

можно написать это

Код:

Cells (1, 2).Value = Cells(1, 1).Value * Cells(1, 1).Value * 5

[spring_night]

Проблема заключается вот в чем:
файл в Excel, после работы в нем, сохранили и закрыли, после чего образовалось два файла; остался непосредственно тот в котором работали и образовался еще один с таким же именем только в конце добавилась 1 и нет расширения файла!!!! и теперь ни один ни другой файл не открывается, не копируется, не удаляется и т.д. и т.п.
Вопрос: Что произошло и как это исправить????????

[Vadikan]

spring_night, версия Excel?