Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » TuJIb
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Вызов имени листа в макросе
 
#
07.12.2013 14:43:26
Может быть, согласен, но автор темы так и не объявился пока что  :)
 
Перейти    
Вызов имени листа в макросе
 
#
06.12.2013 23:14:48
Бывает так, что нужны формулы, даже при использовании макросов. Редко - но бывает )))
 
Перейти    
Вызов имени листа в макросе
 
#
06.12.2013 23:05:40
Я правильно понял? - формула ставится в лист, имя которого необходимо вписать в формулу? Если так, то попробуйте
Код
    Worksheet
    Range("E2").Select
     
  
   ActiveCell.FormulaR1C1 = _

     "=SUMPRODUCT(('" & ActiveSheet.Name & "'! R3C1:R10000C1=Лист1!RC1)*('" & ActiveSheet.Name & "'!  R3C6:R10000C7=Лист1!R1C))"    
 
 Range("E3").Select  Selection.AutoFill Destination:=Range("E2:N2"), Type:=xlFillDefault
Изменено: TuJIb - 06.12.2013 23:13:51 (Добавление информации)
 
Перейти    
Тормозит файл Excel, Ускорение работы
 
#
06.12.2013 22:59:09
Сталкивался часто с тормозами в открытии файлов екселя и работе с ними, когда файл часто редактируют, допустим есть реестр, живет он год, с начала года в него начинают вносить данные, каждый день, несколько сот строк информации с формулами к тому же.
Так вот уже к концу первого месяца он начинает подтупливать. Создав чистый лист скопировал всю таблицу в него, удалил старый лист, файл похудел раза в два  :)   и стал быстрее открываться и редактироваться.

Так что советую периодически так делать, не знаю в чем конкретно причина, но скорее всего остается мусор в данных листа, который не удаляется при редактированиях.
 
Перейти    
Отправка письма от определенного отправителя.
 
#
05.12.2013 19:15:55
sm.SentOnBehalfOfName =  "2@mail.ru"   - я уже так пробовал, но критовало!!!! А тут на тебе, получилось!!!!!  :D

Спасибо требе, добрый человек!
Надеюсь завтра на рабочей машине все так же пройдет.

Точно помню, где то в сети находил этот способ, но не получалось.
Тему можно закрывать, спасибо всем кто откликнулся.
 
Перейти    
Отправка письма от определенного отправителя.
 
#
05.12.2013 00:41:18
Спасибо за ответы, но тут есть проблема, для авторизации необходим пароль, а пароль у меня на работе - это носитель информации - ТМ (Тач мемори), врядли сработает у меня каким либо образом этот код.

Вот не пойму, почему во всех МС приложениях есть запись макросов, а в луке нет?
Было бы просто супер...
 
Перейти    
Отправка письма от определенного отправителя.
 
#
05.12.2013 00:02:34
Здравствуйте, помогите пожалуйста.
С созданием и отправкой писем из лука посредством екселя разобрался, но не могу разобраться с выбором отправителя.
У меня на луке подключено 2 учетные записи, и отправлять письма необходимо с второстепенной учетки.
Создаю письмо таким образом
Код
Sub SendMail()
    Application.DisplayAlerts = False
    'FullFilePath = ThisWorkbook.Path & "\" & FileName & ".xlsx"
    
    Dim OutlookApp As Object, SM As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set SM = OutlookApp.CreateItem(olMailItem)
    
    SM.To = "1@yandex.ru"
    'SM.CC = "1@yandex.ru"
    SM.Subject = "Название темы" '& FileName
    'SM.From = "2@mail.ru"
    
    On Error Resume Next
    'в этом случае открывается письмо
    'с подписью той которая по умолчанию в Outlooke
    
    SM.Body = Activedocument.Content
    SM.HTMLBody = Activedocument.Content.Text
    
    SM.Display
    SM.HTMLBody = "Добрый день!" & SM.HTMLBody
    Set SM = Nothing
    Set OutlookApp = Nothing
End Sub
на "SM.From" критует.
Сколько не копался в сети, ничего не смог найти.
 
Перейти    
Страницы: 1
Наверх