1. возьмите формулу расчета ликвидности.  
2. введите ее в ячейки.  
3. используйте офис 2007 или старше - не нужно будет возиться с массивами.

{quote}{login=GIG_ant}{date=18.10.2011 12:21}{thema=}{post}при выделении диапазона ячеек в переменную target попадает не одна ячейка а весь диапазон. Вот и обрабатывайте его соответственно:  
 
Dim r as range  
For Each r in Target  
....  
 
Next r{/post}{/quote}  
 
Спасибо большое! Так легко и просто)

{quote}{login=vikttur}{date=18.10.2011 12:11}{thema=}{post}В теме рядом есть код:  
http://www.planetaexcel.ru/forum.php?thread_id=32938{/post}{/quote}  
 
Это просто обработка события по одной ячейке, а мне нужно, чтобы обработка проводилась по всему диапазону, который выделен и изменен (для каждой ячейки этого диапазона).

Добрый день!  
 
Возникла небольшая трудность с обработкой события Chаnge. При удалении данных в ячейке выполняется соответствующий программный код и все нормально. Но если выделить диапазон ячеек, то код выполняется только для одной ячейки.  
 
Как заставить Excel выполнять этот код для каждой ячейки при обработке события Change?

{quote}{login=Юрий М}{date=09.09.2011 12:01}{thema=}{post}А после удаления сохранились?{/post}{/quote}  
 
Да сохранял. Потом много раз открывал. Еще раз удалял пустые колонки, чистил ячейки... но все в ....

{quote}{login=Казанский}{date=09.09.2011 11:52}{thema=}{post}Закрыть-открыть книгу или Alt+F11, Ctrl+G, activesheet.usedrange<Enter>  
Этим обновляется "последняя ячейка".{/post}{/quote}  
 
Не помогло(

Добрый день!  
 
В Excel ползунок горизонтальной прокрутки листа ориентируется на количество заполненный колонок.  
 
Столкнулся с такой проблемой. После удаления большого количества колонок, ползунок горизонтальной прокрутки не изменил диапазон прокрутки "по умолчанию".  
 
Как можно это исправить?

Спасибо. Вот это я заработался)))

Подскажите почему моя процедура выдает такую ошибку:  
1004: "Method 'GetOpenFileName' of object '_Application' failed"  
 
Sub SupplementDatabase()  
 
Dim strFileDataSource As String  
Dim strFilter As String  
Dim strTitle As String  
 
strFilter = "Файл БД, *,xlsb"  
strTitle = "Выбор БД"  
strFileDataSource = Application.GetOpenFilename(FileFilter:=strFilter, _  
Title:=strTitle, MultiSelect:=False)  
 
End Sub

функции МИН и МАКС

Функции Excel =АПЛ, =АСЧ, ну или посложнее =АМОРУВ, =АМОРУМ

Для проверки пользователя используй - Application.UserName  
 
А дальше стандартно:  
Sub UserName()  
Dim User As String  
Dim sht As Worksheet  
User = Application.UserName  
For Each sht In Worksheets  
   If sht.Name = User Then sht.Visible = True  
Next sht  
End Sub  
 
И в событие Workbook_BeforeClose добавь скрытие листа обратно.

Сделай все в одном файле. Для каждого человека отдельный лист и общую форму выбора пользователя (с паролем если нужно:))  
Листы файла подвяжи к выбранному пользователю из формы (остальные будут спрятаны, а у шефа админские права)

Для корректной работы поиска решений:  
1. поставьте параметры поиска по умолчанию;  
2. Все значения поставьте в числовом формате.

Если Ваш файл небольшой и его можно просмотреть "глазками", то Формулы-Зависимости формул-Показать формулы)  
 
П.С. у меня 2007 дает общий доступ к книгам с формулами массивов, и после их удаления (переделывания) тоже.  
 
П.П.С. если Ваша книга получила общий доступ с формулами массивов, то для их удаления нужно снять защиту с общей книги, отменить общий доступ, убрать формулы массивов.

Для решения Вашей задачи используйте процедуру обработки события Листа Change  
Private Sub Worksheet_Change(ByVal Target As Range)  
переменная target получит значение измененной ячейки и его вы сможете скопировать куда вам надо.  
Как-то так)

Для тех кому понадобится этот пример:  
 
Dim MyStr as string  
MyStr = Left(Worksheets("лист1").Range("A1").Value, InStr(Worksheets("лист1").Range("A1").Value, " ")-1)  
If MyStr = Worksheets("лист1").Name Then  
MsgBox "Все пропало, шеф! Все пропало!"  
End If  
 
Работает без len

{quote}  
Dim MyStr as string  
MyStr = Left(Worksheets("лист1").Range("A1").Value, Len(InStr(Worksheets("лист1").Range("A1").Value, " ")-1)  
If MyStr = Worksheets("лист1").Name Then  
MsgBox "Все пропало, шеф! Все пропало!"  
End If  
 
как-то так?{/quote}  
 
Спасибо!

{quote}{login=Юрий М}{date=18.02.2011 12:18}{thema=}{post}Вам нужно точное совпадение и вхождение (частичное)?  
"для сравнения текста в ячейке одного листа с названием другого"  
Сравнивать текст в ячейке одного листа с НАЗВАНИЕМ другого листа?{/post}{/quote}  
 
Сравнение по вхождению названия листа в текст ячейки

Добрый день!  
Подскажите каким образом в VBA можно задать условие для сравнения текста в ячейке одного листа с названием другого?  
Текст в ячейке - 56-43 АА АЕ гр  
Название листа - 56-43  
 
Также встречаються варианты:  
Текст в ячейке - 256-43 АА гр  
Название листа - 256-43  
 
Это условие мне нужно использовать в конструкции IF - THEN  
 
Зарание спасибо