Ха-Ха  
А преподователь тоже не знает

Все таки озадачил...

Ты или знаешь, или нет.  
Не так уж сложно поделиться решением.  
 
PS    
Я не прошу за меня решать задачу.  
Подскажите хоть где есть ответ (по существу).

Вот это озадачил?

Спасибо за ответ!  
Все эти ссылки для другого и мне не подходят.  
Приклепляю файлик где указан принцип который мне нужен при копировании (лист-Необходимо), а поверхность я построю сам.  
Какие будут идеи?

Типа ни кто не знает?  
Даже гении екселя?

Люди! Спасайте!    
Помогите построить поверхность при x, принадлежащим[-3,3] шаг 0,1
y=sin^2(x)/2*|x|  
массив - z=5*x^2*cos^2(y)/2*y^2*e^y    
х-задается в столбик,  
у-в ряд з ссылкой на "х" в столбце.  
С иксами и массивом все понятно, а как правильно написать формулу для "у", чтобы при копировании в ряд она ссылалась по порядку на столбец иксов?    
Заранее человеческое спасибо!

{quote}{login=}{date=04.11.2010 01:12}{thema=Re: Вот студенты пошли.}{post}{quote}{login=slav}{date=04.11.2010 12:37}{thema=Вот студенты пошли.}{post}Даже в поисковике ленятся ввести "построение поверхности в Excel". На первой же странице множество ссылок.{/post}{/quote}  
 
А те ссылки не дают ответ на мой вопрос.  
Буду благодарен если просто подскажешь как построить поверхность с двумя функцыями.

{quote}{login=ZxCvB}{date=10.01.2010 01:02}{thema=поверхности}{post}помогите построить поверхность при x,y принадлежащим[-1,1] z=5*x^2*cos^2(y) - 2*y^2*e^y заранее спасибо!{/post}{/quote}
 
Подскажите пожалуйста.  
Как правильно написать формулу для "y" если у этой поверхности y=5*x^2.  
За ранее спасибо!

up

спасибо всем за помощь - теперь пользуюсь этим кодом для отчета.  
 
единственное постоянно возникают вопросы - которые сильно мешают:  
 
1. Из файла с этим кодом - нельзя скопировать данные (выделение + копирование) и вставить в другой файл.  
 
2. очень часто, при открытии - слетает закрепление первой строки    
 
3. также есть глюк - но это наверное уже в офисе 2010 - когда обновляешь данные - на экране появляется глюк - текст из другого листа - и пока не свернешь не развернешь - на экране фигня какая то.  
 
4. также вопрос по офису 2010 - начал этот файл открывать в этом офисе. теперь в 2003 не открывается - говорит, что какое то повреждение серьезное. хотя сохраняю файл именно как 2003

с кнопкой пароль разобрался.  
 
остался главный вопрос - как сделать чтобы этот макрос работал не на всю книгу, а только на нужный мне лист?  
 
и кстати - как дописать этот код, чтобы группировка работала?  
 
на всякий случай - вот код  
 
' ZVI:2006-07-24 v03    Защита ячеек от изменений после ввода значения  
' ZVI:2008-10-16 v03-01 http://www.planetaexcel.ru/forum.php?thread_id=4981  
' ZVI:2010-01-08 v03-02 http://www.planetaexcel.ru/forum.php?thread_id=12547  
 
Const WsPwg = "1"     ' Пароль листов и книги  
Const PwdRange = "d2:j2000,s2:z2000"   ' Список контролируемых диапазонов ячеек  
Const ПопытокМакс = 5       ' Кол. попыток ввода пароля до блокировки  
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
 УстановитьЗащиту  
 
End Sub  
 
' Событие загрузки книги  
Private Sub Workbook_Open()  
 УстановитьЗащиту  
 ' После ввода перемещаться вправо. Закомментировать строчку ниже, если такое перемещение не требуется  
 Application.MoveAfterReturnDirection = xlToRight  
End Sub  
 
Private Sub Workbook_Deactivate()  
 Application.MoveAfterReturnDirection = xlDown  
End Sub  
 
' Выход: Восстановление перемещения вниз (обычно используется по умолчанию)  
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
 Application.MoveAfterReturnDirection = xlDown  
End Sub  
 
 
'  ' Событие изменения книги - отключено для версии v03-02  
'  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
'    Dim x As Range  
'    On Error Resume Next  
'    ' Если изменения были не в контролируемом диапазоне, то выйти  
'    Set x = Application.Intersect(Target, Range(PwdRange))  
'    If x Is Nothing Then Exit Sub  
'    ' Если было удаление ячейки, то выйти (удаление до первого ввода разрешено)  
'    If Len(x(1, 1)) = 0 Then Exit Sub  
'    ' Установить защиту ячейки  
'    x.Locked = True  
'    ' Изменить цвет фона  
'    x.Interior.ColorIndex = 40  
'    ' Включить защиту всех листов, если активный не защищен (антисклероз)  
'    If Not Target.Parent.ProtectContents Then  
'      Call УстановитьЗащиту  
'    End If  
'  End Sub  
 
' Код кнопки 'Пароль' - ввод/снятие пароля на все листы и книгу  
Private Sub Пароль()  
 Dim x  
 On Error Resume Next  
 With ActiveSheet  
   ' Вызвать диалог снятия пароля  
   If .ProtectContents Then  
     ' Обновить счетчик попыток снятия пароля  
     [Попыток] = [Попыток] + 1
     ' Диалог снятия защиты листа  
           Application.Dialogs(xlDialogProtectDocument).Show  
   Else  
     ' Пароль ранее был снят - предложить установить его  
     x = MsgBox("Установить пароль?", vbYesNo + vbInformation)  
     If x = vbYes Then  
       Call УстановитьЗащиту  
     Else  
       ' После блокировки и ручного ввода пароля  
       ' можно открыть все листы, если нажав кнопку,  
       ' отказаться от предложени установки пароля  
       Call СнятьЗащиту  
     End If  
     Exit Sub  
   End If  
   ' Неудачная попытка снятия пароля  
   If .ProtectContents Then  
     ' Предупредить  
     MsgBox "Пароль не правильный", vbCritical  
   Else  
     Call СнятьЗащиту  
   End If  
 End With  
End Sub  
 
' Установить защиту всех листов  
Private Sub УстановитьЗащиту()  
 Dim Sh As Worksheet, x  
 ' Отключить тормоза  
 On Error Resume Next  
 Application.ScreenUpdating = False  
 Application.EnableEvents = False  
 ' Обработать все листы  
 For Each Sh In Sheets  
   ' Защитить лист паролем, разрешить работу макросов  
   Sh.Protect Password:=WsPwg, UserInterfaceOnly:=True, _  
              DrawingObjects:=True, Contents:=True, Scenarios:=True, _  
              AllowInsertingColumns:=True, AllowInsertingRows:=True, _  
              AllowDeletingColumns:=True, AllowDeletingRows:=True  
   ' Запретить выбор защищенных ячеек  
    Sh.EnableSelection = xlUnlockedCells  
   ' Поставить защиту на все непустые ячейки  
   Set x = Application.Intersect(Sh.Range(PwdRange), Sh.Cells.SpecialCells(xlCellTypeConstants))  
   If Not x Is Nothing Then  
     With x  
       .Locked = True  
       .Interior.ColorIndex = 34  
     End With  
   End If  
 Next  
 ' Скрыть служебный лист  
 [Попыток] = 0
 [Попыток].Locked = True
 Скрытый.Visible = xlSheetVeryHidden  
 ' Установить защиту книги  
 ThisWorkbook.Protect Password:=WsPwg  
 ' Включить тормоза  
 Application.ScreenUpdating = True  
 Application.EnableEvents = True  
 ' Сообщить об установке защиты  
 MsgBox "Пароль установлен на все листы", vbOKOnly + vbInformation  
End Sub  
 
' Снять защиту всех листы  
Private Sub СнятьЗащиту()  
 Dim Sh As Worksheet  
 ' Отключить тормоза  
 On Error Resume Next  
 Application.ScreenUpdating = False  
 Application.EnableEvents = False  
 ' Обработать все листы  
 For Each Sh In Sheets  
   Sh.Unprotect Password:=WsPwg  
   If Sh.Name <> Скрытый.Name Then  
     Sh.Range(PwdRange).Interior.ColorIndex = 0  
     Sh.Range(PwdRange).Locked = False  
   End If  
 Next  
 ' Снять защиту книги  
 ThisWorkbook.Unprotect Password:=WsPwg  
 ' Открыть служебный лист  
 Скрытый.Visible = xlSheetVisible  
 ' Включить тормоза  
 Application.ScreenUpdating = True  
 Application.EnableEvents = True  
 ' Сообщить о снятии защиты  
 MsgBox "Все листы разблокированы", vbOKOnly + vbInformation  
End Sub

кстати - приму помощь любого кто разбирается в макросах - не только ZVI

ZVI - вы можете помочь Ваш код немного переделать для меня?  
1 - возможно ли сделать, чтобы он работал, только на нужных мне листах)?  
2 - кнопка пароль не работает при копировании в другую книгу (пробовал на нее макрос прописывать - помогает - только для постановки пароля, а вот для снятия нет)

Нужно окончание в процедуре для перехода на русский

{quote}{login=катя}{date=09.11.2008 11:46}{thema=проблема}{post}не могу забить значение в Excel 0,01 или 1,01, короче одну сотую, при переходе на другую ячейку появляется значение соответ. 0,02 или 1,02? если вбить формулу, типа =0,05-0,04, то нормально-0,01, если формула =0,05-0,01, то результат 0,03, помогите с проблемой, (переустановка Office не помогает) или подскажите как удалить полностью из реестра данную ошибку{/post}{/quote}

Ребят помогите!!!

Спасибо! А закрыл почему, так, под руку попался, подумал, чего он еще висит мне, итак файлов много одновременно открыто...Вот и закрыл :-)Сейчас буду пробовать...Надеюсь получится..

Когда первый раз открыл - была. Я ее закрыл. Теперь решил написать макрос, выскакивает окно, что должна быть открыта книга, ну я нажимаю на иконку Excel, будто заново запускаю, открывается файл Personal.xls. Но если я захожу переключаюсь в книгу, где надо написать макрос и пытаюсь его написать, то заново таже проблема. В редакторе VBA в открытых книгах Personal.xls, хотя она окрыта...Или я уже туплю или Excel тупит, одно из двух, третьего не дано :-)

Если я правильно понимаю, то личная книга макросов, это и есть Personal.xls? Как можно ее открыть, чтобы записать макрос, если ты ее закрыл при первом открытии, а сейчас уже 10 открытыъ файлов Excel в работе?

{quote}{login=}{date=21.03.2008 10:29}{thema=}{post}Можно{/post}{/quote}  
а как

{quote}{login=}{date=21.03.2008 10:16}{thema=}{post}А если умножить на (-1)? Не пробовали?{/post}{/quote}  
А можно сделать макрос, чтоб автомат-ки....минус на плюс делал

Всем Доброго дня!!!  
Помогите, пожалуйста….  
Как сделать (может быть, макрос), чтобы ячейки, в которых стоят числа со знаком (-)  
автоматом переводились на (+).  
Спасибо.

{quote}{login=Николай}{date=29.02.2008 11:46}{thema=Помогите пожалуйста}{post}Подскажите пожалуйста как привязать файл к календарю чтобы после внесения каких либо данных в ячейку строки выставлялась дата произведенных изменений в какой либо из ячеек на против, и в конце месяца собирался отчет    
(что пришло на склад, что продано и что ушло)  
Напишите пожалуйста какой примерный вид формул.  
 
Спасибо.{/post}{/quote}  
Посмотри, это?

{quote}{login=Николай}{date=29.02.2008 11:46}{thema=Помогите пожалуйста}{post}Подскажите пожалуйста как привязать файл к календарю чтобы после внесения каких либо данных в ячейку строки выставлялась дата произведенных изменений в какой либо из ячеек на против, и в конце месяца собирался отчет    
(что пришло на склад, что продано и что ушло)  
Напишите пожалуйста какой примерный вид формул.  
 
Спасибо.{/post}{/quote}  
Посмотри, это?

{quote}{login=Денис}{date=28.02.2008 05:42}{thema=Информация по функции ProUSDcent}{post}Помогите найти информацию по этой функции.{/post}{/quote}  
А что это такое?

{quote}{login=Денис}{date=28.02.2008 05:42}{thema=Информация по функции ProUSDcent}{post}Помогите найти информацию по этой функции.{/post}{/quote}  
А что это такое?

По таблице не понять - где вещи, а где пассажиры?

По таблице не понять - где вещи, а где пассажиры?

Со второй тоже не вышло;((