{quote}{login=Юрий М}{date=04.03.2011 01:23}{thema=Re: }{post}{quote}{login=kos}{date=04.03.2011 01:17}{thema=}{post}по первой ссылке нужен пароль для архива... его покупать надо? :){/post}{/quote}  
С чего Вы взяли - архив без пароля.{/post}{/quote}  
у меня почему-то пишет "нет файлов для извлечения"...

по первой ссылке нужен пароль для архива... его покупать надо? :)

Доброго времени суток! Подскажите, пожалуйста, как будет выглядеть формула в моем случае, а то сам никак не догоню...  
Суть такая: есть лист excel, на нем ячейки с тремя цветами шрифта(красный, синий, зеленый). Так вот, как будет выглядеть формула для подсчета количества красных ячеек на листе?  
А вообще, нужно посчитать не просто количество ячеек, а сумму чисел в ячейках с красным шрифтом. Вроде понятно объяснил :)  
Помогите, кому не сложно! Заранее спасибо!

Доброе время суток!  
испробывал всё, надежда осталась только на профи, темболее с макросами я полный 0!    
Проблема следующая:  
есть книга 1, из книги 2(меняется название книги) связями берутся данные, приходится выбирать из годовой папки (365 файлов) нужный мне по дате файл открывать его, чтоб обновились данные и это каждый день!!!  
Условия задачи таковы:  
вводим в ячейку дату формата 01.01.11 нажимаем кнопку с макросом, он открывает нужный файл название которого совпадает с датой и обновляет с ним связи.

{quote}{login=}{date=20.08.2009 11:22}{thema=Ctrl+` (Переключение режима отображения значения ячейки и формулы ячейки)}{post}Здравствуйте все!  
 
В excel есть такая замечательная комбинация клавиш, как Ctrl+`. Эта комбинация переключает режимы отображения значения ячейки и формулы ячейки.  
Но есть один не понятный пока мне глюк: иногда бывает, что эти клавиши не срабатывают, т.е. режим не переключается.  
Может кто-нибудь сталкивался уже с этой проблемой и знает, как решить. Буду благодарен за любую информацию по этой теме.{/post}{/quote}  
 
Нада что бы стояла англиская раскладка клавиатуры.

И еще сразу маленький вопрос можно сделать что эта подпись  
была выделена жирным и с другим шрифтом??

{quote}{login=The_Prist}{date=20.08.2009 11:03}{thema=}{post}Исправляем.  
 
Sub SendMail()  
Dim OutApp As Object  
Dim OutMail As Object  
Dim cell As Range  
 
'создаем новое пустое сообщение в Outlook  
Application.ScreenUpdating = False  
Workbooks.OpenText "C:\Documents and Settings\k.nik\Application Data\Microsoft\Signatures\Константин.txt"  
For li = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Rows.Count  
sSignature = sSignature & vbCrLf & Cells(li, ActiveSheet.UsedRange.Column)  
Next li  
ActiveWorkbook.Close False  
Set OutApp = CreateObject("Outlook.Application")  
OutApp.Session.Logon  
On Error GoTo cleanup  
Set OutMail = OutApp.CreateItem(0)  
On Error Resume Next  
 
'заполняем его адрес, тему и т.д.  
With OutMail  
.To = ""  
.Cc = ""  
.Subject = "Imp"  
.Body = "" & String(4, vbCrLf) & sSignature  
.Attachments.Add ActiveWorkbook.FullName  
'вместо Send можно использовать Display, чтобы посмотреть сообщение перед отправкой  
.Display  
End With  
On Error GoTo 0  
Set OutMail = Nothing  
 
cleanup:  
Set OutApp = Nothing  
Application.ScreenUpdating = True  
End Sub  
 
Нехватало этой строчки: ActiveWorkbook.Close False. Поэтому у Вас в сообщение попадал файл с подписью.{/post}{/quote}  
 
Спасибо огромное теперь все работает.

{quote}{login=The_Prist}{date=20.08.2009 10:46}{thema=}{post}Приведите полностью тот код, который у Вас получился. Вы, наверное, что-либо сделали неправильно. У меня такой код только вставляет подпись. Как он может вставить файл с подписью я не представляю.{/post}{/quote}  
 
Вот мой код  
 
Sub SendMail()  
   Dim OutApp As Object  
   Dim OutMail As Object  
   Dim cell As Range  
     
   'создаем новое пустое сообщение в Outlook  
   Application.ScreenUpdating = False  
   Workbooks.OpenText "C:\Documents and Settings\k.nik\Application Data\Microsoft\Signatures\Константин.txt"  
   For li = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Rows.Count  
   sSignature = sSignature & vbCrLf & Cells(li, ActiveSheet.UsedRange.Column)  
   Next li  
   Set OutApp = CreateObject("Outlook.Application")  
   OutApp.Session.Logon  
   On Error GoTo cleanup  
   Set OutMail = OutApp.CreateItem(0)  
   On Error Resume Next  
     
   'заполняем его адрес, тему и т.д.  
   With OutMail  
       .To = ""  
       .Cc = ""  
       .Subject = "Imp"  
       .Body = "" & String(4, vbCrLf) & sSignature  
       .Attachments.Add ActiveWorkbook.FullName  
       'вместо Send можно использовать Display, чтобы посмотреть сообщение перед отправкой  
       .Display  
   End With  
     
     
 
   On Error GoTo 0  
   Set OutMail = Nothing  
 
cleanup:  
   Set OutApp = Nothing  
   Application.ScreenUpdating = True  
End Sub

Я извиняюсь что долго неотвечал просто пропал интернет.  
Универсальный макрос я имел ввиду такой  
Sub SendMail()      
   Dim OutApp As Object    
   Dim OutMail As Object    
   Dim cell As Range      
         
   Application.ScreenUpdating = False    
   Set OutApp = CreateObject("Outlook.Application")      
   OutApp.Session.Logon      
   On Error GoTo cleanup      
   Set OutMail = OutApp.CreateItem(0)      
   On Error Resume Next    
         
   With OutMail      
       .To = Range("A1").Value      
       .Subject = Range("A2").Value      
       .Body = Range("A3").Value      
       .Attachments.Add Range("A4").Value      
       'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой      
       .Send      
   End With    
   
   On Error GoTo 0      
   Set OutMail = Nothing    
   
cleanup:      
   Set OutApp = Nothing    
   Application.ScreenUpdating = True    
End Sub    
Он и в примерах так называется.  
Если я в него добавляю строки которые написа The_Prist  
Workbooks.OpenText "C:\Documents and Settings\USERPROFILE\Application Data\Microsoft\Signatures\Служебная.txt"  
For li = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Rows.Count  
sSignature = sSignature & vbCrLf & Cells(li, ActiveSheet.UsedRange.Column)  
Next li  
и .Body = "Текст письма" & String(4, vbCrLf) & sSignature  
то когда я запускаю макрос он мне на лист вставляет подпись и заместь моего файла для отправки вставлет файл с подписью.  
Как можно сделать что бы вставлять только подпись?

Добрый день.  
 
У меня такой вопрос. В примерах есть код VBA по отправки книги(универсальный), что нужно  
добавить в коде что бы при создании письма он вставлял подпись.А то приходиться ее вставлять вручную.  
 
Заранее благодарю.