Очень Вам благодарен, все что мне нужно... Удачи Вам, здоровья!

А все... понял, в архиве выставляю... Извините!

Приветствую всех! Прошу вашей помощи в усовершенствовании формулы, в которой бы учитывался срок окончания расчетов. Пример прилагаю. Заранее благодарен.

Премного благодарен Вам!

Приветствую всех! Прошу вашей помощи... Возможно ли копирование данных за прошлый месяц в столбец следующего месяца  при переименовании (по определенному названию)  файла EXCEL как в приведенном примере?

Ок)

А на примерчике можно посмотреть?) Потестить?

Супер. Спасибо!

По первой таблице подсказали не плохой вариант:  
Ячейка: J12     Формула  (стиль A1):   =ЕСЛИ(ЕНД(ВПР($E12;DB;4;0));"";ВПР($E12;DB;4;0))  
                 Формула  (стиль R1C1): =ЕСЛИ(ЕНД(ВПР(RC5;DB;4;0));"";ВПР(RC5;DB;4;0))

А кто-то сможет мне помочь с макросами?

Добрый день!  
Не нашел подобный пример... Прошу помочь с заполнением данных для отчета. Пример прикреплен.

Спасибо! 4 это LOG10(A75), и получилось =МИН($B$3:$B$75)+LOG10(A75)*(СТОЛБЕЦ(A1)-1)&"-"&МИН($B$3:$B$75)+LOG10(A75)*(СТОЛБЕЦ(B1)-1), буду думать дальше..., жаль только в excel я не силен...

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

Всем привет!  
Помогите решить задание из контрольной по расчетам, подставив формулы!? Пример прилагаю. Спасибо!  
 
<EM><FONT color=#99000><STRONG>Автору: Читайте, полезно:</STRONG></FONT><STRONG></STRONG></EM>  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=8735</EM>

Представляю свой табель на 80 человек для распечатки в формате А3 (некоторые функции: календарь выскакивает двойным щелчком, меняются суб., воскр., праздничные дни не учитываются пока и многое другое), опыт получил на этом форуме, спасибо всем кто помогал!  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=piratxp}{date=07.09.2011 11:12}{thema=Re: Re: Re: Re: }{post}{quote}{login=piratxp}{date=07.09.2011 11:05}{thema=Re: Re: Re: }{post}смотрите пойдет?  
_______________________  
 
 
К сообщению прикреплен файл: post_169520.xls  
 
Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р,  
а вот так:  
О:  
Р  
И чтоб все это вмещалось в одну ячейку? Спасибо.{/post}{/quote}  
 
 
Private Sub CommandButton1_Click()  
Dim i&, str$, str1$  
For i = 0 To ListBox1.ListCount - 1  
       If ListBox1.Selected(i) = True Then  
       str = ListBox1.List(i)  
       str1 = str1 & ":" & str: str = ""  
       End If  
   Next  
     
ActiveCell = Mid(str1, 2)  
End Sub  
 
 
Private Sub UserForm_Initialize()  
ListBox1.List = Range("B17:B21").Value  
End Sub  
 
Что нужно поменять в коде, чтобы исполнить команду Alt+Enter?{/post}{/quote}  
 
 
И еще подскажите пожалуйста, как сделать, чтобы табличка автоматически исчезала после нажатия на клавишу CommandButton1?

{quote}{login=piratxp}{date=07.09.2011 11:05}{thema=Re: Re: Re: }{post}смотрите пойдет?  
_______________________  
 
 
К сообщению прикреплен файл: post_169520.xls  
 
Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р,  
а вот так:  
О:  
Р  
И чтоб все это вмещалось в одну ячейку? Спасибо.{/post}{/quote}  
 
 
Private Sub CommandButton1_Click()  
Dim i&, str$, str1$  
For i = 0 To ListBox1.ListCount - 1  
       If ListBox1.Selected(i) = True Then  
       str = ListBox1.List(i)  
       str1 = str1 & ":" & str: str = ""  
       End If  
   Next  
     
ActiveCell = Mid(str1, 2)  
End Sub  
 
 
Private Sub UserForm_Initialize()  
ListBox1.List = Range("B17:B21").Value  
End Sub  
 
Что нужно поменять в коде, чтобы исполнить команду Alt+Enter?

смотрите пойдет?  
_______________________  
Skype RDG_Dmitry ______ mail dg_rusak@mail.ru Если программа тебе понятна,значит она уже устарела ...................... Thank_you_WM:_R269866874234 U144446690328  
 
К сообщению прикреплен файл: post_169520.xls  
 
Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р,  
а вот так:  
О:  
Р  
И чтоб все этовмещалось в одну ячейку? Спасибо.

{quote}{login=Селена 1000}{date=09.08.2011 10:08}{thema=}{post}документ будет содержать содержать дату исполнения, и за 12 суток до этой даты должен быть визуальный контроль, то есть цвет ячейки должен измениться на красный, как это сделать?{/post}{/quote}  
 
Ребят, я макросом помогите все тоже самое реализовать?

{quote}{login=piratxp}{date=13.07.2011 04:34}{thema=Re: }{post}{quote}{login=vikttur}{date=13.07.2011 03:12}{thema=}{post}Функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ() в отдельном столбце, не включенном в автофильтр.{/post}{/quote}  
 
Не, мне нужен код VBA чтобы это все делал, и в той ячейке, в которую я впишу например этот знак "*".{/post}{/quote}  
 
Тема закрыта!  
 
Решение:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Intersect(Target, [a1:a117]) Is Nothing Then Exit Sub
If [a1:a117].Text = "" Then Exit Sub
Dim r As Range, i&  
Application.EnableEvents = False  
For Each r In [a1:a117].SpecialCells(2)
       i = i + 1: r = i  
Next r  
Application.EnableEvents = True  
End Sub

{quote}{login=vikttur}{date=13.07.2011 03:12}{thema=}{post}Функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ() в отдельном столбце, не включенном в автофильтр.{/post}{/quote}  
 
Не, мне нужен код VBA чтобы это все делал, и в той ячейке, в которую я впишу например этот знак "*".

{quote}{login=ShmeL}{date=13.07.2011 10:38}{thema=}{post}Один из вариантов реализации.  
Кнопка "Office"/Подготовить/Зашифровать документ. Вводим пароль. Все готово.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>{/post}{/quote}  
 
Сожми пжалуста файл, и выставь заново?! Не успели скачать...

{quote}{login=R Dmitry}{date=01.06.2010 12:33}{thema=Re: Re: Автоматическая нумерация строк, устойчивая к сортировке}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
If Not Intersect(Target, [B:B]) Is Nothing _
      Then  
      Dim ilastrow As Long  
   With Sheets("Лист1")  
       ilastrow = .Cells(Rows.Count, 2).End(xlUp).Row  
       .Cells(ilastrow, 1) = Val(.Cells(ilastrow - 1, 1)) + 1  
       End With  
      End If  
End Sub  
в Лист1, id первый столбец, событие во втором{/post}{/quote}  
 
А подскажите пожалуйста, можно ли организовать последовательную нумерацию сверху вниз по столбцу в определенных ячейках, ну скажем при занесении в данную ячейку знака * , и чтоб нумерация проходила в автоматическом режиме? (макросом) А при исчезновении в любой ячейке указанного знака, нумерация последовательно перестраивалась.

{quote}{login=rusland}{date=27.06.2011 09:10}{thema=Re: Re: }{post}Уважаемый, nerv! Получилось то, что надо. Разобрался, как увеличить количество заданных пар.  
Еще раз, большое спасибо!{/post}{/quote}  
 
Покажите что получилось? Сожмите и покажите, а то итоговый файл удалили...(

{quote}{login=Михаил С.}{date=27.06.2011 04:37}{thema=}{post}И желательно поправить макрос на всех листах  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
On Error Resume Next  
If Not Intersect(Target, [D11:I11]) Is Nothing And Target <> "" Then Target = Target & "/" & Format(Target / Target.Offset(-1), "0%")
On Error GoTo 0  
End Sub  
   
а то, если вдруг в 11-ю строку занесли данные ошибочно, исправить невозможно.{/post}{/quote}  
 
При много благодарен Вам, очень полезная информация!

{quote}{login=Михаил С.}{date=27.06.2011 04:26}{thema=}{post}На листе "1п" в формуле маленькая ошибка; в D11 формула  
=ЕСЛИ(D10;D3&"/"&ОКРУГЛ(D3/D10;2)*100&"%";"")  
и протянуть вправо.{/post}{/quote}  
Аха, спасибо!)

{quote}{login=Михаил С.}{date=27.06.2011 04:14}{thema=}{post}Вы ж уже этот вопрос на каком-то из форумов задавали? там что нет решения?  
Смотрите формулы в желтых ячейках на всех листах{/post}{/quote}  
Там так и не ответили, спасибо Вам большое!

{quote}{login=RAN}{date=27.06.2011 09:34}{thema=}{post}Sub jigan4eg()  
Dim cl As Range  
For Each cl In Range("g2:g55")  
If cl.Value < 0.03 Then  
cl.Interior.Color = vbRed  
ElseIf cl.Value > 0.97 Then cl.Interior.Color = vbYellow  
End If  
Next  
End Sub{/post}{/quote}  
 
А чтобы автоматом все выполнялось возможно?, например при смене значения цвет выбирался соответствующий?

Здравствуйте! Помогите подобрать формулу в основном листе 1п в диапазоне ячеек D11:I11, в приложении прилагаются условия и результат, который должен бы был получится...  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>