Показать полную графическую версию : [архив] Microsoft Excel 2003 и более ранние версии
Друзья помогите решить задачу плиз.
Есть расписание, делается оно каждый месяц.
необходим макрос при выполнении которого все субботы и воскресенья отмечаются буквой О.
Можно ли реализовать?
http://img515.imageshack.us/img515/8341/excpw2.th.jpg (http://img515.imageshack.us/my.php?image=excpw2.jpg)http://img515.imageshack.us/images/thpix.gif (http://g.imageshack.us/thpix.php)
zip_ukraine
03-10-2008, 10:58
Есть компьютер в доменной сети(на нем стоит office 2003 с руским mui, на всех компах сети стоит тожесамое), есть проблема, когда в любом документе ексель жмеш на "Вид>разметка страници" ексель зависает на секунд 20-30, если в етом режиме(разметка страници) двигать синие линии(очертания будущего листа для печати) то оно опять тормозит, сдвинул чуть линию жди секунд 15-20 и так при каждом перемещении. НО вот что я заметил, если взять и отключить сеть(всегда при переходе в режим "разметка страници" и перемещения синих линий, сетевые мониторы возле часов начинали показывать активность сети, кагбудто кудато передаються даные и принимаються), то тормоза сразу пропадают и все ок, но как назад включаеш, все повторяеться в новь
Компьютер был проверен антивирусом nod32 с последними базами, офис переставлял, винду трогать нехочу, ето так на крайняк
Если кто что знает пишите, зарание спасибо!!!!
zip_ukraine предпологаю, что на одном из компов сети дублируется база данных, и все изменения передаются по сети.
Посмотрите еще через меню "Сервис" и "Данные", возможно включены какие-либо внешние связи.
формула с несколькими условиями: Например, простенькая программка типа:
if A1=1 then A1*5 else
if A1=2 then A1*10 и т.д.
Возможно ли сделать это средствами сабжа, только с условием, чтобы значение функции возвращалось в одну и ту же ячейку? Если не ошибаюсь, то функцию IF в Excel позволяется использовать в одной ячейке один раз. Может как-то через значение false возвращать обратно? Кроме способа возвращать неверное значение в другую ячейку, с оответственно с другой формулой. Участвовать должны только две ячейки - 1) переменное значение, 2) формула с выводом результата.
Pliomera
06-10-2008, 16:19
Если не ошибаюсь, то функцию 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";"")
Протягиваешь формулу на все расписание. Копируешь. Вставляешь как значение. Результат - в столбцах напротив суббот и воскресений стоит литера "О", в прочих - ничего.
Можно конечно и макросом, но зачем? Либо я неверно понял задачу.
Кто Вам это сказал????? »
Значит, я ошибся. Но значений все равно будет больше 7. Что применить в таком случае?
Pliomera
06-10-2008, 17:47
Что применить в таком случае? »
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
06-10-2008, 23:11
Вместо этого
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
06-10-2008, 23:38
Проблема заключается вот в чем:
файл в Excel, после работы в нем, сохранили и закрыли, после чего образовалось два файла; остался непосредственно тот в котором работали и образовался еще один с таким же именем только в конце добавилась 1 и нет расширения файла!!!! и теперь ни один ни другой файл не открывается, не копируется, не удаляется и т.д. и т.п.
Вопрос: Что произошло и как это исправить????????
spring_night, версия Excel?
spring_night
06-10-2008, 23:43
Excel 2000
Pliomera
07-10-2008, 00:01
Alexej77, безусловно это так, но только в случае наличия такой примитивной зависимости. В противном случае (если значение в результирующей ячейке зависит от значения в исходной по-разному) - такой финт не пройдет.
spring_night, закройте Excel и перезагрузите компьютер. Попытайтесь открыть каждый из файлов. Если при этом выводится сообщение об ошибке, опубликуйте его. Если не выводится, расскажите, что при этом происходит.
spring_night
07-10-2008, 10:45
При открытии одного и другого файла выводиться два сообщения:
Первое: "Ошибка доступа к документу допускающему доступ только для чтения"
Второе: "Нет доступа"
spring_night, проверьте права на файл [решено] Как получить доступ к файлу или папке (http://forum.oszone.net/thread-41825.html)
Есть таб. 1 и таб. 2.
Необходимо сравнить таб. 2 с таб.1 на наличие совпадающих полей и вывести результат сравнения в таб. 3 (какие поля совпали)
Заранее благодарю.
по форме табл.1 и 2 по структуре полностью идентичны или поля для сравнения по разным адресам?
по структуре полностью идентичны, разница в том, что в таб. 1 значение не изменяются, а только добовляются новые, а таб 2 имеет значения которые нужно просто сравнить с наличием похожих, если есть похожие то вывести их в таб 3. и не добовлять и добавить новые.
Копируете или перетаскиваете один из файлов в какую либо папку пустую на корнеой директории (чтоб искать было удобно) заходите в CMD (пуск -выполнить-cmd) используя команду cd .. - переходите в корневую директорию. Далее cd имя папки - переходите в неё. Набираете attrib - r имя файла - снимаете атрибут "только для чтения. Файл с расширением *.1 - проделываете всё тоже самое.
по структуре полностью идентичны, разница в том, что в таб. 1 значение не изменяются, а только добовляются новые, а таб 2 имеет значения которые нужно просто сравнить с наличием похожих, если есть похожие то вывести их в таб 3. и не добовлять и добавить новые. »
так сделайте это через три листа - на третьем листе в ячейке должно стоять что-то типа
=если(Лист1(А1)=Лист2(А1);Лист1(А1);Лист2(А1))
кажется так, под рукой нет экселя
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2024, Jelsoft Enterprises Ltd.