сори ступил...  
 
=ЕСЛИ(A1>2;(A1^2+A1)^0,5;COS(A1)^2)

=ЕСЛИ(A1>2;(A1^2+A1)^0,5;COS(A1)^2)  
так может бить??

О как всьо просто оказалось..  
Бальшое спасибо  
а В таком случає, начало єсть =ЕСЛИ(A1>2;(A1^2+A1)^0,5),а как бить с сосинусом в "значениє если лож"

Добрий день. Помогите пожалуста провести вычисление для произвольных значений x.  
Для разветвления вычислений необходимо воспользоваться функцией ЕСЛИ.  
Не пойму как ето нужно сделать.

Добрий день. Помогите пожалуста провести вычисление для произвольных значений x.  
Для разветвления вычислений необходимо воспользоваться функцией ЕСЛИ.  
Не пойму как ето нужно сделать.

Подскажите функции для работы с переменными String, а точнее:  
как узнать длинну символов  
выбор одного символа из всей последовательности  
а точнее - есть несколько переменных типа String, необходимо проверить в них наличие одного символа, если он присутствует то все хорошо и мы работаем дальше, а если нет то ишем в следующей переменной.

OK, большое спасибо!!! Как говорится, век живи, век учись :)

Согласен, они убирутся после сохранения. А как это сделать на VBA?    
Пишу ThisWorkbook.Saved = True, но это не помогает.

В общем такая проблемма - нужно очистить лист Excel от всех данных, который заведомо уже имеет на нем несколько таблице, а затем продолжить работу с этим листом.    
Я делаю так:  
нахожу границу данных на листе которые нужно удалить  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
и затем делаю так:  
Worksheets("Лист1").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Delete  
или можно еще так:  
Worksheets("Лист1").Cells.ClearContents  
в результате лист чист :)  
 
но если проделать еще раз:  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
т.е. попытаться узнать границы листа где есть данные, получим что они не изменились, т.е. как будто бы на листе есть данные.  
Можно ли с этим как-то бороться?

Огромное спасибо!!!!!!!!  После этого все прекрасно заработало. Спасибо, что так долго со мной возились и все таки нашли решение!

Текст програмки такой:  
 
Sub pil_load()  
Dim RngAddress As String  
Dim Rng As Range  
Dim LastRowMyBook As Long  
   With Application.FileSearch  
       .NewSearch  
       .LookIn = "c:\"  
       If .Execute() > 0 Then  
           MsgBox "Найдено " & .FoundFiles.Count & " файлов."  
           For i = 1 To .FoundFiles.Count  
               Name_file = .FoundFiles(i)  
               Workbooks.Open Filename:=Name_file  
               Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
               LastRow = aRange.Row  
               LastColumn = aRange.Column  
               LastRowMyBook = ThisWorkbook.Worksheets("Лист1").Cells(1, 1).SpecialCells(xlLastCell).Row  
               RngAddress = Range(Cells(LastRowMyBook, 1), Cells(LastRowMyBook + LastRow, LastColumn)).Address  
               Sheet.Range(Cells(1, 1), Cells(LastRow, LastColumn)).Copy Destination:=ThisWorkbook.Worksheets("Лист1").Range(RngAddress)  
               
           Next i  
       Else  
           MsgBox "123"  
       End If  
   End With  
End Sub  
 
 
макрос запускается из отдельного файла, ищет все файлы ексель на диске С, и копирует содержимое их первого листа в первый лист открытого документа. Т.о. должен получится один документ где на первом листе будут записаны таблицыв со всех ексель документов

Да они все существуют. А вообще я с первым листом работаю. Пишу его в строке, но ошибка такая же :(

:)

Help! Help! :)

Просто книги содержат некоторые оформленные таблицы, которые нужно собрать в одну книгу и на одну страницу, т.е. есть несколько книг по одной таблице в каждой. нужно все эти таблицы скопировать в отдельную книгу на один лист!!!   Сори, что не написал сразу подробно.

Спасибо! НО мне нужно скопировать не только значения ячеек, но и все оформление листа. Просто книги содержат некоторые оформленные таблицы, которые нужно собрать в о дну книгу.

Попробовал. К сожалению выскакивает такая же ошибка :(

Т.е., если проще говоря, каким образом можно скопировать данные из одной книги Excel в другую, при этом две книги должны быть открыты.

Подскажите ответ!  
При работе макроса открывается уже существующая книга, из нее копируются данные и вставляются в текущую книгу. Я сделал этот так:  
name_file - имя книги из которой копируются данные  
 
Workbooks.Open Filename:=Name_file  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
Worksheets("Лист1").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Copy  
 
т.е. открываем книгу,находим последние ячейки, выделяем  и копируем все содержимое, затем:  
 
ThisWorkbook.Activate  
Worksheets("Лист1").Select  
Worksheets("Лист1").Paste  
 
т.е. делаем активной текущую книгу, переходим на "Лист1" и вставляем данные.  
При выполнении выскакивает ошибка:  
"Run-time error 1004.  Метод Paste из класса Worksheet завершен неверно"  
В чем дело? Может ThisWorkbook.Activate использовать не нужно?  
Тогда как поступить в этом случае?